چشمک زدن label [بایگانی]

shirinjoon

دوشنبه 02 آذر 1388, 23:03 عصر

سلام کسی میدونه اشکال کد زیر چیه میخوام labelم چشمک بزنه

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Visible:=true;
if label1.Visible =true then
label1.Visible:=false;
end;
کسی میدونه چطور میشه یه متن حرکت داد ؟

yashar666

دوشنبه 02 آذر 1388, 23:36 عصر

این همه if نمی خواد

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Visible:=not(lable1.visible);
end;

yashar666

دوشنبه 02 آذر 1388, 23:39 عصر

اگه با if می خوای

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Visible =true then
label1.Visible:=false
else
label1.Visible :=true
end;

shirinjoon

سه شنبه 03 آذر 1388, 09:36 صبح

ممنون
کسی میتونه بهم بگه چطور میتونم یه متن حرکت بدم مثل بعضی از سایت ها که یه متن از سمت چپ میاد میره به سمت راست

سعید صابری

سه شنبه 03 آذر 1388, 11:53 صبح

از كامپوننت ABC استفاده كن

AliReza Vafakhah

سه شنبه 03 آذر 1388, 14:16 عصر

ممنون
کسی میتونه بهم بگه چطور میتونم یه متن حرکت بدم مثل بعضی از سایت ها که یه متن از سمت چپ میاد میره به سمت راست

می تونید از کامپوننتی که در پست زیر هست استفاده کنید

http://barnamenevis.org/forum/showthread.php?t=188660