Einzelnes Wort eines String in anderer Farbe?

[Matze]

Hi,

wenn du's ganz schlampig machen möchtest, dann ginge es so (von mir hast du das aber nicht ):

Bastel dir den Dialog selbst mittels neuem Formular und erzeuge darauf dynamisch Labels. DlgForm ist der Name des Formulars. Eine Funktion kannst du dir natürlich selbst daraus basteln:

Delphi-Quellcode:

var
  myLbl1, myLbl2, myLbl3: TLabel;
begin
  // linkes Label
  myLbl1 := TLabel.Create(DlgForm);
  with myLbl1 do
  begin
    Autosize := true;
    Font.Color := clBlack;
    Parent := Form1;
    Top := 30;
    Left := 20;
    Name := 'myLbl1';

    Caption := 'Das Produkt ';
    Show;
  end;

  // mittleres Label
  myLbl2 := TLabel.Create(DlgForm);
  with myLbl2 do
  begin
    Autosize := true;
    Font.Color := clRed;
    Parent := Form1;
    Top := 30;
    Left := 20 + myLbl1.Width;
    Name := 'myLbl2';

    Caption := 'Eierkuchen';
    Show;
  end;

  // rechtes Label
  myLbl3 := TLabel.Create(DlgForm);
  with myLbl3 do
  begin
    Autosize := true;
    Font.Color := clBlack;
    Parent := Form1;
    Top := 30;
    Left := 20 + myLbl1.Width + myLbl2.Width;
    Name := 'myLbl3';

    Caption := ' befindet sich schon im Korb! ';
    Show;
  end;
end;

Eine schönere Möglichkeit wäre, das ganze selbst zu zeichnen.
Edit: Mini-Beispiel im Anhang.