// Wenn's Formular in der Größe verändert wird,
// die Routine führt dazu, daß für das Formular ein eigener Schalter in der
// Taskbar erscheint.
procedure Tform1.FormResize(Sender: TObject);
begin
If WindowState = wsMinimized
Then Begin
If (GetWindowLong(
handle,GWL_EXSTYLE)
and WS_EX_APPWINDOW) <> WS_EX_APPWINDOW
then Begin
SetWindowLong(
handle,GWL_EXSTYLE,GetWindowLong(
Handle,GWL_EXSTYLE)
or (WS_EX_APPWINDOW
or WS_EX_CONTROLPARENT));
End;
End Else Begin
SetWindowLong(
Handle,GWL_EXSTYLE,GetWindowLong(
Handle,GWL_EXSTYLE));
End;
end;