Delphi仿POS系統設定按鈕拖曳更改排序

drag2

drag1
許多餐飲或是快餐POS系統都會提供拖曳去更改按鈕排序!
Delphi可不可以做得到呢?當然是簡單的~

1)MouseDown事件加上
(sender as tbutton).BeginDrag(false);
2)DragOver事件加上
if source is TButton then
Accept:=true;
3)DragDrop事件加上 >> 互換對方的caption
if Sender is TButton then begin
TempCaption := TButton(Source).Caption;
TButton(Source).Caption := TButton(Sender).Caption;
TButton(Sender).Caption := TempCaption;
end;

我要留言

留言

關於 林壽山

林壽山 資深系統分析師,擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計
本篇發表於 Delphi 並標籤為 , , , , , 。將永久鏈結加入書籤。

發表迴響

你的電子郵件位址並不會被公開。

這個網站採用 Akismet 服務減少垃圾留言。進一步瞭解 Akismet 如何處理網站訪客的留言資料