Wie erfahre ich, auf welche Zeile im Stringgrid geklickt wurde?

[jumper63]

SORRY!:(
War lang nicht dabei, hab bisher irgendwo alles finden können, was ich brauchte.
Aber, seit WOCHEN suche ich und finde nicht!

In Stringgrid.MousDown erfahre ich die Maus-Koordinaten, aber ich benötige
die Angabe Col,Row, um die Werte der jeweiligen Zeile auszulesen.

Habe dies hier gefunden, aber beim Klick auf eine Zeile/Zelle zeigt mir die ListBox
völlig falsche Werte an!
BIN ABSOLUT DANKBAR für EURE HILFE!!!

Folgender Befehl bezieht sich doch auf die gesamte Form, oder?
p:=ScreenToClient(Point(x, y));

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var   p: TPoint;
Col,Row: Integer;
begin
with StringGrid1 do// 
     begin         //
     L:=Left;      //
     T:=Top;       //
p:= ScreenToClient(Point(x, y));
//StringGrid1.MouseToCell(p.x, p.y, Col, Row);  // Alt HOHE FEHLER Quote
StringGrid1.MouseToCell(p.x+L, p.y+T, Col, Row);// Neu geringe FEHLER Quote
ListBox1.Items.Add('Col,Row='+IntToStr(Col)+','+IntToStr(Row));
PopUpMenu1.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);// Das klappt
end;

Col,Row Werte stimmen NICHT mit geklickter Zeile/Zelle überein!

Nachtrag, hab die x,y Werte von ScreenToClient etwas verändert,
so wird Col,Row (fast)richtig angezeigt-
StringGrid1ToClient nimmt Delhi nicht

[KodeZwerg]

Hallo, ich gebe ein kleines Beispiel, lege dazu ein mousedown event an:

Delphi-Quellcode:

procedure TForm17.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow: Integer;
begin
  StringGrid1.MouseToCell(X, Y, ACol, ARow); // hier bekommt ACol und ARow ihre entsprechenden werte
  Edit1.Text := StringGrid1.Cells[ACol, ARow]; // hier lese ich die zelle aus
end;

Viel spass

[Jasocul]

Oder man nimmt das Event OnSelectCell.

[hoika]

Hallo,
er will aber ein PopupMenu erstellen.
Und das wahrscheinlich auf die rechte Maustaste.

[KodeZwerg]

Zitat:

Zitat von hoika (Beitrag 1496753)

Hallo,
er will aber ein PopupMenu erstellen.
Und das wahrscheinlich auf die rechte Maustaste.

Zitat:

Wie erfahre ich, auf welche Zeile im Stringgrid geklickt wurde?

hmmmm, mal abwarten (-:

[Jasocul]

Sorry, ich habe nur den Text gelesen und nicht den Source (der nicht mal compilieren würde).
Aber auch im Source steht nichts von rechter Maustaste. D.h.: Das PopUp wird auch bei linker Maustaste angezeigt. Und wenn ich schon am meckern bin: Bitte kein "with" im Source.:wink:

[hoika]

Hallo,
das mit der rechten Maustaste hatte ich so im Gefühl ;)

[Delphi.Narium]

Zitat:

Zitat von jumper63

aber ich benötige die Angabe Col,Row, um die Werte der jeweiligen Zeile auszulesen.

Dafür braucht man eher kein Menü, egal mit welcher Maustaste.

Genauer als

Zitat:

Zitat von Jasocul

Oder man nimmt das Event OnSelectCell.

geht es da nicht.

[KodeZwerg]

OnSelect wird doch auch gefeuert wenn man mit Tastatur sich im Grid bewegt? (auf welche Zeile im Stringgrid geklickt wurde = maus event)

[Delphi.Narium]

Zitat:

Zitat von KodeZwerg (Beitrag 1496767)

OnSelect wird doch auch gefeuert wenn man mit Tastatur sich im Grid bewegt? (auf welche Zeile im Stringgrid geklickt wurde = maus event)

Und für die Leute, die "so dreist sind" ;-) das Programm per Tastatur zu bedienen, bauen wir eine extra Lösung?

Ein Programm, bei dem ich bestimmte Aktionen nur per Maus erreichen kann, benutze ich nicht.