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

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;
  • user

    Zeynep

    Merhaba, proje ödevimde gerçekten çok faydalı oldu, teşekkür ederim.

    3 yıl önce