Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Prism Combobox.Text Eigenschaft mit Objekt-Items (https://www.delphipraxis.net/92941-combobox-text-eigenschaft-mit-objekt-items.html)

Steve9825679 29. Mai 2007 09:38


Combobox.Text Eigenschaft mit Objekt-Items
 
Hallo!

Ich habe einige Beiträge schon gefunden im Forum (und auch in anderen), aber dieses spez. Problem habe ich leider noch nicht gefunden.
Und zwar gehts um eine Combobox unter .NET, der als Items Objekte hinzugefügt werden - soweit kein Problem:
Delphi-Quellcode:
var G : cGruppe;
begin
  G:=cGruppe.Create;
  G.ID:=ZeroGuid;
  G.Grp:='[[neueGruppe]]';
  G.Display:='[[ neue Gruppe erster Ebene ]]';
  G.ParentID:=ZeroGuid;
  Combobox1.Items.Add(G);
  //und noch viele weitere Einträge ähnlicher Art
end;
Ich zeichne die Combobox logo selber, und auch bis hierher kein Problem:
Delphi-Quellcode:
procedure TWinForm.DrawComboboxItem(sender: TObject; e: DrawItemEventArgs);
var g : Graphics;
    Grp : cGruppe;
    f : System.Drawing.Font;
begin
  g:=e.Graphics;
  Grp:=cGruppe(Combobox1.Items.Item[e.Index]);
  if e.State = e.State or DrawItemState.Selected then
    g.FillRectangle(SolidBrush.Create(Color.Orange), e.Bounds)
  else
    g.FillRectangle(SolidBrush.Create(Color.White), e.Bounds);
  f:=System.Drawing.Font.Create('Calibri', 12);
  g.DrawString(Grp.Display, f, SolidBrush.Create(Color.Black), e.Bounds);
end;
Aber wenn ich jetzt einen Eintrag auswähle, erscheint als Text in der geschlossenen Combobox der Name der Klasse "cGruppe" anstatt des gewünschten Eintrags. Es ist logisch, die gewünschte Property (in diesem Fall Grp.Display) aus dem ausgewählten Combobox-Eintrag wieder rauszuschälen - aber wo bitte? Ich hab bereits alle Methoden systematisch durchprobiert, leider nicht erfolgreich.

Bitte um Hilfe!

LGs Stefan


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz