Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на Delphi

Выпуск № 053
от 01.08.2002, 14:00

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 107
Отправлено ответов: 145
Активность: 135.5 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе]


 Список экспертов, ответы которых опубликованы в данном выпуске

Sanya
Статус: Доверительный
Общий рейтинг: 130.83
[Подробней >>]
baldr
Статус: Профессиональный
Общий рейтинг: 117.1
URL: Сайт об ОС DOS. Всем, кто любит эту ОС!
[Подробней >>]
Vladimir
Статус: Опытный
Общий рейтинг: 120.15
Телефон: (08242) 43599 40099 раб 41255 дом
[Подробней >>]
 
Артём Шегеда
Статус: Профессиональный
Общий рейтинг: 121.21
URL: Пристанище неодинокого программиста
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 105. Доброе время суток, эксперты! Ещё вопрос, динамически я создаю обьекты, а как для них написать проце... (ответов: 4)

Вопросов: 1, ответов: 4


 Вопрос № 105

Доброе время суток, эксперты! Ещё вопрос, динамически я создаю обьекты, а как для них написать процедуры, например OnClick или OnChange, ведь они появятся только во время работы программы? Если можно, то с примером!



Вопрос отправлен: 29.07.2002, 13:54
Отправитель: DeadShot

[Следующий вопрос >>] [Список вопросов]

Отвечает Sanya

Здравствуйте, DeadShot!
Пример из вправки Delphi(не ленись иной раз заглянуть туда):
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
with TEdit.Create(Self) do
begin
Parent := PageControl1.Pages[i];
Left := Random(PageControl1.ActivePage.ClientWidth - Width);
Top := Random(PageControl1.ActivePage.ClientHeight - Height);
OnClick:= EditClik; {вот это и есть назначение процедуре OnClick уже существующей процедуры EditClik}
end;
end;
Удачи!

Ответ отправлен: 30.07.2002, 02:33
Отправитель: Sanya


Отвечает baldr

Доброе время суток, DeadShot!
Пиши обработчик заранее и со стандартным заголовком, типа, (Sender:и тп)... То есть, просто
процедуру. А потом, присвой событию эту процедуру. то есть:
MyObject.OnClick:=MyOnClick;
Где:
procedure MyOnClick(Sender:TObject);
Begin
...
End;

Естественно, если надо передавать и другие параметры, то опиши их в процедуре...


Ответ отправлен: 30.07.2002, 00:57
Отправитель: baldr


Отвечает Vladimir

Здравствуйте, DeadShot!

MyEdit:=TEdit.Create(Form1);
MyEdit.Parent:=Form1;
MyEdit.OnClick:=Form1.myClick;
При клике на MyEdit будет выполняться процедура myClick.


Ответ отправлен: 29.07.2002, 18:58
Отправитель: Vladimir


Отвечает Артём Шегеда

Приветствую Вас, DeadShot!

> они появятся только во время работы программы
Кто "они"?
Процедуры (а точнее, методы класса) - нет, ты их пишешь своими руками, и появляются они ещё до компиляции.
Объекты - так кто тебе мешает присваивать полям OnClick или OnChange свои значения?

Короче, читай приложение...

Приложение:

Ответ отправлен: 29.07.2002, 15:06
Отправитель: Артём Шегеда



Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (43)
C / C++ (29)
Perl (9)
Delphi (16)
Pascal (31)
Basic / VBA (10)
Java / JavaScript (11)
PHP (7)
MySQL / MSSQL (9)
Пользователю
Windows 95/98/Me (43)
Windows NT/2000/XP (31)
"Железо" (34)
Поиск информации (18)
Администратору
Windows NT/2000/XP (15)
Linux / Unix (12)
Юристу
Гражданское право (6)
Семейное право (3)
Трудовое право (5)
КоАП (2)

Отправить вопрос всем экспертам выбранной рассылки.




be number one Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное