| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Может ли на форме существовать два объекта с одинаковыми именами? [D6, WinXP]

_student ©   (2004-07-29 18:31:00) 

Может ли на форме существовать два объекта с одинаковыми именами?

---

_student   (2004-07-29 19:31:00) [1]

Ну тогда тему можно закрыть

---

panov   (2004-07-29 19:29:00) [2]

>_student   (29.07.04 19:26) [10]
Проверил... и написал [9] -)

---

_student   (2004-07-29 19:26:00) [3]

Сам проверь

---

panov   (2004-07-29 19:25:00) [4]

Однако...

---

panov   (2004-07-29 19:22:00) [5]

И проверь имя после переноса.

---

_student   (2004-07-29 19:22:00) [6]

(Там эдит вообщето переносится, я общибся)
Не я проверял, при переборе всех компонентов на форме функцией файндкомпонет выводится два объекта с одинаковыми именами Edit1

---

panov   (2004-07-29 19:18:00) [7]

>_student   (29.07.04 18:59) [5]

При переносе кнопки на другую форму владельцем у нее становится новая форма.

---

_student   (2004-07-29 18:59:00) [8]

Кнопка переноситься на другую форму под таким же именем. У них один и то же владелец, родитель, класс и т.д. и т.п.

---

panov   (2004-07-29 18:51:00) [9]

>_student   (29.07.04 18:49) [3]

Не может.

В твоем примере 2 разные формы.

---

_student   (2004-07-29 18:49:00) [10]

Может

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure changeowner(com,newowner:TComponent);
begin
    com.Owner.RemoveComponent(com);
    newowner.InsertComponent(com);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Parent:=Form2;
changeowner(Edit1,Form2);
end;

end.

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm2 = class(TForm)
   Edit1: TEdit;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

end.

---

_student   (2004-07-29 18:38:00) [11]

Да с одним классом, перентем и оунером.

---

clickmaker   (2004-07-29 18:35:00) [12]

если одного класса и Owner у них один и не nil, то нет

---

Наверх