| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не помещается вся сторка в ComboBox [D5, Win2k]

harismatik ©   (2002-08-09 18:11:00) 

Народ!!! Возникла такая трабла: не помещается вся строка в ComboBox и поэтому не ясно, какая запись выбирается (видимые начала у них одинаковые). Увеличить длину компонента нельзя. Как сделать так, чтоб при наведении мышкой на строку в выпавшем списке СomboBoxa, появлялась эта строка по типу подсказки?

---

Skier   (2002-08-09 18:46:00) [1]

>harismatik
Это если текст не умещается в само окно TComboBox-а...

---

Skier   (2002-08-09 18:44:00) [2]

Ой! Про объявление забыл :)


THintComboBox = class(TComboBox)
private
FHintCopy : String;
FOutOfWindow : Boolean;
protected
procedure CMMouseEnter(var Message: TMessage); message
CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message
CM_MOUSELEAVE;
public
constructor Create(AOwner : TComponent); override;
end; //THintComboBox


---

Skier   (2002-08-09 18:41:00) [3]

>harismatik

Набросок :


procedure THintComboBox.CMMouseEnter(var Message: TMessage);
var
ADC : HDC;
begin
ADC := GetDC(Handle);
try
Canvas.Handle := ADC;
if Canvas.TextWidth(Text) +
GetSystemMetrics(SM_CXHSCROLL) +
3*GetSystemMetrics(SM_CYEDGE) > Width then begin
FOutOfWindow := True;
FHintCopy := Hint;
Hint := Text;
end; //if
finally
ReleaseDC(Handle, ADC);
end; //try
end;

procedure THintComboBox.CMMouseLeave(var Message: TMessage);
begin
if FOutOfWindow then begin
FOutOfWindow := not FOutOfWindow;
Hint := FHintCopy;
end //if
end;

constructor THintComboBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FOutOfWindow := False;
ShowHint := True;
FHintCopy := EmptyStr;
end;

//создание...

procedure TForm1.FormCreate(Sender: TObject);
var
AHintComboBox : THintComboBox;
begin
AHintComboBox := THintComboBox.Create(Self);
AHintComboBox.Left := 470;
AHintComboBox.Hint := "Hint";
AHintComboBox.Parent := Self;
AHintComboBox.Items.Add("long string");
AHintComboBox.Items.Add("very very very long string");
end;



---

bad-md   (2002-08-09 18:35:00) [4]

Может быть проще увеличить ширину выпадающего списка?


MyComboBox.Perform(CB_SETDROPPEDWIDTH, XXX, 0);


"XXX" - требуемая ширина, в пикселях.


Определить минимальную необходимую ширину - у каждого свой выбор...

---

Наверх