M
misterio
Динамическое создание я нашёл на форуме, а вот как его использовать....??
Пример пишем так :
А теперь как сделать так, чтобы при нажатии на появивщуюся кнопку, исчезала(удалялась из памяти) сама Button1. ???
Пример пишем так :
Код:
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;
А теперь как сделать так, чтобы при нажатии на появивщуюся кнопку, исчезала(удалялась из памяти) сама Button1. ???