Verknüpfung StringGrid

[shmia]

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  ZellenText : string;
begin
  if State = [] then // NICHT Selected, Focused oder Fixed
  begin
    // erstmal aktuelle Zelle auslesen
    ZellenText := TStringGrid(Sender).Cells[ACol, ARow];
    with TStringGrid(Sender).Canvas do begin
       // Prüfen, ob Zelle mit bestimmten Text beginnt
       if Copy(ZellenText, 1,9)= 'KundenNr.' then
       begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
    end;
  end;
end;