Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Öffnen des Kontextmenüs am Cursor


HawkLUED - Di 09.11.04 08:34
Titel: Öffnen des Kontextmenüs am Cursor
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


HawkLUED - Di 09.11.04 08:46
Titel: Gelöst!
Hi,

habs gefunden!

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


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;
...