Реализовать кнопку (TButton) на форме. По нажатию на кнопку создавать кнопку правее нажатой
Категория: Delphi/Pascal
2011-08-28 22:37:52
Реализовать кнопку (TButton) на форме. По нажатию на кнопку создавать кнопку правее нажатой и т.д. В модуле должна быть реализована только одна процедура procedure Button1Click(Sender: TObject)
code: #delphi
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if (not(Sender is TButton))or
- (TButton(Sender).ComponentCount > 0) then exit;
- with TButton.Create(TButton(Sender)) do
- begin
- Parent := Self;
- Left := TButton(Sender).Left+TButton(Sender).Width;
- Top := TButton(Sender).Top;
- OnClick := Button1Click;
- end;
Поделиться: