كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج

[ALmuhhnad]

السلام عليكم ورحمة الله وبركاتة
نعم يمكنك لكن بطريقة ملتوية قليلاً ... جيث انك عندما تريد ان تفتح الـ Form2 لابد من ضغط الزر مرتين
وعندما تضغط الزر للمرة الاول سيتوجب عليك المرور على الفور الاول ...!

هذه طريقة لعمل ذلك
قم بإنشاء Timer1
و Button1
وضع متغير عام(رئيسي) باسم NumClick واعطه القيمة 0
وضع بالزر هذا الامر :

PHP كود :

if tmr1.Enabled = False then
    tmr1.Enabled := True;
  NumClick := NumClick + 1; 


وهذا الكود داخل التامير :

PHP كود :

if NumClick = 1 then
  Form1.Show
else
if NumClick >= 2 then
  Form2.Show
NumClick := 0;
tmr1.Enabled := False; 


السروس كود كامل :

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    tmr1: TTimer;
    procedure tmr1Timer(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NumClick : Shortint = 0;

implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if NumClick = 1 then
  Form1.Show
else
if NumClick >= 2 then
  Form2.Show
NumClick := 0;
tmr1.Enabled := False;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if tmr1.Enabled = False then
    tmr1.Enabled := True;
  NumClick := NumClick + 1;
end;

end. 


هذه الطريقة التي اتتني اول ما قرات سؤالك P: بالطبع طريقتي غير سليمة من وجهة نضري فهي مرككة وغير ثابته ...
لذلك إذا اردت ان تنتظر احد الاخوة يجبك بما لديه

نصيحه : استعمل الطرق الاكثر سهولة وسلاسه P:
والسلام عليكم .