Как остановить таймер в его событии ontimer?

← →
Сергей (2011-01-21 18:27) [0]

После выполнения процедуры PrintDilogeSetNamePrinter нужно остановить
таймер, в такой вариации выдает ошибку.
: Not enough actual parameters

procedure TForm_ControllerPdf.Timer_PrintPdfTimer(Sender: TObject); begin PrintDilogeSetNamePrinter ("Print","ComboBox",ComboBoxNamePrinter.Text,Timer_PrintPdfTimer); Timer_PrintPdfTimer.enabled:=false; end;

← →
Ega23 © (2011-01-21 18:29) [1]

> : Not enough actual parameters

На какой строке-то выдаёт? :)

← →
Leonid Troyanovsky © (2011-01-21 18:31) [2]

> Ega23 © (21.01.11 18:29) [1]

> На какой строке-то выдаёт? :)

В другой нет параметров.

Тоже путают кислое с мягким.

--
Regards, LVT.

← →
Ega23 © (2011-01-21 18:53) [3]

Уй, ё....
Timer_PrintPdfTimer.enabled:=false;

← →
Anatoly Podgoretsky © (2011-01-21 19:17) [4]

> Сергей (21.01.2011 18:27:00) [0]

// Timer_PrintPdfTimer.enabled:=false;

Что?

← →
Сергей (2011-01-21 20:15) [5]

procedure TForm_ControllerPdf.Timer_PrintPdfTimer(Sender: TObject); begin // нужная процедура. Timer_PrintPdfTimer.enabled:=false; Not enough actual parameters end;

← →
Ega23 © (2011-01-21 20:20) [6]

procedure TForm_ControllerPdf.Timer_PrintPdfTimer(Sender: TObject); begin // нужная процедура. Timer_PrintPdfTimer.enabled:=false; Not enough actual parameters end;

Timer_PrintPdfTimer - это не объект, это метод класса TForm_ControllerPdf.
А объект - скорее всего Timer_PrintPdf

← →
Styx (2011-01-21 20:23) [7]

Что-то я не догоняю... Вы дали одно и то же имя объекту и функции? И как компилятор определит, где кто?

← →
Сергей (2011-01-21 20:35) [8]

Имя таймера: Timer_PrintPdf

процедура вызывается по событию таймера OnTimer:

procedure TForm_ControllerPdf.Timer_PrintPdfTimer(Sender: TObject);
begin
// любая процедура
// хочу отключить таймер Timer_PrintPdf
Timer_PrintPdfTimer.enabled:=false;
end;

← →
Германн © (2011-01-21 20:42) [9]

Напиши так:
Timer_PrintPdfTimer(Self).enabled:=false;
Ошибка пропадет :)

← →
Styx (2011-01-21 21:17) [10]

> Имя таймера: Timer_PrintPdf

Ну так и пиши - Timer_PrintPdf.enabled := false;

← →
Anatoly Podgoretsky © (2011-01-21 21:32) [11]

> Сергей (21.01.2011 20:15:05) [5]

Тогда у тебя Timer_PrintPdfTimer это процедура, а не таймер. Проверяй текст
поиском по данному слову

← →
Anatoly Podgoretsky © (2011-01-21 21:35) [12]

> Ega23 (21.01.2011 20:20:06) [6]

Так и есть и достаточно только чуть чуть поднять глаза - procedure
TForm_ControllerPdf.Timer_PrintPdfTimer(Sender: TObject);

← →
DiamondShark © (2011-01-22 15:00) [13]

Человек всё правильно написал. Ему же надо запретить срабатывание процедуры обработки таймера. И он не виноват, что у дельфи такие нелогичные синтаксис и семантика.
Всегда у вас так. Вместо того, чтобы объяснить неочевидные вещи, гыгыкать и тыкать пальцами.

> DiamondShark © (22.01.11 15:00) [13]

> Человек всё правильно написал. Ему же надо запретить срабатывание
> процедуры обработки таймера.

Чтоб запретить срабатываение именно процедуры обработки таймера писать надо совсем другое, типа Timer_PrintPdf.OnTimer := nil, ему же надо остановить таймер, что он и делает, просто перепутал имя. И Делфи тут не причем и уж точно синтаксис и семантика тут тем более не причем.
Можно подумать, в C# это же самое будет выглядеть по другому? Практически один в один будет.

> Сергей (21.01.11 20:35) [8]

> procedure TForm_ControllerPdf.Timer_PrintPdfTimer(Sender:
> TObject);
> begin
> // любая процедура
> // хочу отключить таймер Timer_PrintPdf
> Timer_PrintPdfTimer.enabled:=false;
> end;

Если ты хочешь отключить таймер, то и обращайся к свойству таймера, причем тут процедура то. Таймер у тебя называется как?

procedure TForm_ControllerPdf.Timer_PrintPdfTimer(Sender: TObject); begin // любая процедура Timer_PrintPdf.enabled:=false; end;

> DiamondShark © (22.01.11 15:23) [16]

Серьезно. А ты? Какое отношение синатаксис и семантика Delphi (пусть и кривая и какая угодно неважно) имеет к тому, что среда автоматически генерирует обработчики событий так, что в них используется имя экземпляра к которому они относятся и человек перепутал. Я не понимаю вообще смысл твоей реплики в [13].

> DVM © (22.01.11 15:30) [17]

Извините, я не подумал, что столь откровенный стёб над классическими претензиями Начинающих может быть быть воспринят с такой нечеловечески чудовищной серьёзностью.
Извините, это было жестоко с моей стороны.

> DiamondShark ©

Поставил бы смайлик что ли, а то выглядело как наезд :) Причем наезд как на отвечающих так и на делфи сразу :)

Как остановить таймер в его событии ontimer? Найти похожие ветки