Exit для Action

← →
Vader (2002-09-06 11:27) [0]

Подскажите пожалуйста какой аналог Exita в процедурах и функциях существует для Action"ов. Если в середине Action"а пишу Exit, выдаётся сообщение "Statement expected, but expression of type "TAction" found"

← →
Александр Спелицин © (2002-09-06 11:59) [1]

Код в студию!!!

← →
Smithson © (2002-09-06 12:17) [2]

Обработчик TAction - обычная процедура. Exit прерывает обработку ЛЮБОЙ процедуры (см. help). Возможно, в TACtion есть метод exit, тогда надо писать system.exit

← →
Vader (2002-09-06 13:01) [3]

procedure TFAdmin.UnlockExecute(Sender: TObject);
begin
Panel1.Enabled:=True;
Panel2.Enabled:=True;
Caption:="Разблокирован";
Exit;//Например напишем здесь
//Получаем на этом месте выше описанную ошибку
end;

Unlock - Action из ActionList"а

← →
Набережных С. (2002-09-06 17:44) [4]

Ты один из Action назвал Exit, вот и все.

← →
Ketmar © (2002-09-06 18:43) [5]

все еще проще. у Акшена есть такой метод (или что там у него). надо писать System.Exit.

Satanas Nobiscum! 06-Sep-XXXVII A.S.

← →
Набережных С. (2002-09-06 22:08) [6]

> Ketmar © (06.09.02 18:43)

Чушь. System.Exit убьет ошибку, только при чем тут методы TAction?

> Набережных С. (06.09.02 22:08)

Я бы сказал не убьет, а исправит.
System.Exit действительно работает в такой ситуации. Я так и делал. Почему она возникла не знаю. Послежу за данной веткой :)

> Набережных С. (06.09.02 17:44)

Как вариант годится :).

← →
Набережных С. (2002-09-07 17:22) [9]

> VAleksey © (07.09.02 09:37)

Не вижу темы для какой-либо дискусси - уж что-что, а методы TAction сюда никаким боком не прилепить.

Exit для Action Найти похожие ветки