--------------------------------------------------------------------
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;
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;