Main form click a button 然後 show sub form 我想sub form 都固定在main form 的旁邊, 當我close sub 再show 的時候 Tsubform.FormShow(Sender: TObject); begin subform.top := Parent.top; subform.left := Parent.left width; end; 這樣不行, 請問那一個reserved word 可以, owner 也試過 , 但還是不行 謝謝

Hi SamSam1230,    Why do'nt you set the position for the sub-form by main form !?

procedure TForm1.Button3Click(Sender: TObject);
begin
    TmpForm := TForm2.Create(Application);
    Button2:=tbutton.Create(TmpForm);
    TmpForm.top := Self.Top;
    TmpForm.Left := Self.Left   self.Width;
    TmpForm.Show;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

妳亦可以利用Application.MainForm取得程式主窗體進行位置設定

一般狀況, 應該是以Fishman寫的方式較正統, 但如果你有特殊的用途, 你可以用以下的做法達成:    在Form1裡頭去Create Form2, 所以底下的Self指的就是Form1;
form2:=TForm2.Create(Self);
form2.show;    在Form2的OnShow中, 以Owner取回Left, Top的資訊。
procedure TForm2.FormShow(Sender: TObject);
begin
  Left:=TForm(Owner).Left 100;
  Top:=TForm(Owner).Top 100;
end;

Fishman的方法不錯，比較簡單實用，但還有一種方法： 將SubForm的Parent指向MainForm（默認創建的Form的Parent都是nil的）。 具體請參照http://blog.csdn.net/visli/archive/2005/01/11/249502.aspx

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

引言: Hi SamSam1230, Why do'nt you set the position for the sub-form by main form !?

procedure TForm1.Button3Click(Sender: TObject);
begin
    TmpForm := TForm2.Create(Application);
    Button2:=tbutton.Create(TmpForm);
    TmpForm.top := Self.Top;
    TmpForm.Left := Self.Left   self.Width;
    TmpForm.Show;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 但是我會在程式裡close form and 再open , 但沒destory 如果main 移了位置 我想每次再開的時候都會固定在main的旁邊

引言: 妳亦可以利用Application.MainForm取得程式主窗體進行位置設定

這樣只可針對靜態的main form 如果我的子form 是一個module 會給很多個不同的 mainform 而且 mainform 的名字是不一樣, 那就不行了

引言:

一般狀況, 應該是以Fishman寫的方式較正統, 但如果你有特殊的用途, 你可以用以下的做法達成:    在Form1裡頭去Create Form2, 所以底下的Self指的就是Form1;
form2:=TForm2.Create(Self);
form2.show;    在Form2的OnShow中, 以Owner取回Left, Top的資訊。
procedure TForm2.FormShow(Sender: TObject);
begin
  Left:=TForm(Owner).Left 100;
  Top:=TForm(Owner).Top 100;
end;

不知道為什麼, 用你這個方法, form 還全沒有出來, 只是閃了一下

閃一下? 以下這一段, 是在Form1裡頭的程式。我有試過了呀? 除非你的Form1有特殊的設計。 form2:=TForm2.Create(Self); form2.show; 你可以貼你的程式上來嗎?

引言: 閃一下? 以下這一段, 是在Form1裡頭的程式。我有試過了呀? 除非你的Form1有特殊的設計。 form2:=TForm2.Create(Self); form2.show; 你可以貼你的程式上來嗎?

我的整個程式很大... 都不知道要貼那一部分 但是有一點那個form2不是runtime create的 這個會有影響嗎?

Hi SamSam1230,    我剛剛試了一下 yorkland 大大的方法，其實是可行的， 請注意一下 yorkland 大大的寫法，我猜測你應該寫錯了，才在 form2 中找不到 Owner !!

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2 := TForm2.Create(Self); // not Application 請注意
  form2.show;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

請問 self and application 有什麼影響?