Exit для другой части

← →
_root (2005-10-15 22:23) [0]

Я меня из метода onClick вызывается некая функция. При некоторых условиях, проверяющихся в этой функции, необходимо сделать Exit для метода onClick, то есть функция должна завершить другую процедуру

← →
Кефир87 © (2005-10-15 22:36) [1]

function ChtoTo():boolean; begin .... // Что-то не получилось Result := False; Exit; .... // Все получилось Result := True; end; procedure TForm1.OnClick(Sender : TObject); begin bla-bla-bla; if(not ChtoTo())then Exit; bla-bla-bla; end;

← →
_root (2005-10-15 22:58) [2]

Спасибо, но это не совсем то 4то нужно. Мне бы производить выход из onClick прямо в функции

← →
Кефир87 © (2005-10-16 00:04) [3]

Из ОнКлик _ПЕРЕДАЕТСЯ УПРАВЛЕНИЕ_ в другую функцию. то есть выполняется ОнКлик, потом вызывается функция, она что-то делает, а потом возвращает управление ОнКлик. То что ты хочешь не возможно в принципе 8)

← →
Германн © (2005-10-16 00:45) [4]

2 Кефир87 © (16.10.05 00:04) [3]
Ну не то чтобы
> не возможно в принципе 8)
, но если "в лоб" по сабжу, то очень сложно.

← →
Кефир87 © (2005-10-16 01:33) [5]

> но если "в лоб" по сабжу, то очень сложно.

Ну так если не в лоб то [1].

← →
Anatoly Podgoretsky © (2005-10-16 01:40) [6]

Анализировать результат функции или возбуждать исключение.

← →
Германн © (2005-10-16 01:53) [7]

2 Кефир87 © (16.10.05 01:33) [5]
>Ну так если не в лоб то [1].

Если не в лоб, но по сабжу, то это вторая часть ответа АП.

>_root (15.10.05 22:23)

Похоже, что ты пытаешься контекстно активировать/деактивировать элементы управления (меню, батоны и т.д.) .
Если так, то это делается вовсе не таким способом. Попробуй TActionList

Exit для другой части Найти похожие ветки