Combobox и размещение DropedDown-списка

← →
Pauk (2003-07-24 13:23) [0]

как сделать. чтобы DropDown список формировался по правому краю Comboboxa

← →
Pauk (2003-07-24 14:56) [1]

надо очень!
DropDown.width>combobox.width

← →
Pauk (2003-07-24 16:39) [2]

help

← →
clickmaker © (2003-07-24 17:34) [3]

Никак. Можно только расширить сам список, послав ему CB_SETDROPPEDWIDTH

← →
Marser © (2003-07-24 18:42) [4]

Стандартный никак.

← →
Pauk (2003-07-24 19:59) [5]

ну и на этом спасибо
наконец то я успокоился

TComboBox.onDrawItem + DrawText с форматированием

>Pauk (24.07.03 19:59)
Если нельзя, но очень хочется :-)

FSaveComboWindowProc: TWndMethod;
procedure MyComboWindowProc(var Message: TMessage);

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
FSaveComboWindowProc := ComboBox1.WindowProc;
ComboBox1.WindowProc := MyComboWindowProc;
end;

procedure TForm1.MyComboWindowProc(var Message: TMessage);
begin
if Message.Msg = WM_CTLCOLORLISTBOX then begin
ComboBox1.WindowProc := FSaveComboWindowProc;
SetWindowPos(Message.LParam, 0, 100, 100, 0, 0, SWP_NOSIZE or SWP_NOZORDER)
end;
FSaveComboWindowProc(Message)
end;

Combobox и размещение DropedDown-списка Найти похожие ветки