Delphi-Quellcode:
procedure TForm2.WMTaskbarEvent(
var Message: TMessage);
var
Point: TPoint;
begin
case Message.LParamLo
of
WM_LBUTTONDOWN: TaskBarRemoveIcon;
WM_RBUTTONDOWN:
begin
SetForegroundWindow(
Handle);
GetCursorPos(point);
popupmenu1.popup(point.x,point.y);
end;
end;
end;
An dieser Stelle soll bei Rechtsklick ein PopUp-Menü aufgerufen werden. Leider funktioniert das genauso wenig wie das Entfernen des Icons per Linksklick.
Es passiert einfach gar nichts. Sprich: ich muss das Programm per Taskmanager beenden, da ich es nicht mehr maximieren kann.