Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

Строка состояния в видео проигрывателе   Найти похожие ветки 

 
zero-g ©   (2004-09-02 01:32) [0]

Люди у меня вопрос. Вот я использую Gauge1 для отоброжения состояния просмотра видео файла, как определить когда я кликнул на нее, то накакую позицию в видео файле мне надо перейти ???
А если точнее, как мне узнать куда я кликнул на Gauge1... вобщем вот...


 
GuAV ©   (2004-09-02 04:01) [1]

имхо проще всего так:
type TXGauge = class(TGauge);

procedure TForm1.GaugeMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Caption:=Format("Up at (%d,%d)",[X, Y]);
end;

procedure TForm1.GaugeMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Caption:=Format("Dn at (%d,%d)",[X, Y]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 TXGauge(Gauge1).OnMouseDown:=GaugeMouseDown;
 TXGauge(Gauge1).OnMouseUp:=GaugeMouseUp;
end;

Однако имхо этот самый Gauge для подобных задач не предназначен, а лучше использовать TTrackBar.



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

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

Наверх




Память: 0.46 MB
Время: 0.024 c
14-1100178051
}|{yk
2004-11-11 16:00
2004.11.28
Есть ли программка mp3toMidi?


1-1100255352
П7
2004-11-12 13:29
2004.11.28
Помогите портировать с С++ на Delphi


14-1099862469
Soft
2004-11-08 00:21
2004.11.28
Копирайт на сотовые технологии.


14-1100238215
Bel
2004-11-12 08:43
2004.11.28
Delphi 2005 - уже реальность.


4-1098254290
AlexTayfun
2004-10-20 10:38
2004.11.28
Изменить цвет чужого окна.