第四课 实例(一) 动态的创建组件

标签：io   ar   for   strong   c   on   代码   r   ef   

当鼠标单击窗口的时候，我们自动的创建一个按钮，代码实现如下：

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms;

type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses
StdCtrls;

procedure TForm1.FormMouseDown(
Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Btn: TButton;
begin
Btn := TButton.Create (Self);
Btn.Parent := Self;
Btn.Left := X;
Btn.Top := Y;
Btn.Width := Btn.Width + 50;
Btn.Caption := Format (‘Button at %d, %d‘, [X, Y]);
end;

end.

第四课 实例(一) 动态的创建组件

标签：io   ar   for   strong   c   on   代码   r   ef   

原文地址：http://www.cnblogs.com/delphi2014/p/4007175.html