Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Вопрос есть! Попытка номер 2. 


MAN-IN-RED   (2002-01-27 23:11) [0]

Второй раз задаю этот вопрос, пожалуйста помогите.
Как программно посмотреть нажата ли левая кнопка мыши на компоненте TrackBar или нет?
Что-то вроде этого:
if кнопка нажата then

else

end.
Заранее благодарен!



Alx2   (2002-01-28 08:13) [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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
6-32298           Abzetdin              2001-11-18 22:08  2002.02.11  
Передача динамического массива через Сокеты


6-32301           Денис                 2001-10-15 13:19  2002.02.11  
Проблема с MAPI, письмо не отправляется.


14-32335          frostbite             2001-12-21 16:32  2002.02.11  
Ответы на вопросы


4-32368           Oxy2                  2001-11-01 00:30  2002.02.11  
Как конвертировать pst-файлы (OutLook2000) в dbx-файлы (OutLook Express 5)


1-32253           XX                    2002-01-28 11:24  2002.02.11  
Webbrowser - помогите