Selected Cell nach Focuswechsel nicht einfärben

[marabu]

Hallo,

wenn du keine eigene Zeichenroutine einsetzen möchtest, dann kannst du auch einfach die Selection entfernen, sobald das Grid verlassen wird:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    StringGrid: TStringGrid;
    procedure StringGridExit(Sender: TObject);
    procedure StringGridEnter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    GridRect: TGridRect;
  end;

{ ... }

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  StringGridExit(StringGrid);
end;

procedure TDemoForm.StringGridExit(Sender: TObject);
begin
  with Sender as TStringGrid do
  begin
    GridRect := Selection;
    Selection := TGridRect(Rect(-1,-1,-1,-1)); 
  end;
end;

procedure TDemoForm.StringGridEnter(Sender: TObject);
begin
  with Sender as TStringGrid do
    Selection := GridRect;
end;

Grüße vom marabu