Werte in Combobox einfügen klappt so nicht

[Popov]

Was funktioniert nicht? Es tut sein Dienst. Was speziell entspricht nicht den Vorstellungen?

Es ist nun mal so, dass man entweder eine Liste hat die nicht verändert werden soll oder eine Liste die man durch Texteingabe ergänzen kann.

[khh]

die Liste geht nicht auf

[Popov]

Hast du sie auch richtig platziert in ComboBoxEnter? Sie müsste jedes Mal aufgehen wenn die ComboBox den Fokus neu bekommt.

[khh]

Zitat von Popov:

Hast du sie auch richtig platziert in ComboBoxEnter? Sie müsste jedes Mal aufgehen wenn die ComboBox den Fokus neu bekommt.

ja hab ich

[Popov]

Zitat von khh:

Zitat von Popov:

Hast du sie auch richtig platziert in ComboBoxEnter? Sie müsste jedes Mal aufgehen wenn die ComboBox den Fokus neu bekommt.

ja hab ich

Und jetzt?

[khh]

vielleicht liegt es am Lazarus

[BadenPower]

Zitat von khh:

vielleicht liegt es am Lazarus

Ja es liegt an Lazarus.

Aber es liegt auch an Dir, dass Du keine Lösung gefunden hast.
Stichwort: mangelnde Grundlagen

Wenn .Perform() nicht funktioniert, dann nimmt man halt SendMessage und schon funktioniert das automatische Aufklappen der Box auch unter Lazarus:

Delphi-Quellcode:

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  SendMessage(TComboBox(Sender).Handle, CB_SHOWDROPDOWN, 1, 0);
end;

[himitsu]

Zitat:

Delphi-Quellcode:

with TComboBox(Sender) do
begin
  Perform(CB_SHOWDROPDOWN, WParam(True), 0); // WParam(False) für zu
  SetFocus;
end;

Man kann auch bissl rumspielen.
Vielleicht geht es ja auf, aber irgendwas macht es wieder zu?

Delphi-Quellcode:

with TComboBox(Sender) do
begin
  SetFocus;
  Perform(CB_SHOWDROPDOWN, WParam(True), 0); // WParam(False) für zu
end;

oder

Delphi-Quellcode:

with TComboBox(Sender) do
begin
  SetFocus;
  Application.ProcessMessages;
  Perform(CB_SHOWDROPDOWN, WParam(True), 0); // WParam(False) für zu
end;

uvm.

PS:

Zitat von MSDN: CB_SHOWDROPDOWN message:

Remarks
This message has no effect on a combo box created with the CBS_SIMPLE style.

[Popov]

Eigentlich reden wir vom Style csDropDown, müsste also klappen. In Delphi. Und wie gesagt, den Code oben habe ich getestet.

Aber wo wir schon beim Thema sind, wobei das Problem ich aber bei mir sehe, denn in den Eigenschften des TE steht ja, dass mit Lazarus programmiert wird, aber es wäre dennoch nicht falsch den Hinweis auch so mal fallen zu lassen. Für die Unaufmerksamen wie mich.

[Luckie]

Wenn Lazarus nichts eigenes gebastelt hat und es sich um das native Windows Steuerelement handelt, wüsste ich nicht, was Lazaurs damit zu tun haben sollte.