Ok erstmal hier der schon abgeänderte Code:
Delphi-Quellcode:
{--[WndProc]-------------------------------------------------------------------}
procedure TMain.WndProc(
var Msg: TMessage);
var
Point: TPoint;
begin
If Msg.Msg = WM_USER + 20
then
begin
case Msg.LParam
of
WM_RBUTTONUP:
// vorher WM_RBUTTONDOWN
begin
SetForegroundWindow(
Handle);
GetCursorPos(Point);
Popup.PopUp(Point.X, Point.Y);
end;
end;
end;
inherited;
end;
@Luckie: Es scheint zu funktionieren, nach mehrfachen Tests ist der Effekt nicht wieder aufgetreten.
Wie bist du auf die Idee gekommen das Popup beim Loslassen anzuzeigen? Welcher Grund steckt dahinter?
Mfg
Mazel