Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Combobox List Ferngesteuert öffnen?? (https://www.delphipraxis.net/119367-combobox-list-ferngesteuert-oeffnen.html)

NickelM 25. Aug 2008 14:44


Combobox List Ferngesteuert öffnen??
 
Hi leute,

Gleich vorhab hab delphi 5.

Ich wollte mir eine Komponente schreiben, wo ich in der ComboBox den anfang angebe und dann sich selbst ne liste öffnet mit den gleichen Buchstaben an anfang wie in der Combobox steht, also wie beim Internet Explorer.

So eine frage kam schon oft, únd weiß dahar das es keine gibt.

Mein Problem liegt darin, das wenn ich mit SendMessage die Message zum öffnen der Liste sende, der Cursor aufm Formular weg ist.
Erst wenn ich klicke ist sie wieder da. Woran leigt das??? Es gibt ne eigenschaft namens MouseCapture.
Wenn ich sie public mache und dan false sage bringt auch nichts. Woran leigt das?? habe ich was vergessen??

Mit deisem Code öffne ich sie
Delphi-Quellcode:
SendMessage(ComboBox.Handle,CB_SHOWDROPDOWN,1,0);
Die Liste wird gezeigt aber Cursor ist weg. Hoffe jemand weiß warum.

Danke schonmal im vorraus.

Gruß NickelM

DelphiKlaus 25. Aug 2008 15:25

Re: Combobox List Ferngesteuert öffnen??
 
Hallo,

versuchs doch mal mit ComboBox.DroppedDown := True

MfG

Klaus

NickelM 25. Aug 2008 15:31

Re: Combobox List Ferngesteuert öffnen??
 
lol......

Der führt den gleichen code aus.

Habs auch schon damit gemahct geht auch net

taaktaak 25. Aug 2008 15:56

Re: Combobox List Ferngesteuert öffnen??
 
Aprilscherz?
Deinen Code z.B. ins OnKeyDown() der Combobox gesetzt: Es verschwinden weder das Caret noch der Cursor (Delphi7) :cyclops:

NickelM 25. Aug 2008 16:19

Re: Combobox List Ferngesteuert öffnen??
 
Also wenn ich deisen Code:
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
var Name : String;
begin
Table5.First;
ComboBox1.Items.Clear;
while not Table5.eof do
begin
Name := Copy(Table5.FieldByName('Vorname').AsString,0,Length(ComboBox1.Text));
If UpperCase(Name) = UpperCase(ComboBox1.Text) then
ComboBox1.Items.Add(Table5.FieldByName('Vorname').AsString);
Table5.Next;
end;
SendMessage(ComboBox1.Handle,CB_SHOWDROPDOWN,1,0);
end;
Ausführe ist er weg???
Liegt das vieleicht an OnChange??? Bei KeyUp gehts auch net. Bei KeyPress fügt er den buchstaben vorne dran.

Ich hab es mal jetzt mehrmals getestet es leigt vieleicht an den eingegebenen Buchstaben.
Wenn ich bei mir z.b. groß a eingebe verschwindet sie. Auch wenn ich ne überprüfung für den Key mache gehts net. Warum??????
Woran kann das liegen.

Auch wenn ich nur die Message sende ist es so

toms 25. Aug 2008 19:40

Re: Combobox List Ferngesteuert öffnen??
 
Hallo, ich kann dieses Verhalten mit D6 / XP nicht nachvollziehen.


Zitat:

Die Liste wird gezeigt aber Cursor ist weg. Hoffe jemand weiß warum.
Wie wärs mit Focus zurück setzen?

PS: Gibt's unter D5 noch keine AutoComplete / AutoDropDown Eigenschaften?

NickelM 25. Aug 2008 19:58

Re: Combobox List Ferngesteuert öffnen??
 
@toms:

Ne gibts net :roll:

Hab ich auch schon versucht.

hab
Delphi-Quellcode:
ComboBox.SetFocus;
Gemacht. bringt aber auch nichts.

Oder meinst du was anderes???


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