我想在程序中点击一TCOMPONENT后周围动态创建TPANEL为什么不行，程序如下： procedure TForm1.Label1Click(Sender: TObject); procedure TForm1.Label1Click(Sender: TObject); begin createpanel(Label1.Left-5,Label1.Top 5); createpanel(Label1.Left-5,Label1.Top Label1.Height 5); createpanel(Label1.Left (Label1.Width mod 2) 5,Label1.Top 5); createpanel(Label1.Left Label1.Width 5,Label1.Top 5); createpanel(Label1.Left (Label1.Width mod 2) 5,Label1.Top Label1.Height 5); createpanel(Label1.Left Label1.Width 5,Label1.Top Label1.Height 5); end; procedure TForm1.createpanel(left,top:Integer); var p:TPanel; begin p:=TPanel.Create(self); p.Parent:=Self; p.Width:=5; p.Height:=5; p.Color:=clNone; p.Left:=Label1.Left-5; p.Top:=Label1.Top; p.BevelOuter:=bvNone; end;

你說不行是甚麼意思?有錯誤還是甚麼?會不會是 create 了你看不見因又沒有 border color 又是 clNone。請說清楚不行的情況。    另外，createpanel 這樣寫會好點 :

procedure TForm1.createpanel(aLeft,aTop:Integer);
begin
  with TPanel.Create(self) do
  begin
    Parent:=Self;
    Width:=5;
    Height:=5;
    Color:=clNone;
    Left := aLeft;
    Top := aTop;
    BevelOuter := bvNone;
  end;
end;

引言: 你說不行是甚麼意思?有錯誤還是甚麼?會不會是 create 了你看不見因又沒有 border color 又是 clNone。請說清楚不行的情況。 另外，createpanel 這樣寫會好點 :

procedure TForm1.createpanel(aLeft,aTop:Integer);
begin
  with TPanel.Create(self) do
  begin
    Parent:=Self;
    Width:=5;
    Height:=5;
    Color:=clNone;
    Left := aLeft;
    Top := aTop;
    BevelOuter := bvNone;
  end;
end;

谢谢，可为什么只左上角出现一个PANEL？？ 能帮帮分析一下吗？

補充 : 在 uses 那裡要有 ExtCtrls, 若沒有會有 Undeclared identifier: 'TPanel'

引言: 補充 : 在 uses 那裡要有 ExtCtrls, 若沒有會有 Undeclared identifier: 'TPanel'

已经定义了，可只在TFORM的左上角有一个PANEL，而我希望在TLABEL的四周出现 能帮忙看一下吗？

那是因為你的碼用 : p.Left:=Label1.Left-5; p.Top:=Label1.Top; 六個全在同一位置    我有試過我的碼全部都有出來的說，不過位置你應要再調

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    procedure createpanel(aLeft, aTop: Integer);
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.createpanel(aLeft,aTop:Integer);
begin
  with TPanel.Create(self) do
  begin
    Parent:=Self;
    Width:=5;
    Height:=5;
    Color:=clNone;
    Left := aLeft;
    Top := aTop;
    BevelOuter := bvNone;
  end;
end;    procedure TForm1.Label1Click(Sender: TObject);
begin
createpanel(Label1.Left-5,Label1.Top 5);
createpanel(Label1.Left-5,Label1.Top Label1.Height 5);
createpanel(Label1.Left (Label1.Width mod 2) 5,Label1.Top 5);
createpanel(Label1.Left Label1.Width 5,Label1.Top 5);
createpanel(Label1.Left (Label1.Width mod 2) 5,Label1.Top Label1.Height 5);
createpanel(Label1.Left Label1.Width 5,Label1.Top Label1.Height 5);
end;    end.

發表人 - Justmade 於 2003/05/30 20:33:10

引言: 那是因為你的碼用 : p.Left:=Label1.Left-5; p.Top:=Label1.Top; 六個全在同一位置 我有試過我的碼全部都有出來的說，不過位置你應要再調

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    procedure createpanel(aLeft, aTop: Integer);
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.createpanel(aLeft,aTop:Integer);
begin
  with TPanel.Create(self) do
  begin
    Parent:=Self;
    Width:=5;
    Height:=5;
    Color:=clNone;
    Left := aLeft;
    Top := aTop;
    BevelOuter := bvNone;
  end;
end;    procedure TForm1.Label1Click(Sender: TObject);
begin
createpanel(Label1.Left-5,Label1.Top 5);
createpanel(Label1.Left-5,Label1.Top Label1.Height 5);
createpanel(Label1.Left (Label1.Width mod 2) 5,Label1.Top 5);
createpanel(Label1.Left Label1.Width 5,Label1.Top 5);
createpanel(Label1.Left (Label1.Width mod 2) 5,Label1.Top Label1.Height 5);
createpanel(Label1.Left Label1.Width 5,Label1.Top Label1.Height 5);
end;    end.

發表人 - Justmade 於 2003/05/30 20:33:10

哦！谢谢拉，还想问一下，怎样拖动TPANEL，LABLE1能随之缩放？

新問題請開新題目，post 在 VCL 區會較好因這不是 Object Pascal 語法問題。