Delphi Problem mit Edit-Feld auf Panel und Popupmenu

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit Edit-Feld auf Panel und Popupmenu

Ein Thema von bra_parametrix · begonnen am 24. Okt 2008 · letzter Beitrag vom 27. Okt 2008

Vorheriger Beitrag

Nächster Beitrag

bra_parametrix

Registriert seit: 3. Jul 2008
Ort: Köniz
19 Beiträge

Delphi 2006 Enterprise

Re: Problem mit Edit-Feld auf Panel und Popupmenu

27. Okt 2008, 12:15

Hallo

Vielen Dank für die Hilfe. Ich habe noch einen kleinen Verbesserungsvorschlag, damit das Popup-Menu auch an der Mausposition kommt:

markieren

Delphi-Quellcode:

			procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var

  p: TPoint;

begin

  if Button = mbright then begin

    p := Mouse.CursorPos;

    PopUpMenu1.Popup(p.x,p.y);

  end;

end;