各位先進大大，小弟想請教一個程式順序的問題，我有兩個程式(令為A程式及B程式)，A程式有三個可執行視窗，B程式有五個可執行視窗，我想將A程式永遠保持在B程式的上面。而當B程式被其他程式覆蓋時候，A程式也要一起被覆蓋，這要如何做到呢? 我在API的程式中，只看到SetWindowPos(hw, HWND_TOPMOST, 0, 0, 0, 0, 3);是可以將"某一視窗"保持在最上層，但卻不知道要如何將"某一程式"保持在最上層"???

tommyli0913 你好     每支程式總有一個主Form,可以利用FindWindow(...)找到該Form的Handle,然後將它設為最上層。

引言: tommyli0913 你好 每支程式總有一個主Form,可以利用FindWindow(...)找到該Form的Handle,然後將它設為最上層。

當VCL建立時，會依造Parant為上層元件建立，但如果不是使用VCL時就能使用 WndParent屬性來指定他上層元件。 例如：以Delphi Help來當上層元件的話 type TForm1 = class(TForm) private { Private declarations } public procedure CreateParams(var Params: TCreateParams);override; end; procedure TForm1.CreateParams(var Params: TCreateParams); var dc:THandle; begin inherited; dc:=FindWindow(nil,'Delphi Help'); Params.WndParent:=dc; end; //這樣這支程式會顯示在Delphi Help上層，相對的Delphi Help被其他程式複 //蓋過後，這支程式一樣被複蓋過企 想買台TPC..TTAB-B12D

首先，視窗A1可控制視窗A1~3 而視窗B1可控制B1~5 A程式用SendMessage叫B程式排列視窗B1~5 然後B程式再SendMessage叫A程式排列視窗A1~3 其他的得你自己研究囉 火舞精靈 - 蘇

謝謝各位先進的幫忙，jest0024大大您的方法我有試出來了，可以用，也是我想要的，真是太感謝了！