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: Edit Yanıp Sönsün!.....  (Okunma sayısı 1921 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı HBV

  • Delphi 6 Level 5
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Edit Yanıp Sönsün!.....
« : 13 Ocak 2007 23:29:41 »
Bunun için Timer olayına aşağıdaki Kod'u yazıyıruz;
Kod: [Seç]
procedure TForm1.Timer1Timer(Sender: TObject);
var
c:TColor;
begin
c:=Edit1.Color;
Edit1.Color:=Edit1.Font.Color;
Edit1.Font.Color:=c;
end;
Kayıtlı

Çevrimdışı limpid

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: Edit Yanıp Sönsün!.....
« Yanıtla #1 : 09 Nisan 2011 12:55:23 »
teşekkürler.....
Kayıtlı

Çevrimdışı zehrimar

  • Delphi 2 Level 3
  • ***
  • İleti: 71
  • Rep: +0/-1
  • Cinsiyet: Bayan
  • MEN SAMARA DUSATTERAM
Ynt: Edit Yanıp Sönsün!.....
« Yanıtla #2 : 23 Ağustos 2011 18:58:46 »
Şöyle de olabilir di kodları kısaltmak gerek. :D:D:D

Timer içine

Edit1.Color:=Not Edit1.Color;

C++ Derleyici İÇin

Edit1->Color=!Edit1->Color;
Kayıtlı
MEN SAMARA DUSATTERAM
Sayfa: [1]   Yukarı git
« önceki sonraki »