VPF::Определение динамически созданного элемента.

ivan219

Дата 30.5.2007, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

Код


type
  TEditGroup = class(TCustomControl)
  private
      FEdit: Array of TEdit;
.
.
.
    for I:=0 to FEditList.Count-1 do
     begin
      FEdit[I]:=TEdit.Create(Self);
      FEdit[I].Parent:=Self;
      FEdit[I].Top:=FTop;
      FEdit[I].Text:='0';
      FEdit[I].OnChange:=EOnChange;
.
.
.
.

Как узнать в какой из всех Edit в водится текст???

Это сообщение отредактировал(а) ivan219 - 30.5.2007, 20:00

--------------------

Мой первый сайт и моя первая программа!!!!!

Romikgy

Дата 30.5.2007, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

имхо можно tag заюзать smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

MetalFan

Дата 30.5.2007, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(ivan219 @ 30.5.2007, 19:58

)

Как узнать в какой из всех Edit в водится текст

в EOnChange Sender'ом будет smile

Это сообщение отредактировал(а) MetalFan - 30.5.2007, 20:24

--------------------

There are always someone smarter than you...

Sunvas

Дата 30.5.2007, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 2
Всего: 89

Определяешь имя/таг Sender-а и будет тебе радость.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

ivan219

Дата 31.5.2007, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

Цитата(Romikgy @ 30.5.2007, 20:18

)

имхо можно tag заюзать

Если без Sender готов выслушать.

Цитата(MetalFan @ 30.5.2007, 20:23

)

в EOnChange Sender'ом будет

Это я знаю но вот Sender мне ненравится.

Цитата(Sunvas @ 30.5.2007, 23:05

)

Определяешь имя/таг Sender-а и будет тебе радость.

Нет мне достаточно только Name но вот только нехочу сним связыватся.

Мне нужен вареант без Sender smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Sunvas

Дата 31.5.2007, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 2
Всего: 89

Цитата(ivan219 @ 31.5.2007, 18:05

)

Это я знаю но вот Sender мне ненравится.

Это принципиально, или вызвано какими-то особенностями программы?
По любому в процедуру что-то нужно передавать, т.к. сама процедура не знает кто ее вызывает. Проще всего передавать Sender, но если хочется экотики, то можно отслеживать активный контрол во время выполнения процедуры, потом узнавать, что это кнопка...

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Lexicss

Дата 31.5.2007, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

Ну если ты хочешь без Sender, то создать ещё по циклу процедуры EOnChange на каждый объект TEdit.

--------------------

Бери от жизни всё.

ivan219

Дата 31.5.2007, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

Цитата(Sunvas @ 31.5.2007, 18:20

)

Это принципиально, или вызвано какими-то особенностями программы?

Пишу компонент и если создавать его обычным способом то проблем нет

Код


FEdit[I].Name:=Name+IntToStr(I);

а вот если его динамически то предётся присваевать ему имя в противном случае будет совпадение имён Edit у разных компонентов.
Ну вобщемто это неудобством назвать трудно просто думал может другой способ есть smile

Цитата(Lexicss @ 31.5.2007, 19:49

)

Ну если ты хочешь без Sender, то создать ещё по циклу процедуры EOnChange на каждый объект TEdit.

И как мне вот этот код:

Код


procedure TEditGroup.EOnChange(Sender: TObject);
begin
  if FBlock then Exit;
  EditCh(Sender);
  if Assigned(FOnChange) then FOnChange(Self);
end;

Присвоить всем динамически созданным Edit и чтобы каждый думал что это его и путаници небыло???

Код


 EditCh(Sender); //Здесь можно передавать и Index Edit

--------------------

Мой первый сайт и моя первая программа!!!!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »