procedure TfmBase.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_EXSTYLE,
GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;
if not Assigned(fmckxx) then
fmckxx := Tfmckxx.Create(self,AfmParam);
fmckxx.Show;
if fmckxx.WindowState = wsMinimized then
showwindow(fmckxx.Handle,SW_RESTORE)
else
fmckxx.BringToFront;
关键是在Form.create中加了SetWindowLong这个API就可以达到效果。