+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج (/showthread.php?tid=4941)
كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج - فهد الشملاني - 23-02-2013
السلام عليكم
هل استطيع ابطال عمل الزر الى بعد ضغط على الزر 4 ضغط مزدوج
توضيح
عند الضغط مره واحده على الزر يضهر الفورم رقم 1
عند الضغط على الزر مرتين يضهر الفورم رقم 2
وهكذا هل يمكنني عملها ام مجرد خيال
كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج - ALmuhhnad - 23-02-2013
السلام عليكم ورحمة الله وبركاتة
نعم يمكنك لكن بطريقة ملتوية قليلاً ... جيث انك عندما تريد ان تفتح الـ 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:
والسلام عليكم .
كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج - فهد الشملاني - 25-02-2013
ما طريقة تشغيل رابط ؟
كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج - ALmuhhnad - 25-02-2013
اخي استعمل نفس الطريقة لكن بدل امر عرض النافذة دعه ينفذ اممر تشغيل الرابط
كيف ابطال عمل الزر الى بعد ضغط على الزر ضغط مزدوج - فهد الشملاني - 26-02-2013
تمت يعطيك العافيه