Moin Intruder,
ich hab' das gänzlich anders gemacht, indem ich auf die vorgefertigten Events verzichtet habe.
Hier mal eine, auf das Wesentliche, zusammengetrichene WndProc.
(FdwTBNAMessage entspricht Deinem IC_CLICK)
Delphi-Quellcode:
procedure TfrmMAIN.WndProc(var msg : TMessage);
begin
if msg.Msg = FdwTBNAMessage then begin
case msg.LParam of
WM_LBUTTONUP : begin // Wird das Icon mit der linken Maustaste angeklickt,
// dann wird das Hauptformular angzeigt
self.Visible := true;
end;
end;
msg.Result := 0;
exit;
end;
// Soll das Hauptformular minimiert werden, wird es ausgeblendet, aber nicht minimiert
if msg.Msg = WM_SYSCOMMAND then begin
if msg.WParam = SC_MINIMIZE then begin
self.Visible := false;
msg.Result := 0;
exit;
end;
end;
inherited;
end;