Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Combobox (https://www.delphipraxis.net/66347-combobox.html)

Nessalio 28. Mär 2006 20:13


Combobox
 
Ich habe die Suche benutzt, aber irgendwie nicht so recht was gefunden, daher meine Frage:
Ich möchte eine Combobox benutzen, die bestimmte Prozentzahlen anzeigen soll, die der Anwender auswählen kann, und dieses soll dann von Delphi erkannt werden (also welche Prozentzahl der Anwender angeklickt hat).

Wie kann das funktionieren?

Danke schonmal für die Antworten!

mkinzler 28. Mär 2006 20:16

Re: Combobox
 
Als einfach die gewünschten Prozenzahlen in die Liste einfügen. Beim Auswaählen kannst du dann den Index abfragen.

Nils_13 28. Mär 2006 20:17

Re: Combobox
 
Oder du rechnest es, falls nötig, mit format um.

pacman1986 28. Mär 2006 20:20

Re: Combobox
 
Combobox1.text; ist glaube ich das was du suchst gibt den string zurück den du haben willst (der ausgewählte);

Nils_13 28. Mär 2006 20:25

Re: Combobox
 
Ist halt dann noch die Frage, wie du es anwenden willst, also welche z.B. Variable den Wert kriegt und dann wirst du noch Funktionen benötigen, außer du ziehst einfach das '%'-Zeichen ab, wenn du z.B. den Wert auf eine Integer-Variable verweisen willst.

Nessalio 28. Mär 2006 20:34

Re: Combobox
 
Danke euch allen, hat mir geholfen!
Ich hab das Prozentzeichen einfach abgezogen, schon hat's funktioniert!

gfjs 29. Mär 2006 03:12

Re: Combobox
 
%-Zeichen abziehen? Warum so umständlich?

Das %-Zeichen vor, hinter oder über die Combobox auf ein Label - dann stehen in der Combobox nur noch die Zahlen.

mfg gfjs

marabu 29. Mär 2006 06:15

Re: Combobox
 
Guten Morgen.

Mir gefällt eine andere Lösung. Ist der Style auf csOwnerDrawFixed gesetzt und wird folgender Code verwendet, dann triumphiert das Prinzip der Trennung von Daten und Darstellung:

Delphi-Quellcode:
procedure TDemoForm.ComboBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TComboBox do
  begin
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index] + '%');
  end;
end;
Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:37 Uhr.

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