Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Koordinaten einer Stringgrid-Zelle auslesen (https://www.delphipraxis.net/100714-koordinaten-einer-stringgrid-zelle-auslesen.html)

naudoc 3. Okt 2007 00:30


Koordinaten einer Stringgrid-Zelle auslesen
 
Hallo,

da ich ihn hier nach meiner Suche nicht finden konnte, muss ich selbst fragen:
Wenn in eine Zelle geklickt wird, wie kann ich dann deren Koordinaten auslesen?

und nochwas...
Gibts nen Befehl, der statt einer einzigen Zelle immer die Zeile markiert, in die geklickt wurde?

Danke schonmal!

mfG
Max

quendolineDD 3. Okt 2007 00:37

Re: Koordinaten einer Stringgrid-Zelle auslesen
 
Also zum ersten kannst du über die Ereignisse gehen ...

Delphi-Quellcode:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
ShowMessage('Zeile'+ inttostr(ARow) +' und Spalte '+ inttostr(ACol));
end;
Bei dem SelectCell werden aber FixedRows und FixedCols nicht mit berücksichtigt, da diese nicht klickbar sind. Ob dies bei Options goEditing dann auch klappt, weiß ich nun auch nicht.

Zu deiner zweiten Frage kannst du dir über Canvas beim SelectCell Ereignis dir die passende Zeile raussuchen und dann die gesamte Zeile selber markieren :)

marabu 3. Okt 2007 07:51

Re: Koordinaten einer Stringgrid-Zelle auslesen
 
Hallo Max,

wenn du den Inplace-Editor (goEditing) des Grids nicht nutzt, dann kannst du die Zeilenmarkierung (goRowSelect) aktivieren:

Delphi-Quellcode:
procedure TDemoForm.StringGridSelectCell(Sender: TObject; ACol,
    ARow: Integer; var CanSelect: Boolean);
begin
  with Sender as TStringGrid do
    if not (goRowSelect in Options) then
      Selection := TGridRect(Rect(FixedCols, ARow, Pred(ColCount), ARow));
end;
Getippt und nicht getestet.

Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz