Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Form'u Tüm Yüzeyden Sürüklemek  (Okunma sayısı 1561 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Form'u Tüm Yüzeyden Sürüklemek
« : 21 Ekim 2005 16:18:32 »
Kod:  (Unknown Language)
  1. procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  2.  
  3.   Shift: TShiftState; X, Y: Integer);
  4.  
  5. begin
  6.  
  7. ReleaseCapture;
  8.  
  9. Form1.perform(WM_SYSCOMMAND, $F012, 0);
  10.  
  11. end;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »