Popupmenü blendet sich nicht mehr aus

[Van HelF]

Ich klicke genau auf das icon.
wenn ich das "SetForegroundWindow(Handle)" weglasse erscheint das taskleistenmenü nicht mehr, aber dafür geht mein popup nicht mehr weg. :gruebel:

Hier mein code:

Delphi-Quellcode:

procedure TForm1.WMTaskbarEvent(var Message: TMessage);
var
  Point: TPoint;
begin
  case Message.LParamLo of
     WM_LBUTTONDOWN: begin
                       TaskBarRemoveIcon;
                       form1.Show;
                       form1.BringToFront;
                     end;
     WM_RBUTTONDOWN: begin
                          SetForegroundWindow(Handle);
                          GetCursorPos(point);
                          popupmenu1.popup(point.x,point.y);
                     end;
  end;
end;

[Daniel G]

Was passiert, wenn du SetForegroundWindow ans Ende des Blocks packst?

Delphi-Quellcode:

 WM_RBUTTONDOWN: begin
                          GetCursorPos(point);
                          popupmenu1.popup(point.x,point.y);
                          SetForegroundWindow(Handle);
                     end;

//Edit: Wobei das ja eigentlich auch schwachsinnig ist... :gruebel:

[Van HelF]

Dann wird beides kombiniert, es lässt sich nicht mehr ausblenden, und das taskleisten menü öffnet sich auch manchmal mit :gruebel:

[Luckie]

Was passiert, wen du WM_RBUTTONUP nimmst?

[Van HelF]

Dann Funktionierts.
@Luckie :thumb: