За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Здравствуйте, comp.
Имеется кнопка Button1;
Считываю имя процедуры из переменной S;
Мне надо написать что нибудь типа
button1.onClick= имя процедуры из s
пробовал @s , но не понимает типа TNotifyEvent....... Что делать?
Здравствуйте !
Может, все зделать гораздо проще ?
Сделать обычный onClick, а в этом самом onClick прописать вызов
функции по указателю (переменная S) ?
--
С уважением, Вахтуров Виктор.
Информационный сайт для программистов http://SoftMaker.com.ru
Номер выпуска : 2496
Возраст листа : 169 (дней)
Количество подписчиков : 380
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/99706
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Если в переменной S находится указатель, то можно поизвращатся и сделать
так:
Var
S:Pointer { или procedure (sender:Tobject)};
pr:TNotifyEvent;
. . .
@pr:=s {или @s, зависит от типа S - указатель или процедурный тип};
Button1.onclick:=pr;
. . .
--
А елси S - это не указатель и не процедурный тип, тогда вызвать процедуру
невозможно! ( по моемому :-) )
Номер выпуска : 2497
Возраст листа : 169 (дней)
Количество подписчиков : 380
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/99803
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Здарова, front.ru!
9 марта 2004 г., вторник, 03:11:11 (GMT+05:00), ты намылил:
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('xex');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button1.OnClick := Button2.OnClick;
end;
Hello front.ru,
Непонятно, какого типа у тебя эта переменная S. Если строковая, то
таким макаром не катит. Попробуй применить переменную процедурного
типа.