Thema: Delphi Popup

Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Popup

  Alt 10. Mär 2005, 00:56
Zitat von Prym:
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;
Evtl. so:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var LCursorPos: TPoint;
begin
  if button=MBleft then
  begin
    showmessage('links');
    GetCursorPos(LCursorPos);
    PopupMenu1.Popup(LCursorPos.X, LCursorPos.Y);
  end
  else if button=MBright then showmessage('rechts');
end;
MfG
Binärbaum
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat