| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Exit для другой части [D7, XP]

_root ©   (2005-10-15 22:23:00) 

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

---

msguns   (2005-10-16 12:42:00) [1]

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

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

---

DiamondShark   (2005-10-16 12:17:00) [2]

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

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

---

msguns   (2005-10-16 09:56:00) [3]

>_root   (15.10.05 22:23)  

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

---

Германн   (2005-10-16 01:53:00) [4]

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

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

---

Anatoly Podgoretsky   (2005-10-16 01:40:00) [5]

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

---

Кефир87   (2005-10-16 01:33:00) [6]

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

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

---

Германн   (2005-10-16 00:45:00) [7]

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

---

Кефир87   (2005-10-16 00:04:00) [8]

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

---

_root   (2005-10-15 22:58:00) [9]

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

---

Кефир87   (2005-10-15 22:36:00) [10]

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;

---

Наверх