Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизКак правильно переименовать компонент в runtime ? Найти похожие ветки
← →
alextov (2002-10-18 11:32) [0]Нужно скопировать кнопку через 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;
Может кто подскажет что изменить надо....(менять ДНК не предлагать :))))
← →
han_malign (2002-10-18 11:56) [1]из Clipboard вставляем анонимный компонент, потом вызываем property у неинициализировнного объекта oldButton - и это должно работать???
Может всетаки
oldButton:=Clipboard.GetComponent(Self, GroupBox1); //вставляем Button1 из клиппбоарда
З.Ы. Менять ДНК тогда всем придется, ты бы видел какие ляпы опытные программисты допускают(чем элементарнее ошибка, тем сложнее ее найти), правда не в таком объеме кода, а побольше(на пару порядков).
← →
Kibitzer (2002-10-18 12:01) [2]Шутник ты однако :-)
procedure TForm1.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 12:16) [3]и не проще ли
OldButton:=TButton.Create(GroupBox1);//или к Form1- что по умолчанию делается(Create(nil))
OldButton.Assign(Button1);
OldButton.Name:="OldButton";
OldButton.Parent:=GroupBox1;
OldButton.Caption:="ok";
← →
alextov (2002-10-18 12:48) [4]Вполне логично. И довольно просто. Что называется "за деревьями леса не увидел".
Всем спасибо.
← →
Le Taon (2002-10-18 14:28) [5]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 я советую не трогать имена в рантайме, они никакой смысловой нагрузки там уже не несут.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c