Текущий архив: 2005.08.07;
Скачать: CL | DM;
Вниз
ComboBox отступ от границ Найти похожие ветки
← →
tmp266011 (2005-07-16 17:56) [0]господа, помогите плз разобраться. Задача состоит в следующем: есть стандартный ComboBox, style = csDropDown, сейчас текстовое значение "внутри него" прибито к левому краю, ну, практически сливается с оформлением, а можно ли сделать отступ от него, ну по типу добавления пробела до основного текста?
т.е вот в TEdit, всё решалось с помощью Edit2.Perform(EM_SETMARGINS,EC_LEFTMARGIN,LPARAM(2)); а вот с ComboBox, такой трюк не прокатывает. что делать? пробовал пр разному и EM_SETRECT, но EM_SETRECT вообще тут похоже работать не будет. итог: что делать, подкрепите сразу примером, пожалуйста. спсибо. надеюсь я доступно изложил свою проблему.
← →
default © (2005-07-16 19:22) [1]
TModifyCombobox = class(TCombobox)
property EditHandle;
end;
var
Form1: TForm1;
X: TModifyCombobox;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
X := TModifyCombobox.Create(Self);
X.Parent := Self;
SendMessage(X.EditHandle, EM_SETMARGINS, EC_LEFTMARGIN,LPARAM(2))
end;
← →
Джо © (2005-07-17 02:11) [2]Еще проще:
type
THackedComboBox = class (TComboBox)
property EditHandle;
end;
...
SendMessage(THackedComboBox(ComboBox1).EditHandle, EM_SETMARGINS, EC_LEFTMARGIN,LPARAM(20))
Страницы: 1 вся ветка
Текущий архив: 2005.08.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
