فرم های پویا

[اصغر (پآچ)]

سلام دوستان

بنده توی برنامه نیاز دارم که یک فرم پویا درست کنم چطور می تونم به رویدادهای OnClick دکمه های فرمم یک رویه را انتصاب دهم؟

کد فرم رو به این صورت نوشتم:

procedure TForm_Main.ShowMessageWindow(Title: string; MsgText: WideString; ShowingTime: Cardinal);
var
Form_Message: TForm;
TimerExit: TTimer;
Memo_Message: TMemo;
Button_Exit: TButton;

procedure TForm_Message.TimerExitTimer(Sender: TObject);
begin
Form_Message.Close;
end;
begin
Form_Message := TForm.Create(Application);
Form_Message.Height := 75;
Form_Message.Width := 120;
Form_Message.Left := Screen.Width - Form_Message.Width;
Form_Message.Top := Screen.Height - (Form_Message.Height + 40);
Form_Message.Caption := Title;
Form_Message.BorderStyle := bsNone;
Form_Message.OnClose := CloseForm;
Memo_Message := TMemo.Create(Form_Message);
Memo_Message.Align := alClient;
Memo_Message.Color := clInfoBk;
Memo_Message.Text := MsgText;
Button_Exit := TButton.Create(Form_Message);
Button_Exit.Caption := 'x';
Button_Exit.Height := 25;
Button_Exit.Width := 25;
Button_Exit.Top := 8;
Button_Exit.Left := Form_Message.Width - 33;
Button_Exit.OnClick := TimerExitTimer;
TimerExit := TTimer.Create(Form_Message);
TimerExit.Interval := ShowingTime;
TimerExit.OnTimer := TimerExitTimer;
TimerExit.Enabled := True;
Form_Message.ShowModal;
end;

[Mask]

قبلا در مورد نوشتن روال برای اشیا run time نمونه کد ، قرار داده شده است.

[mbshareat]

سلام
ببینین اینها بدردتون میخوره؟
چطور پروسیجری رو به رویداد OnMouseDown انتساب بدم؟ (http://barnamenevis.org/showthread.php?336731-%DA%86%D8%B7%D9%88%D8%B1-%D9%BE%D8%B1%D9%88%D8%B3%DB%8C%D8%AC%D8%B1%DB%8C-%D8%B1%D9%88-%D8%A8%D9%87-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF-OnMouseDown-%D8%A7%D9%86%D8%AA%D8%B3%D8%A7%D8%A8-%D8%A8%D8%AF%D9%85%D8%9F&highlight=%D8%A7%D9%86%D8%AA%D8%B3%D8%A7%D8%A8+Onc lick)
ساختن آرایه ای از دکمه ها برای بازی دوز 5*5 (http://barnamenevis.org/showthread.php?344501-%D8%B3%D8%A7%D8%AE%D8%AA%D9%86-%D8%A2%D8%B1%D8%A7%DB%8C%D9%87-%D8%A7%DB%8C-%D8%A7%D8%B2-%D8%AF%DA%A9%D9%85%D9%87-%D9%87%D8%A7-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A8%D8%A7%D8%B2%DB%8C-%D8%AF%D9%88%D8%B2-5*5&highlight=OnClick)

[Mask]

این مقاله ، کامل توضیح داده.
http://barnamenevis.org/showthread.php?61772-Understanding-the-Sender-parameter-in-Delphi-Event-Handlers&highlight=%D8%A7%D8%B1%D8%B3%D8%A7%D9%84+%D9%BE%DB %8C%D8%BA%D8%A7%D9%85+%D8%A8%DB%8C%D9%86+%D8%A8%D8 %B1%D9%86%D8%A7%D9%85%D9%87%2B%D8%AF%D9%84%D9%81%D B%8C