Delphi Tips & Tricks softsale > Delphi Tips & Tricks      

< poprzednia rada następna rada >

Jak rozwinąć comboboxa bez kliknięcia ?

Chcemy np aby nasz combobox rozwijał się nie po kliknięciu na nim a np po nasunięciu się na niego myszką. W tym celu przejmujemy ubsługę zdarzenia OnHint dla comboboxa a samo rozwinięcie realizujemy przez wysłanie odpowiedniego komunikatu korzystając z funkcji SendMessage.

function dropcombo(moj_kombo:TCombobox):longint;
begin
result:=sendmessage(moj_kombo.handle,1039,1,0);
end;

Ilustruje to przykład tip29.zip


SOFTSALE - Oprogramowanie i Szkolenia
softsale@softsale.com.pl

03-565 Warszawa , ul. Borzymowska 43 lok. 301C
tel/fax:4084840,GSM:0607612428