Есть код:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure Click111(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Click111(Sender: TObject);
begin
Width := Width + 5;
end;
procedure TForm1.Button1Click(Sender: TObject);
var frm: TForm;
btn: TButton;
begin
frm := TForm.Create(nil);
frm.Width := 300;
frm.Height := 200;
frm.Left := 400;
frm.Top := 300;
btn := TButton.Create(frm);
btn.Parent := frm;
btn.Width := 75;
btn.Height := 25;
btn.left := 100;
btn.top := 100;
btn.Caption := 'Привет';
btn.OnClick := Click111;
frm.ShowModal;
frm.Free;
end;
end.
|
|