Başlıksız formu nasıl mouse ile taşırız Gönderen: molla Tarih: 28 April 2008 10:38:12
BAŞLIKSIZ FORMU NASIL TAŞIRIZ..
Herkese Selam;
Bildiğiniz gibi form tabanlı programlarda formun başlığını iptal ederseniz formu taşıyamzsınız.Ama herşeyin
muhakkak bir yolu var...
[b]procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
form1.Perform(wm_syscommand,$f012,0);
end;[/b]
Bu kodu labelin panelin veya başka bir nesnenin mousedown'unada yazabilirsin.
Ama şöyle bir sorunla karşılaşabirsin.
Diyelim ki bir panel koydun alcilent yaptın formun üzerinde eğer
panelede bu verdiğim kodu yazarsan panele tıklanınca setfocus işleteceksen
işe yaramaz.Setfocus kodunuda panelin mousedown' una yazman gerek.