Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

MouseMove в DriveComboBox?   Найти похожие ветки 

← →
Intell ©   (2003-03-30 14:35) [0]

Как создать процедуру MouseMove в DriveComboBox?

---

← →
vlad40 ©   (2003-03-30 16:00) [1]

Наверное, можно обрабатывать Application.OnMessage и определять, находится ли курсор в области DriveComboBox:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;

procedure TForm1.AppMessage( var Msg: TMsg; var Handled: Boolean);
begin
if msg.message=WM_MOUSEMOVE then
begin
if PtInRect(DriveComboBox1.BoundsRect,ScreenToClient(Mouse.CursorPos)) then
DriveComboBox1.Color:=clInfoBk
else
DriveComboBox1.Color:=clWindow;
end;
end ;

Может быть можно и проще

---

← →
Intell ©   (2003-03-31 15:19) [2]

Спасибо, попробую.

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.023 c