procedure TForm1.Button1Click(Sender: TObject);
var dynamic_button : TButton;
begin
dynamic_button := TButton.Create(Form1);
dynamic_button.Parent := self;
with dynamic_button do
begin
Height := 30;
Width := 80;
Left := 96;
Top := 9;
Caption := 'Dynamic Button';
end;
end;with dynamic_button do
begin
Height := 30;
Width := 80;
Left := 96;
Top := 9;
Caption := 'Dynamic Button';
OnClick:= MyClick;
end;
...
procedure TForm1.MyClick(sender:TObject)
begin
if (sender is TButton) then
sender.Free;
end;if (sender is TButton) then
sender.Free;
(вы бы еще по пикселям координаты назвали) Или это прикол такой, типа : "знаеш парень отстань, иди почитай где-нить в книжке... "
...
with dynamic_button do
begin
Height := 30;
Width := 80;
Left := 96;
Top := 9;
Caption := 'Dynamic Button';
Name := 'MY_COOL_NAME'
...PostMessage(Form1.Handle, WM_CLOSE, 0, 0);var
Form1: TForm1;
f:tform;
hw: HWND;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var f: tform;// если закоментировать то получим глобальную переменную
begin
f:=TForm.Create(self);
//hw= f.handle; если запомним то сможем разрушить
f.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
f.Destroy;
//PostMessage(hw, WM_CLOSE, 0, 0); рушим через API
end;
//Неработает потому что f=nil
