Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

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

Gönderen Konu: Form'unuz üstte kalsın?.  (Okunma sayısı 1561 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı HBV

  • Delphi 6 Level 5
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Form'unuz üstte kalsın?.
« : 13 Ocak 2007 23:40:03 »
Form'unuzun diğer proğramların üstünde kalması için CheckBox'un "OnClick" aşağıdaki Kod'u yazıyoruz;

Kod: [Seç]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked=True then
   begin
    FormStyle:=fsStayOnTop;
   end
 else
  begin
   FormStyle:=fsNormal;
  end;
end;
« Son Düzenleme: 13 Ocak 2007 23:42:22 by HBV »