VPF::А как можно програмно создавать.....

gambit

Дата 21.3.2007, 22:24 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

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

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

Создали мы компонент, а как потом обратится к его свойствам, например узнать текст который ввел пользователь в созданный компанент?

VICTAR

Дата 21.3.2007, 23:47 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 37
Всего: 80

Задай ему имя и обращайся по имени, как обычно.
Задай уникальный Tag, затем ищи по Tag`у и проверяй текст.
И еще много-много вариантов...

gambit

Дата 23.3.2007, 13:36 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

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

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

VICTAR, проблема в том что я пытаюсь так сделать.

Код


procedure TForm1.Button1Click(Sender: TObject);
var y: integer=100;
begin
 with TEdit.Create(Form1) do begin
   Top:=y; Left:=Button1.Left;
   ParentWindow:=Self.Handle;
   y:=y+Height+4;
   name:='edit1';
 end;

Но так как объект не создан, я не могу написать что то типо

Код


procedure TForm1.Button2lick(Sender: TObject);
begin
label1.caption:=edit1.text;
end;

Он говорит что индификатор edit1 неизвестен.

VICTAR

Дата 23.3.2007, 14:16 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 37
Всего: 80

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
label1.caption:=TEdit(FindComponent('Edit1')).Text;
end;

gambit

Дата 23.3.2007, 14:49 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

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

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

Пытаюсь создать label

Код


 with TLabel.Create(Form1) do begin
   Top:=y;
   Left:=x;
   Name:='Label'+IntToStr(namelabel);
   caption:='Label '+IntToStr(namelabel);
   ParentWindow:=self.Handle;
 end;
inc(namelabel);

Но в строчке ParentWindow:=self.Handle; ошибка

Код


system error. code: 1400
Недопустимый дискриптор окна

Что это?

Добавлено @ 14:51
VICTAR, спасибо.

Добавлено @ 14:53
А как обрабатывать процедуры созданных компанентов?

aktuba

Дата 23.3.2007, 14:56 (ссылка)

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

Загрузка ...

Смышленный

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

Репутация: 16
Всего: 38

Цитата

А как обрабатывать процедуры созданных компанентов?

СРОЧНО!!! В магазин за книгой по Delphi!!!

Код


 Edit1.OnChange := EditChange;

procedure TForm1.EditChange(Sender: TObject);
begin
  ShowMessage('Вот и событие...');
end;

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

VICTAR

Дата 23.3.2007, 15:08 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 37
Всего: 80

замени

Код


ParentWindow:=self.Handle;

на

Код


Parent:=Form1;

gambit

Дата 23.3.2007, 16:26 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

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

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

Цитата

СРОЧНО!!! В магазин за книгой по Delphi!!!

У меня книг миллион, но не в одной не про динамические компаненты.
Всем спасибо.

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