Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

Как однозначно проверить, существует ли объект (создан ли, не испорчен ли)?   Найти похожие ветки 

 
lipskiy   (2002-03-16 19:13) [11]

Ок, все понял. Надо баг искать, а не обходить его.
Тогда скажите мне, правильно ли переприсваивать объекты через переменные?
Например (в моем проекте, в частности), есть TreeView.
По выбору новой ноды происходит некое действие.
Но перед этим действием нужно выполнить код по снятию выбора с предыдущей ноды.
Ну, например, TreeView управляет Мемой. В Меме можно редактировать текст, который должен автоматически сохраняться перед выбором другой ноды и загрузкой нового текста.

Что я делаю. На событие OnChange вешаю обработчик, в котором выполняется код по закрытию предыдущей ноды, а потом по открытию текущей. При этом предыдущую ноду я запоминаю в переменной, так как OnChange выдает мне сразу текущую.
Получается примерно следующее:

var
PrevNode:TTreeNode;

procedure TForm1.TreeViewChange(Sender:TObject; Node:TTreeNode);
begin
// вызываю метод по обработке закрытия предыдущей ноды:
ClosePrevNode(PrevNode);
// обрабатываю открытие новой ноды:
OpenNewNode(Node);
// запоминаю ноду для следующего раза:
PrevNode:= Node;
end;


Можно ли так делать - PrevNode:= Node?





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

Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
7-91082
Fellomena
2001-12-20 12:37
2002.03.28
GetWindow Vs CreateToolhelp32Snapshot - search, detect and destroy...


4-91118
Ted
2002-01-29 09:33
2002.03.28
Handle окна


4-91114
Delphi 5.01
2002-01-27 07:38
2002.03.28
Как вывести сообшения выбора папки только в котором видны и рабочий стол и все остальное в пиктогарамах ну такое сообшение кода драивер меняеш и предлагается выбрать папкуб ну вот точно такое окно нужно!


1-90854
SlavaS
2002-03-16 21:35
2002.03.28
Неудаётся найти файл *.bpl


7-91085
AlexS
2001-12-28 07:50
2002.03.28
Модем?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский