Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.04;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.012 c
15-1191239675
Нина
2007-10-01 15:54
2007.11.04
Маштабирование экранных форм


15-1190767093
DimaL
2007-09-26 04:38
2007.11.04
Связь с 1С


2-1191956594
aids
2007-10-09 23:03
2007.11.04
алгоритм


2-1191913114
jslayer
2007-10-09 10:58
2007.11.04
запуск приложения


15-1190833172
Ricks
2007-09-26 22:59
2007.11.04
Новый компьютер -> новые возможности -> новые проблемы