OnClick? Relative Koorinate eines Drawgrids?

[snow]

hallo

Ich brauche eine procedure, die etwas ausführt wenn auf ein Drawgrid geclickt wird. Die Procedure soll mir dabei die Acol und die Arow liefern. zwar gibt es die procedure OnSelect aber diese wird auch ausgelöst, wenn jemand mit dem scrallrad oder mit den Pfeiltasten im Drawgrid rumnavigiert. Ich will das aber net.

Also muss ich irgendwie aus den Mauskoordinaten die Zellenkooridinate herausfinden.

Sollte an sich kein problem sein aber.....

wenn ich ein Drawgrid mit scrallbalken habe dann klappt das net so einfach, weil ja alles verschoben wurde.

Weis jemand wie man herausbekommtwo sich die maus relativ zur zelle 0|0 befindet?

Gruß snow

[DeddyH]

Schau Dir mal die Methode MouseToCell an.

[snow]

Sorry die hab ich nicht(delphi7)

kann es sein, dass die bei mir anders heißt oder das die erst ab einer neueren version geht?

gruß snow

[DeddyH]

Ich hab auch Delphi 7 ;)

Delphi-Quellcode:

procedure TForm1.DrawGrid1Click(Sender: TObject);
var Maus,p: TPoint;
begin
  Maus := DrawGrid1.ScreenToClient(Mouse.CursorPos);
  DrawGrid1.MouseToCell(Maus.X,Maus.Y,p.X,p.Y);
  ShowMessage(Format('X: %d, Y: %d',[p.X,p.Y]));
end;

[snow]

Danke schön. Jetz konnte ich einen bug beheben der mich schon seit Wochen genervt hat....

Gut das der Code so klein ist, da loht es sich nicht eine eigene komponente zu machen.

Gruß snow

[DeddyH]

Nee, das lohnt sich wirklich nicht :lol: