Скачать: CL | DM;

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].

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

---

← →
msguns ©   (2005-10-16 09:56) [8]

>_root   (15.10.05 22:23)  

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

---

← →
DiamondShark ©   (2005-10-16 12:17) [9]

> msguns ©   (16.10.05 09:56) [8]

Где миелофон брал?

---

← →
msguns ©   (2005-10-16 12:42) [10]

>DiamondShark ©   (16.10.05 12:17) [9]
>Где миелофон брал?

Попадай в клавиши, брильянтовый ;))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c