Verknüpfung StringGrid

[Sievo]

Hmm

also ich hab mir jetzt überlegt die Zelle erst dann zu Färben wenn da 'KundenNr. + Kundennummer.text'
drin steht. also müsste ich doch das state so setzen das da raus kommt:

Delphi-Quellcode:

IF state [Auftragseingabe.Drawtext := 'KundenNr. + Kundennummer.text']
  then begin 
          with TStringGrid(Sender).Canvas do begin
          if (ACol=1) and (ARow=1) then begin // <=======
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
    end;
end;

Aber dazu müsste ich ja erstmal hinbekommen das die durch die eingabe selektierten Felder beschriftet werden mit 'KundenNr. + Kundennummer.text'.
oder ist sowas garnicht möglich?

[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;

[Sievo]

Man Man Man ^^

Das klappt ja wie sau!!

Vielen Dank!!!!

Nur das ich halt nicht hinbekomme das in die selektierten Felder automatisch der Eintrag
'KundenNr. + Kundennummer.text' eingetragen wird. Mein obiger erster Quelltext.

Delphi-Quellcode:

 begin
   
    select.Left := SelStart.X + StrToIntDef(Auftragslaenge.Text, 0) - 1;
    select.Right := SelStart.X;
    select.Top := SelStart.Y;
    select.Bottom := SelStart.Y;
    Auftragseingabe.Selection := select;
  end;

Bedeutet ja sozusagen das diese felder Selektiert werden aber ich muss dann auch noch dazu in die felder eintragen 'KundenNr. + Kundennummer.text'.