Form Başlık Yerine Tüm Yüzeyden Nasıl Sürüklenir

Delphi projelerinde Borland tarafından geliştirilip VCL(Visual Component Library) adı verilen sınıf kitaplığında yer alan sınıflar kullanılmaktadır. Bu derslerde bu sınıf kitaplığındaki bazı sınıflar hakkında bilgi verilecektir. Delphi çalışmalarınız ve araştırmalarınız sonrası masaüstü uygulamalarını çok hızlı geliştirebileceğinizi göreceksiniz. Bu konuda sitemizdeki örneklerden faydalanabilir, sorun yaşadığınız konularda konu altına yorum yazarak destek alabilirsiniz.
Delphi örnek projeler ve kaynak kodlara buradan erişebilirsiniz.
Delphi’de formu başlık yerine tüm yüzeyden taşımak için Form’un MouseDown olayına alttaki kodu ekleyin..
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SYSCOMMAND, $F012, 0);
end;
Zeynep
Merhaba, proje ödevimde gerçekten çok faydalı oldu, teşekkür ederim.
2 yıl önce