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

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

Как правильно переименовать компонент в runtime ? [D5, NT4]

alextov ©   (2002-10-18 11:32:00) 

Нужно скопировать кнопку через Clipboard и работать с обеими кнопками. При следующем коде возникает Access Violation :
Var OldButton: TButton;
Begin
Clipboard.SetComponent(Button1);//копируем Button1 в клиппбоард
Button1.Name := "OldButton"; //
Clipboard.GetComponent(Self, GroupBox1); //вставляем Button1 из клиппбоарда
oldButton.Caption:="ok"; //--------Access Violation
End;
Может кто подскажет что изменить надо....(менять ДНК не предлагать :))))

---

Le Taon   (2002-10-18 14:28:00) [1]

han_malign ©
К сожалению, в компонентах Assign не реализован.

А зачем, кстати, изменять Имя компонента? - зачем оно нужно?
Дело в том, что имя - не простое свойство, а автоматически создаваемые поля формы с этими именами - не простые переменные.
Они связаны и в рантайме через метод SetReference + RTTI.

Пример:

TForm1 = class(TForm)
Button1: TButton;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Name := "Test";
Button1.Caption := "Ok"; // - здесь уже Button1 = nil;
end;

PS я советую не трогать имена в рантайме, они никакой смысловой нагрузки там уже не несут.

---

alextov   (2002-10-18 12:48:00) [2]

Вполне логично. И довольно просто. Что называется "за деревьями леса не увидел".
Всем спасибо.

---

han_malign   (2002-10-18 12:16:00) [3]

и не проще ли
OldButton:=TButton.Create(GroupBox1);//или к Form1- что по умолчанию делается(Create(nil))
OldButton.Assign(Button1);
OldButton.Name:="OldButton";
OldButton.Parent:=GroupBox1;
OldButton.Caption:="ok";


---

Kibitzer   (2002-10-18 12:01:00) [4]

Шутник ты однако :-)

procedureTForm1.Button1Click(Sender: TObject);
var
OldButton: TButton;
begin
Clipboard.SetComponent(Button1);
Button1.Name := "OldButton";
OldButton := Button1;
Button1 := Clipboard.GetComponent(Self, GroupBox1) as TButton;
Button1.Caption:="ok";
end;

---

han_malign   (2002-10-18 11:56:00) [5]

из Clipboard вставляем анонимный компонент, потом вызываем property у неинициализировнного объекта oldButton - и это должно работать???
Может всетаки
oldButton:=Clipboard.GetComponent(Self, GroupBox1); //вставляем Button1 из клиппбоарда
З.Ы. Менять ДНК тогда всем придется, ты бы видел какие ляпы опытные программисты допускают(чем элементарнее ошибка, тем сложнее ее найти), правда не в таком объеме кода, а побольше(на пару порядков).

---

Наверх