Скачать: CL | DM;

TTrackBar   Найти похожие ветки 

← →
Делфи   (2006-11-02 17:29) [0]

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

---

← →
RASkov   (2006-11-03 01:06) [1]

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;

---

← →
RASkov   (2006-11-03 01:07) [2]

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

---

← →
RASkov   (2006-11-03 01:15) [3]

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

---

← →
Ketmar ©   (2006-11-03 01:45) [4]

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

---

← →
DimaBr   (2006-11-03 10:56) [5]

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

---

← →
DimaBr   (2006-11-03 12:27) [6]

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

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

---

← →
DimaBr   (2006-11-03 12:31) [7]

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

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

---

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

Скачать: CL | DM;



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