ComboBox mit Integer-IDs

[e-gon]

Hallo himitsu,

vielen Dank für die schnelle Antwort!

Auf die Idee das TObject zum Speichern meiner ID zu verwenden bin ich natürlich nicht gekommen...

Danke!

Gruß
e-gon

[Uwe Raabe]

Bei neueren Delphi-Versionen könnte man so was auch mit einem Class Helper realisieren. Das funktioniert dann mit jeder TComboBox.

Delphi-Quellcode:

type
  TComboBoxHelper = class helper for TComboBox
  private
    procedure SetId(Index, Id: Integer);
    function GetId(Index: Integer): Integer;
  public
    function AddIdItem(const s: string; const Id: Integer): Integer;
    property Id[Index: Integer]: Integer read GetId write SetId;
  end;

function TComboBoxHelper.AddIdItem(const s: string; const Id: Integer): Integer;
begin
  Result := Items.AddObject(s, TObject(Id));
end;

function TComboBoxHelper.GetId(Index: Integer): Integer;
begin
  Result := Integer(Items.Objects[Index]);
end;

procedure TComboBoxHelper.SetId(Index, Id: Integer);
begin
  Items.Objects[Index] := TObject(Id);
end;

[TUhr]

Hallo,

ich hatte mal ein ähliches Problem. Ich habe es damals wie folgt gelöst :
Ich habe die ersten 9 Zeichen des Strings sind die Zahlen-ID.
Der restliche Teil des Strings war die Zeichenkette.
Im Event OnDrawItem habe ich dann nur die Zeichenkette ausgeben lassen.....

Mfg
Thorsten

[banaguitar]

Hallo, auch, wenn der Beitrag schon älter ist, hier eine ähnliche Frage. Wie mache ich das mit mehreren zur Laufzeit unbekannten Anzahl von TImage32-Komponenten? Ich habe Delphi 12.
Da muss ich für jedes Bild die entsprechende ID und den Pfadnamen aus der Datenbanken mittracken, da ich die Daten zwecks Bearbeitung der Bilder benötige, um sie nachher in der Datenbank zu aktualisieren.

[omnibrain]

Wenn ich das richtig gesehen habe ist bei den Raize Components so eine ComboBox dabei.

[Olli73]

Du brauchst doch eigentlich nur eine Klasse (oder Record) in der Form:

Delphi-Quellcode:

TMyImage = class
  ID: Integer;
  Path: string;
end;

Und dann erzeugst du pro Image ein Objekt davon und machst ein AddObject zu dem entsprechenden Item der ComboBox.

[banaguitar]

Hi, alles klar, danke Dir, eine Combobox brauche ich aber nicht. Wenn man auf das jeweilige Bild klickt, soll sich ein neues Formular öffnen, wo man dann weitere Bearbeitungen daran vornehmen kann. Das ist aber kein Problem. Mein Problem ist nur, dass ich mir ja die Daten wie ID, path usw. von dem Bild/TImage32 merken und zuordnen muss.