Форум: "Media";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
ВнизСтрока состояния в видео проигрывателе Найти похожие ветки
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.036 c