Вопрос есть! Попытка номер 2.
MAN-IN-RED © (2002-01-27 23:11:00)
Второй раз задаю этот вопрос, пожалуйста помогите.
Как программно посмотреть нажата ли левая кнопка мыши на
компоненте TrackBar или нет?
Что-то вроде этого:
if кнопка нажата then
…
else
…
end.
Заранее благодарен!
Alx2 (2002-01-28 08:13:00) [1]
Подскажу только как сделать доступным метод OnMouseDown,
который будет вызываться при нажатии кнопок мышки на trackbar;
TMyTrack = class (ttrackBar)
property OnMouseDown;
end;
.....
procedure TForm1.FormCreate(Sender: TObject);
begin
TMyTrack(TrackBar1).OnMouseDown := TrackMouseDown;
end;
.........
procedure TForm1.TrackMouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Что-то делаем, если Button=mbLeft
end;
Наверх 
ЧАТ |
Орешник |
|
