关于动态创建组件的问题？、/

[dsq1980]

我程序运行中我动态创建了一个Tshape组件（MYshape），在运行中我如何来访问他，比如我要修改他的color 属性

[「已注销」]

通过控件名访问

[tsst]

你建了一个控件，那它就是一个类实例了！通过名字就可以访问了！
这个与动态，静态是没有关系的！你只要确保它在使用范围内就可以了！

[aiirii]

(Findcomponent('Sharp1') as TSharp).Color

如果你創建的名字是 Sharp1 的話

[blazingfire]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
MyShape: TShape;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MyShape := TShape.Create(Self);
MyShape.Parent := Self;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
MyShape.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyShape.Brush.Color := clRed;
end;

end.

[wintergoes]

procedure TForm1.FormCreate(Sender: TObject);
var
Myshape:Tshape;
begin
Myshape:=Tshape.Create(nil);
Myshape.Parent:=form1;
Myshape.Left :=200;
Myshape.Top :=200;
end;

[dsq1980]

呵呵，谢谢楼上，我犯了一个愚蠢的问题，就是把变量范围给搞错了，惭愧惭愧