04-09-2017, 09:34 PM
Kod:
Procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_DragMove=$F012;
begin
ReleaseCapture;
Button1.Perform(WM_SYSCOMMAND, sc_DragMove, 0);
end;
Konuyu Oyla:
|
Formun Üzerinde Herhangi Bir Nesnenin Taşınması
|
| Şu anda bu konuyu okuyanlar: |
| 1 Ziyaretçi |
Tema yapımcısı: Mishar DESIGN
Türkçe çeviri: Taifun
Forum yazılımı: MyBB