Gönderen Konu: Başlıksız formu nasıl mouse ile taşırız (Okunma sayısı 1538 defa)

molla · « : 28 Nisan 2008 09: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...

Kod: Delphi

[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.

Kodbank İndir

Gönderen Konu: Başlıksız formu nasıl mouse ile taşırız (Okunma sayısı 1538 defa)

molla

Başlıksız formu nasıl mouse ile taşırız