Текущий архив: 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.044 c
