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

Вниз

Добавление обработчика события в кнопку Run-Time   Найти похожие ветки 

 
Strate ©   (2006-04-27 22:33) [0]

Привет всем.

Подскажите пжалста, как должна выглядеть процедура, чтобы её можно было подставить в OnClick-свойство кнопки, которую я создаю в Run-Time режиме?

Пишу вот так:

procedure Clicker (sender : TObject);
begin

end;

....

Button.OnClick := Clicker;


Выдаёт ошибку :(


 
Юрий Зотов ©   (2006-04-27 23:46) [1]

Это должен быть метод класса, а не просто процедура.

type
 TForm1 = class(TForm)
 ...
 private
   procedure Clicker (Sender : TObject);
 ...
 end;

procedure TForm1.Clicker (Sender : TObject);
begin
 ...
end;


 
Strate ©   (2006-04-28 00:29) [2]

Юрий Зотов ©   (27.04.06 23:46) [1]

Спасибо!
Тупой вопрос, не правда-ли? :о)


 
Юрий Зотов ©   (2006-04-28 08:13) [3]

> Strate ©   (28.04.06 00:29) [2]

Нормальный вопрос. Тупой вопрос - это такой вопрос, на который невозможно ответить. Например, потому, что его просто невозможно понять (часто из-за того, что автор, желая показать свою якобы крутизну, начинает пользоваться терминологией, в которой он на самом деле не разбирается, а в итоге в его вопросе получается та же самая каша, что и у него в голове).

Или вопрос типа "У меня программа выдает ошибку, в чем дело" (и при этом ни строчки кода). Или вопрос другого типа: "Как написать программу" (как? сесть, да и написать - а как еще их пишут?).

Тут такого добра много было (см. "Орешник"). А у Вас - совершенно нормальный вопрос.



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

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

Наверх





Память: 0.45 MB
Время: 0.014 c
2-1146410252
Kano
2006-04-30 19:17
2006.05.21
Ошибка при выполнении Insert


15-1145528145
Mirror
2006-04-20 14:15
2006.05.21
А какое у вас разрешение экрана?


3-1142417365
flad
2006-03-15 13:09
2006.05.21
iBase 7.5 -> 6.0


6-1138357744
Lucefer
2006-01-27 13:29
2006.05.21
Как правильно блокировать подключения в TServerSocket


2-1146578259
Тимка
2006-05-02 17:57
2006.05.21
нажатие с popup





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