ömer18
Üye
- Katılım
- 10 May 2008
- Mesajlar
- 17
- Puanları
- 1
- Yaş
- 40
procedure tform1.formcreate(sender: tobject);
begin
timer1.ınterval:=250;
caption:='slm arkadaşlar benim adim ömer erdoğan';
end;
procedure tform1.timer1timer(sender: tobject);
begin
caption:=copy(caption,2,length(caption)-1)+ caption[1];
end;
end.
begin
timer1.ınterval:=250;
caption:='slm arkadaşlar benim adim ömer erdoğan';
end;
procedure tform1.timer1timer(sender: tobject);
begin
caption:=copy(caption,2,length(caption)-1)+ caption[1];
end;
end.
Moderatör tarafında düzenlendi: