Stringgrid OnClick ausserhalb der Rows

[Vbxler]

Hallo an Alle,

ich habe ein Stringgrid, das ist mit einigen Zeilen gefüllt ist
und unter diesen Zeilen ist die leere Fläche für mögliche weitere Zeilen.
Wenn ich jetzt auf diese leer Fläche unterhalb klicke, bekomme ich eine
OnClick in der untersten Zeile in der darüberliegenden Spalte.

Gebt es eine Möglichkeit, dass ich ermitteln kann, ob ausserhalb der Rows geklickt wurde?

[Socke]

Gebt es eine Möglichkeit, dass ich ermitteln kann, ob ausserhalb der Rows geklickt wurde?

Ja: selber rechnen. Eine andere, vorgefertigte Möglichkeit ist mir nicht bekannt.

[Vbxler]

Dann werde ich OnMouseDown verwenden, da bekomme ich x,y geliefert
und mit MouseToCell bekomme ich ja wieder die Row und Col.

[Michl]

Dazu müsstest du noch AllowOutboundEvents auf False setzen, da du sonst immer die letzt möglichen Cols/Rows bekommst z.B:

Code: Alles auswählen

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ACol,ARow:integer;
begin
  StringGrid1.AllowOutboundEvents:=False;
  StringGrid1.MouseToCell(X,Y,ACol,ARow);
  if ACol <> -1 then
    Caption:='Maus ist in Zelle ['+inttostr(ACol)+'/'+inttostr(ARow)+']'
  else
    Caption:='Maus befindet sich außerhalb des Zellenbereichs!';
end;

[theo]

Code: Alles auswählen

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
   if (Sender as TStringGrid).ScreenToClient(Mouse.CursorPos).Y >  (Sender as TStringGrid).GridHeight then ShowMessage('ausserhalb');
end;
 

[Vbxler]

Vielen Dank für Eure hilfreichen Antworten.
Durch die tolle Hilfe in diesem Forum kann man viel lernen, was man sonst nie herausfinden würde.