Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

← →
_student   (2004-07-29 18:31) [0]

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

---

← →
clickmaker ©   (2004-07-29 18:35) [1]

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

---

← →
_student   (2004-07-29 18:38) [2]

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

---

← →
_student   (2004-07-29 18:49) [3]

Может

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.

---

← →
panov ©   (2004-07-29 18:51) [4]

>_student   (29.07.04 18:49) [3]

Не может.

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

---

← →
_student   (2004-07-29 18:59) [5]

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

---

← →
panov ©   (2004-07-29 19:18) [6]

>_student   (29.07.04 18:59) [5]

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

---

← →
panov ©   (2004-07-29 19:22) [7]

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

---

← →
_student   (2004-07-29 19:22) [8]

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

---

← →
panov ©   (2004-07-29 19:25) [9]

Однако...

---

← →
_student   (2004-07-29 19:26) [10]

Сам проверь

---

← →
panov ©   (2004-07-29 19:29) [11]

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

---

← →
_student   (2004-07-29 19:31) [12]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.034 c