關於動態產生的Form與Button |
|
尚未結案
|
|
tear
一般會員   發表：2 回覆：2 積分：0 註冊：2003-12-17 發送簡訊給我 |
請問一下： 請問form1中有一button鈕，按了可以動態產生form2且在form2中自動加入button鈕按了可以結束(close)form2... 要動態產生一個form2..且要自動加入button.可以丫...
可是要如何將自動加入的button位於中央且按了可結束form2...
要如何指定此onclick丫... procedure TForm1.buttoncreateClick(Sender: TObject);
var
tmpform:tform2;
button1:tbutton;
begin
tmpform:=tform2.create(application);
button1:=tbutton.Create(tmpform);
tmpform.InsertControl(button1);
button1.caption:='close'; try
tmpform.showmodal;
finally
tmpform.free;
end; end; ...不知如何指向button1的onclick....
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi: Button1.Left := Round((Fomr2.Width - Button1.Width) / 2);
Button1.Top := Round((Form2.Height) - Button1.Height / 2);
Button1.onclick := your procedure name 當然，關閉 Form2 的 Procedure 必須先寫好
------
Fishman |
|
tear
一般會員 發表：2 回覆：2 積分：0 註冊：2003-12-17 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi:
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit2; type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
TmpForm : TForm2;
Button2 : Tbutton; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
begin
TmpForm := TForm2.Create(Application);
Button2:=tbutton.Create(TmpForm);
Button2.Left := Round((TmpForm.Width - Button2.Width) / 2);
Button2.Top := Round((TmpForm.Height - Button2.Height) / 2); Button2.caption:='Close';
Button2.OnClick := Button2Click;
TmpForm.InsertControl(Button2); TRY
IF TmpForm.ShowModal = mrOK then
BEEP;
FINALLY
TmpForm.Free;
END;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
TmpForm.ModalResult := mrOk;
end; end. 加油！！
------
Fishman |
|
tear
一般會員 發表：2 回覆：2 積分：0 註冊：2003-12-17 發送簡訊給我 |
發表時間：2003-12-17 02:33:57
IP:218.163.xxx.xxx 未訂閱
系統時間：2024-04-27 2:06:46
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |