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

[فهد الشملاني]

السلام عليكم

هل استطيع ابطال عمل الزر الى بعد ضغط على الزر 4 ضغط مزدوج

توضيح
عند الضغط مره واحده على الزر يضهر الفورم رقم 1
عند الضغط على الزر مرتين يضهر الفورم رقم 2

وهكذا هل يمكنني عملها ام مجرد خيال

[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:
والسلام عليكم .

[فهد الشملاني]

ما طريقة تشغيل رابط ؟

[ALmuhhnad]

اخي استعمل نفس الطريقة لكن بدل امر عرض النافذة دعه ينفذ اممر تشغيل الرابط

[فهد الشملاني]

تمت يعطيك العافيه