Stringgrid Rowselect

[Lannes]

Hallo,

@Keldorn: genau so, hab es gerade in der Nähe gehabt:

beim Start alle deselectieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Selection:= TGridRect(Rect(-1,-1,-1,-1));
StringGrid2.Selection:= TGridRect(Rect(-1,-1,-1,-1));
StringGrid3.Selection:= TGridRect(Rect(-1,-1,-1,-1));
end;

das folgende bei allen Grids entsprechend anwenden.

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
begin
StringGrid2.Selection:= TGridRect(Rect(-1,-1,-1,-1));
StringGrid3.Selection:= TGridRect(Rect(-1,-1,-1,-1));
end;