我用
begin
with Tform1.Create(self) do
showmodal;
end;
打开新的一个界面,如果打开多了,就象打开网页一样,任务栏中显示很多。如何让所有的界面显示在一个中,效果就是任务栏中只有一个,象delphi一样。

解决方案 »

  1.   

    var
    ExtendedStyle : Integer;
    with Tform1.Create(self) do
    begin
     ExtendedStyle := GetWindowLong (Handle, GWL_EXSTYLE);
     SetWindowLong(Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
     showmodal;
     close;
    end;
      

  2.   

    SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
    还有一种
    Application.ShowMainFrom:=False;
      

  3.   

    你可以在
    Tform1 的 oncreate 或者 onshow 事件中使用 
    SetWindowLong
    就沒事