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

Вниз

Как правильно удалить кнопку из её обработчика?   Найти похожие ветки 

 
Destroyer ©   (2005-07-18 15:18) [0]

Надо удалить кнопку из её же обработчика. Т.е. нажимаем на неё и она удаляется. Но эта кнопка была создана динамически и после её удаления надо изменить длину массива в котором она находится.

RecButOnPan=record
But:array of TSpeedButton;
end;

var
ButOnPan   : array of RecButOnPan;
openedpan  : integer;
nbOnPan    : integer;
begin
...
ButOnPan[openedpan].But[nbOnPan].Destroy;
setlength(ButOnPan[openedpan].But,nbOnPan);
...
end;
Проблема в том, что, по моему, после Destroy уже ничего выполнять в обработчике этой кнопки нельзя. Как правильно удалить эту кнопку?


 
jack128 ©   (2005-07-18 15:28) [1]

http://delphimaster.net/view/1-1121085218/


 
granni ©   (2005-07-18 15:29) [2]

Когда у меня была такая проблема, я просто в обработчике события устанавливал некоторый флаг, который проверял уже после работы обработчика


 
Destroyer ©   (2005-07-18 16:11) [3]

Спасибо.



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

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

Наверх





Память: 0.45 MB
Время: 0.067 c
14-1121535997
Cincinnut
2005-07-16 21:46
2005.08.07
The Doors


8-1112626691
Charly22
2005-04-04 18:58
2005.08.07
Создание эскизов графических файлов


1-1121687965
Caridi
2005-07-18 15:59
2005.08.07
задать условие MaskEdit1.Text


1-1121944216
Profik
2005-07-21 15:10
2005.08.07
Обработка нажатия стандартной кнопки Свернуть


5-1092299241
stud
2004-08-12 12:27
2005.08.07
каким образом выполнить метод компанента?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский