Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> обработка события у runtime созданного компонента 
V
    Опции темы
T0nic
Дата 30.11.2006, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 42
Регистрация: 17.6.2006

Репутация: нет
Всего: нет
я все никак ен могу понять, создаю динамически в цикле 50 лабелов все норм, но хочу, чтобы каждый обрабатывал клик мышью по нему и при клике выполнял имеющуюся процедуру. но как это сделать, я чет туплю походу.... вот код цикла создания:
Код

for i:= 0 to 100 do
begin
L:= TLabel.Create(Self);
L.Parent := sScrollBox1;
L.top:=i*20;
L.left:=24;
L.caption:=IntToStr(i);



мне какжется, надо создать отдельный обработчик TNotyfyEvent а потом просто передавать его вместе с параметрами... так кажется... как вы думаете?
PM MAIL   Вверх
PROeXT
Дата 30.11.2006, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.12.2005
Где: Москва

Репутация: нет
Всего: нет
Пусть у тебя есть ТВОЯ процедура

Код

Procedure MyProc(Sender:TObject);
Begin
 {Here I Can Do Something :-)}
End; 


Затем, в твоем случае,

Код

for i:= 0 to 100 do
begin
L:= TLabel.Create(Self);
L.Parent := sScrollBox1;
L.top:=i*20;
L.left:=24;
L.caption:=IntToStr(i);

L.OnClick:=MyProc;



И вот оно, счастье  smile 

Это сообщение отредактировал(а) PROeXT - 30.11.2006, 15:46
PM MAIL ICQ   Вверх
T0nic
Дата 30.11.2006, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 42
Регистрация: 17.6.2006

Репутация: нет
Всего: нет
в том то и дело, что компилятор ругается типа что несовместимые типы: TNotifyEvent и Procedure... если делать так:

Код

procedure TForm1.SomeMenuItemClick(Sender: TObject);
begin
 //Code here
end;
........................
L.OnClick:= SomeMenuItemClick;


то все нормально работает, но мне важно знать, по КАКОМУ именно лабелу кликнули, от этого как раз меняется обработка события... smile 
PM MAIL   Вверх
Alexeis
Дата 30.11.2006, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(T0nic @  30.11.2006,  15:55 Найти цитируемый пост)
по КАКОМУ именно лабелу кликнули, от этого как раз меняется обработка события... smile  

(sender as TLabel).Name - даст имя компонента


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
PROeXT
Дата 30.11.2006, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.12.2005
Где: Москва

Репутация: нет
Всего: нет
Странно, у меня вот это - РАБОТАЕТ

Код

procedure TForm1.DoClick(Sender: TObject);
begin
 ShowMessage('Click');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Button1.OnClick:=DoClick;
end;


 smile 
PM MAIL ICQ   Вверх
Reptile
Дата 30.11.2006, 16:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3
А я извращался иначе: создавал невидимый Label и настраивал его OnClick, потом 
Код

  Button1.OnClick:=Label1.OnClick;
PM MAIL   Вверх
Sunvas
Дата 30.11.2006, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(alexeis1 @  30.11.2006,  15:59 Найти цитируемый пост)
Цитата(T0nic @  30.11.2006,  15:55 )    
по КАКОМУ именно лабелу кликнули, от этого как раз меняется обработка события... smile    

(sender as TLabel).Name - даст имя компонента

Тогда в коде каждому компоненту надо еще и имя присваивать. Например так: 
Код

l.Name:='l'+inttostr(i);




--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
maxim1000
Дата 30.11.2006, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110
или можно воспользоваться свойством tag...


--------------------
qqq
PM WWW   Вверх
Sunvas
Дата 30.11.2006, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(maxim1000 @  30.11.2006,  17:38 Найти цитируемый пост)
или можно воспользоваться свойством tag...

Так из программы к компоненту с именем можно хоть программно обратиться Findcomponent...
А от tag-a конечно тоже толк есть, но я его предпочитаю использовать в других случаях.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Alexeis
Дата 30.11.2006, 18:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(maxim1000 @  30.11.2006,  17:38 Найти цитируемый пост)
или можно воспользоваться свойством tag... 

 smile сразу видно взгляд оптимизатора! Нефиг тут играться со строками! Пронумеровали и все. По номеру быстро нашли.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
T0nic
Дата 30.11.2006, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 42
Регистрация: 17.6.2006

Репутация: нет
Всего: нет
спасибо! сработало (sender as TLabel). я хотел пользоваться свойством Tag, просто хотел на примере получения имени компонента сделать, а там уже все ясно. спасибо всем!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1039 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.