سؤال عن اضافة حدث لعنصر منشأ أثناء التنفيذ

قم بانشاء Procedure ضمن الفورم و التي سوف تنفذ عند الضغط على Label و ذلك على الشكل التالي

procedure TForm2.Label1Click(Sender: TObject);
begin
  ShowMessage('sadfsdfsd');
end;

الان بعد انشاء ال Label لو فرضنا ذلك عند انشاء الفورم قم بكتابة الكود التالي

procedure TForm2.FormCreate(Sender: TObject);
var Label1: TLabel;
begin
  Label1:= TLabel.Create(form2);
  Label1.Parent:= Self;
  Label1.Left:= 40;
  Label1.Top:= 48;
  Label1.Width:= 31;
  Label1.Height:= 13;
  Label1.Caption:= 'Label1';
  Label1.Show;
  Label1.OnClick := Label1Click;
end;

لاحظ السطر الاخير الذي قمنا فيه بربط الحدث Onclick لل Label مع الاجرائية التي وضعناها

شكراً لك أخ waeldalol