30-03-2015, 03:31 PM
الصفحات : 1 2
30-03-2015, 04:19 PM
دلفي xe2
كود :
unit Unit15;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;
type
TForm15 = class(TForm)
Shape1: TShape;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
c : array [1..4] of Tcolor = (clred,clblue,clgreen,clwhite);
i : integer=1;
implementation
{$R *.dfm}
procedure TForm15.Timer1Timer(Sender: TObject);
begin
shape1.Brush.Color:=c[i];
i:=i+1;
if i=5 then i:=1;
end;
end.30-03-2015, 08:22 PM
اخي الكريم لدي اربع shape على بانل كيف يتغير لونهم واحد تلو الاخر الى اللون الاخضر من ضمن نفس الانترفال اي قبل ان ينتهي اول زمن
30-03-2015, 09:57 PM
يمكن من ضمن نفس الانترفال ان تستعمل دالة sleep ولكنها ليست بالحل الامثل لأنها تسبب في حدوث بطء في التنفيذ
مثال
ضع قيمة الانترفال 2500
مثال
ضع قيمة الانترفال 2500
كود :
Shape1.Brush.Color := clGreen;
Shape1.Repaint;
sleep(500);
Shape2.Brush.Color := clGreen;
Shape2.Repaint;
sleep(500);
Shape3.Brush.Color := clGreen;
Shape3.Repaint;
sleep(500);
Shape4.Brush.Color := clGreen;
Shape4.Repaint;
sleep(500);
Shape1.Brush.Color := clWhite;
Shape2.Brush.Color := clWhite;
Shape3.Brush.Color := clWhite;
Shape4.Brush.Color := clWhite;01-04-2015, 01:42 PM
01-04-2015, 05:24 PM
rabihpascal كتب :اخي الكريم لدي اربع shape على بانل كيف يتغير لونهم واحد تلو الاخر الى اللون الاخضر من ضمن نفس الانترفال اي قبل ان ينتهي اول زمن
استخدم هذا الكود
في اي حدث
كود :
var
i : Integer;
begin
btn2.Enabled := False;
for i := 0 to 40 do
begin
Application.ProcessMessages;
Sleep(2);
case i of
0: begin
shp1.Brush.Color := clGreen;
shp2.Brush.Color := clWhite;
shp3.Brush.Color := clWhite;
shp4.Brush.Color := clWhite;
end;
10: begin
shp1.Brush.Color := clWhite;
shp2.Brush.Color := clGreen;
shp3.Brush.Color := clWhite;
shp4.Brush.Color := clWhite;
end;
20: begin
shp1.Brush.Color := clWhite;
shp2.Brush.Color := clWhite;
shp3.Brush.Color := clGreen;
shp4.Brush.Color := clWhite;
end;
30: begin
shp1.Brush.Color := clWhite;
shp2.Brush.Color := clWhite;
shp3.Brush.Color := clWhite;
shp4.Brush.Color := clGreen;
end;
end;
end;
btn2.Enabled := True;
end;01-04-2015, 05:28 PM
كود :
btn2.Enabled := False;هذه ما قبل لاجراء
كود :
btn2.Enabled := True;هذه ما بعد الاجراء
01-04-2015, 07:21 PM
السلام عليكم
لماذا لا تقسم الانترفال احسن ان كان 1000 تقسمه على 4 ؟ !!
لماذا لا تقسم الانترفال احسن ان كان 1000 تقسمه على 4 ؟ !!
02-04-2015, 12:28 PM
السلام عليكم اولا اشكر الجميع لا يصح تقسيم الانترفال لانه يترافق مع ملف موسيقي بنفس الطول اما بخصوص sleepفانها تتسبب بتقطيع الصوت واحيانا اعتراض
02-04-2015, 06:14 PM
يمكنك استخدام الـ thread وضح بالتفصيل ما تحاول فعله ما ترغب الوصول اليه محاولتك المشكلة و ما الى ذلك و ستجد اجابة ان شاء الله ...
الصفحات : 1 2