Frage zu TStringGrid

[DelTurbo]

Hi,

ich habe folgende frage zu einer celle in einem StringGrid. Wie kann ich z.b. in einer bestimmen zelle ein Dynamisch erstelltes objekt (z.b. eine ProgressBar oder Button oder sonstwas) darstellen. Im moment geht es mir um eine ProgressBar. Aber ich möchte die frage allgemein halten, wer weiss was mir noch einfällt

Ich habe ja mit folgenden code zugriff beim zeichen. In diesem fall um Text zu zentrieren. Kann man an dieser stelle dem irgendwie "sagen" er soll ein anderes objekt darstellen?

Vielen dank im voraus

Delphi-Quellcode:

procedure TForm1.DrawTradedCells(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
var
  s: string;
begin
   if ( ARow>0 ) then begin
      if ( (ACol=1) OR (ACol=3) OR (ACol=4)) then begin
        s := Table.Cells[ACol, ARow]; // Text der Zelle holen
        Table.Canvas.FillRect(Rect); // Zelle leer überzeichnen
        DrawText(Table.Canvas.Handle, PChar(s), Length(s), Rect, DT_SINGLELINE or DT_Center or DT_VCENTER); // Text zentriert zeichnen
      end;
   end;

end; {TForm1.DrawTradedCells(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState)}