有关生成动态窗体的问题。

Question

我的程序需要动态生成窗体，但是窗体创建后却没有在任务条上显示（一般程序都会在任务条上有显示，方便选择说）。求解决办法。。

Answer 1

procedure TForm1.FormShow(Sender: TObject);
var 
  hOwner: HWnd;
begin
  hOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hOwner, SW_HIDE);
end;

Answer 2

procedure TForm2.FormCreate(Sender: TObject);
begin
  SetWindowLong(Self.Handle, GWL_EXSTYLE, GetWindowLong(Self.handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;