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

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

TTrackBar [D7]

Делфи ©   (2006-11-02 17:29:00) 

Подскажите как добавить к компоненту TTrackBar событие при опускании мыши?

---

DimaBr   (2006-11-03 12:31:00) [1]

Можно реализовать без создания нового компонента, для этого кидаем на форму TTrackBar, и перед описанием формы пишем
type
TTrackBar = class(ComCtrls.TTrackBar)
 property OnMouseUp;
end;
 TForm1 = class(TForm)
......
а в форме назначаем готовое событие

procedure TForm1.FormCreate(Sender: TObject);
begin
 TrackBar1.OnMouseUp := MyMethodTrackBarMouseUp;
end;

---

DimaBr   (2006-11-03 12:27:00) [2]

Жалко что удалил, смешно было. Ответ на вопрос "Kак добавить к компоненту TTrackBar событие при оТпускании кнопки мыши?"

TMyTrackBar = class(TTrackBar)
 published
   property OnMouseUp;
end;

---

DimaBr   (2006-11-03 10:56:00) [3]

Удалено модератором

---

Ketmar   (2006-11-03 01:45:00) [4]

Удалено модератором

---

RASkov   (2006-11-03 01:15:00) [5]

Удалено модератором

---

RASkov   (2006-11-03 01:07:00) [6]

Т.е. это без создания своего компонента....
Ну а создать свой несложно... нужно просто "открыть" нужные методы TControl'а...

---

RASkov   (2006-11-03 01:06:00) [7]

type
 TMyTrackBar = class(TTrackBar)
   procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
   procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
   procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
   procedure WMMButtonDown(var Message: TWMMButtonDown); message WM_MBUTTONDOWN;
 end;
 TTrackBar = class(TMyTrackBar);

 TForm1 = class(TForm)
   TrackBar1: TTrackBar;
  ....
 end;
......

procedure TMyTrackBar.WMLButtonDown(var Message: TWMLButtonDown);
begin
 ShowMessage('WMLButtonDown');
end;

procedure TMyTrackBar.WMMButtonDown(var Message: TWMMButtonDown);
begin
 ShowMessage('WMMButtonDown');
end;

procedure TMyTrackBar.WMNCLButtonDown(var Message: TWMNCLButtonDown);
begin
 ShowMessage('WMNCLButtonDown');
end;

procedure TMyTrackBar.WMRButtonDown(var Message: TWMRButtonDown);
begin
 ShowMessage('WMRButtonDown');
end;

---

Наверх