+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سوال داول api و انشاء النوافذ و التحكم فيها (/showthread.php?tid=4453)
سوال داول api و انشاء النوافذ و التحكم فيها - abdeslem1982 - 14-08-2012
السلام عليكم
ما طريقة اضافة تفعيل حدث النقر على زر بعد انشائه
حاولت استعمال wm_command و استعمال البوكل if HIWORD(wParam) = BN_CLICKED لكن معلوماتى حول الرسائل بين الوندوز و النوافذ مازالت شحيحه و لم افلح فى الوصول الى تفعيل حدث النقر على الزر
كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
bOK=10;
begin
CreateWindowEx(0,'button','ok ',WS_CHILD or WS_VISIBLE or BS_RIGHT or BS_DEFPUSHBUTTON,200,200,60,30,Form1.Handle,bok,0,nil);
end;
end.سوال داول api و انشاء النوافذ و التحكم فيها - S.FATEH - 14-08-2012
السلام عليكم
ما تريده بالضبط من استخدام دوال Api ؟
ممكن توضح اكثر الغاية ربما يمكن اتمام العملية دون استخدام دوال api
سوال داول api و انشاء النوافذ و التحكم فيها - abdeslem1982 - 14-08-2012
الغاية الاستفادة من هاندل النافذه الاب للرز المنشأ فى الدلة CreateWindowEx هذه النافذه سيتم تحديدها مسبقا من خلال classname
للنوافذ المفتوحه على سطح المكتب و اذا ما وجدت هذه النافذه سيتم اليا تحديد رقم الهاندل الخاص بها ثم اضافة هذا الرز بالدالة CreateWindowEx ثم تفعيل حدث النقر على الزر لتنفيذ كود برمجى عند الضغط عليه
لذلك انا احتاج الى طرية تفعيل حدث النقر على الزر بعد انشائه