Formda Kayan Yazı
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.
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|