DELPHI / Kayan Yazi

--------------------------------------------------------------------​

DELPHI / Kayan Yazi

Form Basliklarinda Kayan Yazi


procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=250;
caption:='MERHABA ARAKADAŞLAR';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption:=copy(caption,2,length(caption)-1)+caption[1];
end;
​