form'a font ekleme ve kapat tuşu ??

[Shou]

merhabalar,

1- form açıyorum aşagıda ortada çıkan simge sağ tıklayınca "X Kapat Altf+F4" yazan yer tıklayınca program kapanıyor onu nasıl engelleyebilirim form onclose dan kapatmayı engelledım ama onu tetiklemıyor..

2- kendi formuma font ekleyebılırmıyım font seçıyorum başkasına yolladıgımda onun pc da font yoksa yazılar kötü gözüküyor nasıl yapabilirim ??

şimdiden teşekkürler..

[greenegitim]

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);

begin

KeyPreview := true;

end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

 Shift: TShiftState);

begin

 if ((ssAlt in Shift) and (Key = VK_F4)) then

 Key := 0;

end;

kullandığın fontu bi yere upload edip onun fonts klasörüne download edebilirsin.

[conari]

bordericonlardan Kapatı False yap

[Shou]

Hangisi abi anlamadım cooltrayicon mu diyosun? neyi kapatıcam açıklarmısın??