Delphi 通过编码添加控件

admin

1. 
   
2. procedure TForm1.AddButton;
   
3. var
   
4.   Button: TButton;
   
5. begin
   
6.   Button := TButton.Create(Self); // 创建一个按钮实例
   
7.   Button<font color="#ff0000">.Parent</font> := Self; // 设置按钮的父控件为当前窗体
   
8.   Button.Left := 10; // 设置按钮的左边距
   
9.   Button.Top := 10; // 设置按钮的上边距
   
10.   Button.Width := 100; // 设置按钮的宽度
    
11.   Button.Height := 30; // 设置按钮的高度
    
12.   Button.Caption := 'Click Me'; // 设置按钮上显示的文本
    
13.   Button.OnClick := ButtonClickHandler; // 指定按钮点击事件的处理程序
    
14. end;
    
15. 
    
16. procedure TForm1.ButtonClickHandler(Sender: TObject);
    
17. begin
    
18.   ShowMessage('Button clicked!'); // 显示一个弹窗
    
19. end;

复制代码

在这个例子中，AddButton 方法创建了一个按钮控件，并设置了其属性，注意要设置其父窗口，包括其在窗体上的位置和大小，显示的文本，以及点击事件的处理程序。点击事件的处理程序 ButtonClickHandler 简单地显示一个弹窗。

要添加控件，只需在适当的时机调用 AddButton 方法。例如，您可以在窗体的 OnCreate 事件中调用它，以便在窗体创建时添加控件。另一个例子：

1.     procedure TForm2.formCreate(Sender: TObject);
   
2.     begin
   
3.         TForm2.Memo1:= Tmemo.Create(Sender as TForm);
   
4.         memo1.parent := self;  // class EInvalidOperation with message 'Control' has no parent window.
   
5.         memo1.Left := 10;
   
6.         memo1.Top := 6;
   
7.         memo1.Width := 766;
   
8.         memo1.Height := 350;
   
9.         memo1.Lines.Text := 'MemoText';
   
10.         memo1.TabOrder := 0;
    
11.         memo1.Visible := True;
    
12.         memo1.Show;
    
13.     end;

复制代码