Das ist alles im OnCreate:
Delphi-Quellcode:
h := GetSystemMenu(
Handle, FALSE);
if (h <> 0)
then
DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);
TaskBarAddIcon;
ShowWindow( Application.Handle, SW_HIDE );
SetWindowLong( Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE)
or
WS_EX_TOOLWINDOW
and not WS_EX_APPWINDOW);
ShowWindow( Application.Handle, SW_SHOW );
Dann minimiere ich das Formular und es sieht dann so wie im Bild aus.
Habe aber kein Actionmanager auf dem Formular! Sollte ich einen haben?