كيف يمكن الكتابة في متغير من النوع TNotifyEvent ؟

[kachwahed]

ينبغي فقط إضافة الحدث إلى النموذج الأصلي (TForm1 في المثال)

PHP كود :

procedure TForm1.MyEvent(Sender: TObject);
begin
  ShowMessage('Message from MyEvent');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.OnClick := MyEvent;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Message from Original Event');
end;