Hallo,

ich will folgendes erreichen : Clickt der User ein bestimmtes Editfeld an, so soll automatisch eine Listbox aufgehen, aus der er einen Wert auswählen kann. Kriege es aber nur mit einem separaten Button hin. Sobald dieser gedrückt wird, erscheint die Listbox. Beser wäre es, die käme automatisch.

Gruß
Hansa

Nimm doch eine normale ComboBox und füge diesen Code in das OnEnter Ereignis ein.

markieren

Code:

  if not ComboBox1.DroppedDown then
    ComboBox1.DroppedDown := True;

Hi,

entschuldige, aber Deine beschreibung für eine ComboBox ist einfach herrlich...


Grüsse, Daniel

EWigentlich steht es so fast im PSDK (zu mindest sinngemaäß):

Zitat:

A combo box consists of a list and a selection field. The list presents the options that a user can select and the selection field displays the current selection.

Wer ist dafür, dass sich Hansa in die Ecke stellt und sich eine Runde schämt? *handheb*

@Hansa: Falls wir dich falsch verstanden haben sorry. Einfach nicht ernst nehmen mein Posting.

Hi,

so, jetzt langst aber wieder. Wir wollen Ihn ja nciht verscheuchen.
Es könnte ja sein das er wirklich ein Edit haben will. Immerhin hat ein Edit kein Pfeil zum Aufklappen.
Drunter könnte man eine Listbox setzen mit "unvisible" und wenn er was macht, dann soll sie wieder "visibilisiert" werden.
Wäre ja Denkbar und möglich.

Grüsse, Daniel

@Luckie: Schämen sollte er sich wirklich nicht dafür.




[edit]edit by Admin[/edit]

War ja nur ein Scherz.

Hi,

oje, was ist das denn ?

wer redet denn hier von einer Combobox? 8) 8) 8)

Hier nochmals die Frage :

Zitat:

ich will folgendes erreichen : Clickt der User ein bestimmtes Editfeld an, so soll automatisch eine Listbox aufgehen, aus der er einen Wert auswählen kann

Das Feld hat absolut nichts mit der Listbox zu tun !!!!!
Habe es jetzt so hin gekriegt, daß die Listbox aufgeht, sobald das Editfeld angeclickt wird. Das Problem hat sich jetzt nur etwas verlagert: Die Box soll dann aufgehen (und zwar AUTOMATISCH !!), sobald der Cursor in dem Feld steht, auch ohne anclicken! Gehe ich mit der Tastatur in das Feld, geht sie noch NICHT auf.

Daniel B:

Zitat:

Immerhin hat ein Edit kein Pfeil zum Aufklappen.

EBEN !! Wenigstens einer, der mitdenkt.

Es geht um eine Eingabemaske mit so 100-200 Feldern auf ca. 3 bis 4 Seiten verteilt, mache ich das nicht absolut narrensicher und einfach schreiben irgenwelche Deppen nur Mist da rein!! Die Combobox ist schon zuviel. Das ganze noch mit SQL und ca. 10 Stammtabellen.

@Luckie: Wer lesen kann ist klar im Vorteil, hehe

Gruß
Hansa

OnEnter und OnExit schon probiert? Wie sieht dein Code denn bisher aus?

Aber ehrlich gesagt, warum keine Combobox? Die macht doch genau das, wass du willst oder nicht?

Hi Luckie,

weil es nunmal nicht so aussieht. Die ListBox geht auch an einer anderen Stelle auf dem Formular auf. Er hat nicht gesagt das es drunter sein muss. Und er wollte ja ein Edit und keine ComboBox. Den Unterschied kennt er sehr wohl.

Aber das OnEnter wird Ihm weiter helfen.
Wobei ich nciht verstehe, warum er nciht selbst drauf gekommen ist.

Grüsse, Daniel

markieren

Code:

[b]procedure[/b] TForm1.Edit1Enter(Sender: TObject);
[b]begin[/b]
  Listbox1.Visible := TRUE;
[b]end[/b];

[b]procedure[/b] TForm1.Edit1Exit(Sender: TObject);
[b]begin[/b]
  Listbox1.Visible := FALSE;
[b]end[/b];