Öffnen des Kontextmenüs am Cursor

HawkLUED · Beiträge: 62 WinXP Delphi 7 Enterprise, Delphi 2007

Hi zusammen,

es ist ja möglich, das Kontextmenü über die Tastatur zu öffnen! Da habe ich aber ein Problem bei einem Stringgrid, das sich dann das Kontextmenü nicht am Cursor öffnet, sondern immer in der linken oberen Ecke des StringGrids!

Wie kann man dieses Problem beheben, habe keinen Schimmer :-(

!

Danke im voraus!

Gruß

Andreas

_________________
Wenn Debuggen der Vorgang ist, Fehler aus einem Programm auszubauen,
dann ist Programmieren der Vorgang, Fehler in ein Programm einzubauen !

HawkLUED · Beiträge: 62 WinXP Delphi 7 Enterprise, Delphi 2007

Hi,

habs gefunden!

und zwar im OnKeyUp des Grids die Taste abfangen und die Cursorposition bestimmen!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

...
var
  Pos: TPoint;

....
if Key = vk_apps then
begin
  GetCursorPos(Pos);
  try
    prPopUp.AutoPopUp := false;
    prPopUp.PopUp(Pos.x, Pos.Y);
  finally
    prPopUp.AutoPopUp := true;
  end;
end;
...

_________________
Wenn Debuggen der Vorgang ist, Fehler aus einem Programm auszubauen,
dann ist Programmieren der Vorgang, Fehler in ein Programm einzubauen !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme