Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

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

 
_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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.023 c
8-1086001790
AlexT
2004-05-31 15:09
2004.08.15
Как рограмно сменить разрешение экрана?


1-1091380968
dracula
2004-08-01 21:22
2004.08.15
for i:=1 to N do if S[i]= / then S[i]:= ;


3-1090584922
sapsi
2004-07-23 16:15
2004.08.15
Добавить строку таблицы в поле Мемо


4-1088767556
IncubuS
2004-07-02 15:25
2004.08.15
SysListView32 и unicode


1-1091173196
Прог
2004-07-30 11:39
2004.08.15
Indy и кодировка