Thema: Delphi Popup

Einzelnen Beitrag anzeigen

Prym

Registriert seit: 20. Feb 2005
108 Beiträge
 
#3

Re: Popup

  Alt 9. Mär 2005, 23:19
entschuldigung ich verstehe das nicht ich kenne delphi auch noch nicht so lange

ich habe das so probiert kommt aber das selbe raus deswegen wäre ich eine genauere hilfe nicht abgelehnt


Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var LCursorPos: TPoint;
begin
  if button=MBright then showmessage('rechts');
  begin
    GetCursorPos(LCursorPos);
  PopupMenu1.Popup(LCursorPos.X, LCursorPos.Y);
  end;
if button=MBleft then showmessage('links');
end;
  Mit Zitat antworten Zitat