Строка состояния в видео проигрывателе [D6]
zero-g © (2004-09-02 01:32:00)
Люди у меня вопрос. Вот я использую Gauge1 для отоброжения
состояния просмотра видео файла, как определить когда я кликнул на
нее, то накакую позицию в видео файле мне надо перейти ???
А если точнее, как мне узнать куда я кликнул на Gauge1...
вобщем вот...
GuAV (2004-09-02 04:01:00) [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.
Наверх 
ЧАТ |
Орешник |
|
