Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
Delphi 7 Enterprise
|
Re: Popup
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
|