Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.055 c
1-1121376385
Графиг
2005-07-15 01:26
2005.08.07
Как сделать LoadFromStream для TPicture ?


9-1113916840
xsl
2005-04-19 17:20
2005.08.07
Новый проект JnB


14-1121304491
Soft
2005-07-14 05:28
2005.08.07
Зачем в аспирантуре изучают философию?


14-1121754577
Ega23
2005-07-19 10:29
2005.08.07
С днем рождения! 19 июля


14-1121515639
default
2005-07-16 16:07
2005.08.07
Работа Л.Заде "Нечеткие множества"