我用
begin
with Tform1.Create(self) do
showmodal;
end;
打开新的一个界面,如果打开多了,就象打开网页一样,任务栏中显示很多。如何让所有的界面显示在一个中,效果就是任务栏中只有一个,象delphi一样。
begin
with Tform1.Create(self) do
showmodal;
end;
打开新的一个界面,如果打开多了,就象打开网页一样,任务栏中显示很多。如何让所有的界面显示在一个中,效果就是任务栏中只有一个,象delphi一样。
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;
还有一种
Application.ShowMainFrom:=False;
Tform1 的 oncreate 或者 onshow 事件中使用
SetWindowLong
就沒事