Главная страница
    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.008 c
14-29577
TUser
2004-01-20 11:15
2004.02.10
Что за фигня


14-29532
@lex
2004-01-22 16:09
2004.02.10
Хакамаду здесь недавно обсуждали


14-29610
alxx
2004-01-19 13:20
2004.02.10
Глюки с мышкой и клавиатурой


6-29490
loki128
2003-12-08 20:58
2004.02.10
Доступ к файлам


1-29440
3APA3A
2004-01-30 22:17
2004.02.10
Динамичесое формирование Items у Combobox а...





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