Mega Code Archive

 

Categories / Delphi / Forms

 

Formlar icin hos bir caption efekti

{FORMUNUZA BIR TIMER NESNESI EKLEYIN. TIMER'IN INTERVAL DEGERINI 100 YA DA DAHA ASAGI BIR DEGER YAPIP ONTIMER OLAYINI ASAGIDAKI GIBI DUZENLEYIN! EGER BASLIGINIZA BOSLUK KARAKTERLERINI EKLERSENIZ DAHA HOS OLUR : 'BASLIK ' GIBI} procedure TForm1.Timer1Timer(Sender: TObject); begin CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-1)+CAPTION[1]; end;