[Kaf_Dağı]

Formda Kayan Yazı

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

delphide forma kayan yazi yapma .
 
--------------------------------------------------------------------------------
otomasyon
 
procedure tform1.formcreate(sender: tobject);
begin
timer1.ınterval:=250;
caption:='Bu bir kayan yazı örneğidir';
end;
 
procedure tform1.timer1timer(sender: tobject);
begin
caption:=copy(caption,2,length(caption)-1)+ caption[1];
end;
end.