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

Вниз

Удалить объект   Найти похожие ветки 

 
SnapIn   (2004-02-02 06:14) [0]

На панели кнопка SpeedButton, по ее нажатию прописываю:

if (Sender as TSpeedButton).Parent <> nil then
(Sender as TSpeedButton).Parent.Free;


Вываливается ошибка...


 
Zergling   (2004-02-02 06:20) [1]

if Sender is TButton then TButton(Sender).Free;


 
Zergling   (2004-02-02 06:22) [2]

Кстати Parent - это родитель объекта, т.е. это тот родитель на ком лежит данный контрол (TSpeedButton)


 
SnapIn   (2004-02-02 06:26) [3]

Да! Именно родителя нужно удалять!!!

Если по нажатию левой кнопки написать удаление - работает:

procedure TfmQue.Button1Click(Sender: TObject);
var
coTemp: TComponent;
begin
coTemp := sbDataArea.FindComponent(Edit1.Text);
if coTemp <> nil then
begin
ShowMessage("not nil");
coTemp.Free;
end
else
ShowMessage("nil");
end;


..а если по нажатию на кнопку, которая лежит на объекте, который нужно удалять - ошибка! ...access violation...


 
Zergling   (2004-02-02 06:39) [4]

Ну и в чем проблема?

if Sender is TButton then TButton(Sender).Parent.Free;


 
VAleksey   (2004-02-02 09:31) [5]

Пошли форме сообщение через PostMessage с указателем на объект, который нужно удалить, в левом параметре.



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

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

Наверх





Память: 0.45 MB
Время: 0.009 c
7-29622
maxXP
2003-10-25 21:03
2004.02.10
Как программно эмулировать нажатие мыши и клавиатуры?


3-29266
grusty
2004-01-17 16:20
2004.02.10
Как подсчитать количество уникальных записей в таблице?


1-29316
ncua
2004-01-29 22:56
2004.02.10
Как изменять размеры контролов разтягивая мышой в runtime


1-29351
SergP
2004-01-29 13:36
2004.02.10
Как


1-29470
Zilog
2004-01-30 13:18
2004.02.10
Как обработать событие, которого нет в Инспекторе Объектов?





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