Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Entscheidungen treffen (https://www.delphipraxis.net/21234-entscheidungen-treffen.html)

Christian18 29. Apr 2004 16:31


Entscheidungen treffen
 
Hallo,

ich habe auf meiner Form eine ComboBox. In dieser sind sehr viele einträge vorhanden. Jeder Eintrag öffnet eine Form. (soll eine form öffnen)

Das wollte ich mir case machen kann ich das oder was nimmt man am besten??? (Also Entscheidungen treffen)

Christian Seehase 29. Apr 2004 16:35

Re: Entscheidungen treffen
 
Moin Christian,

Du kannst jedem Item in der ComboBox noch einen Zahlenwert mitgeben, da Du die Items auch mit AddObject hinzufügen kannst (als Objekt wird dann einfach TObject(Welcher32BitWertAuchImmer)) genommen.
Anschliessend kannst Du mit

Delphi-Quellcode:
case ComboBox1.Objects[IndexDesJeweilsAusgwähltenItems] of
  //...
end;
das entsprechende Formular auswählen.

Andere Variante:
Die Formulare werden in einem Array gespeichert, wobei der jeweilige Index mit dem Objekt des ComboBox.Items korrespondiert.

CalganX 29. Apr 2004 16:35

Re: Entscheidungen treffen
 
Hi,
nimm Case und frage die Eigenschaft ItemIndex ab, oder nimm die Strings. Dazu brauchst du aber [cl="Case strings"]eine spezielle Funktion[/cl]. ;)

Chris

Muetze1 29. Apr 2004 16:46

Re: Entscheidungen treffen
 
Moin!

Oder füge die Forms gleich als Instanz mit dem AddObject hinzu zu der ComboBox, dann brauchst du kein Case sondern zeigst die Form einfach an.

Delphi-Quellcode:
if ( ComboBox1.ItemIndex > -1 ) Then
  TForm(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Show;
MfG
Muetze1

Matze 29. Apr 2004 16:51

Re: Entscheidungen treffen
 
Öhm, wollt nur mal sagen, dass es besser wäre, wenn du, Christian18, den Titel ändern könntest.

Bei so einem Problem kommt keiner auf die Idde, nach Entscheidungen treffen zu suchen. ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:02 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