01-02-2014, 11:01 PM
02-02-2014, 02:13 AM
تستطيع ذالك من خلال وضع تايمر و عنصر اديت و زرين
ملاحظه: اعط للعنصر اديت القيمه الافتراضيه "1" و الباقي مرفق كمثال مع الشرح
ملاحظه: اعط للعنصر اديت القيمه الافتراضيه "1" و الباقي مرفق كمثال مع الشرح
02-02-2014, 12:27 PM
هل يوجد حل اخر بدون مكون تيامير
02-02-2014, 04:23 PM
في الحقيقة لم ارى جواب الاخ noor.aldeen.sha
لكن إليك طرقتي وهي من خلال إستعمال دوال WinAPI :
إن اشكل عليك شيء تفضل بالسؤال
لكن إليك طرقتي وهي من خلال إستعمال دوال WinAPI :
PHP كود :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
IdFunction : Cardinal;
implementation
{$R *.dfm}
procedure PressNextButton();
begin
Form1.Button2Click(Form1.Button2);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption := '1';
IdFunction := SetTimer(0,0,4000,@PressNextButton)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Caption := '2222' + Form1.Caption;
KillTimer(0,IdFunction)
end;
end.
إن اشكل عليك شيء تفضل بالسؤال
02-02-2014, 06:39 PM
مشكور على الإفادة مشكور على الإفادة مشكور على الإفادة good
02-02-2014, 08:49 PM
العفو ..
لكن لماذا لا تكتب الاجابة التي حصلت عليها بالمنتديات الاخرى التي قمت بطرح السؤال بها كي تعمل الفائدة اكثر
لكن لماذا لا تكتب الاجابة التي حصلت عليها بالمنتديات الاخرى التي قمت بطرح السؤال بها كي تعمل الفائدة اكثر
03-02-2014, 01:41 AM
[quote=ALmuhhnad]العفو ..
قمت بطرح السؤال
قمت بطرح السؤال
04-02-2014, 12:01 AM