Hallo hollisoft,
jetzt hab ich mich da ein bischen festgebissen...
Delphi-Quellcode:
procedure WMShowWindow(
var Message: TWMShowWindow);
message WM_SHOWWINDOW;
...
procedure TFormTest.WMShowWindow(
var Message: TWMShowWindow);
const
ShowCommands:
array[saRestore..saMaximize]
of Integer =
(SW_SHOWNOACTIVATE, SW_SHOWMINNOACTIVE, SW_SHOWMAXIMIZED);
begin
sysutils.Beep;
inherited;
{
with Message do
case Status of
SW_PARENTCLOSING:
begin
if IsIconic(Handle) then FShowAction := saMinimize else
if IsZoomed(Handle) then FShowAction := saMaximize else
FShowAction := saRestore;
inherited;
end;
SW_PARENTOPENING:
if FShowAction <> saIgnore then
begin
ShowWindow(Handle, ShowCommands[FShowAction]);
FShowAction := saIgnore;
end;
else
inherited;
end;
}
end;
Jetzt klingelt das Formular auch wenn es nicht fokussiert ist und man das Desktop-Icon in der Taskbar anklickt (das meintest Du sicher!?)
Ich kann jetzt aber nicht sagen, wie Du die Ereignisbehandlung dann unterdrücken kannst. Die Notlösung über Timer starten und Formular wiederherstellen sollte aber irgendwie gehen...
Stahli