|
Для создания компонента во время работы программы нужно вызвать метод Create и присвоить свойству Parent компонент или окно, на котором должен оказаться создаваемый компонент. Для обработки событий нужно создать процедуру с точно такими же параметрами, как создает Delphi. Например, объявление процедуры для обработки события кнопки OnClick должно выглядеть так:procedure TForm1.ProcName(Sender: TObject)
Вместо ProcName можно поставить любое другое имя. А при создании компонента нужному событию нужно присвоить эту процедуру:Button1.OnClick := ProcName
Эта программа при нажатии на кнопку создает CheckBox. Поскольку cb лишь адрес компонента, то при исчезновении переменной компонент остается. При нажатии на ChecBox появляется сообщение с названием компонента и состоянием флажка.
...
private
procedure ChBoxClick(Sender: TObject);
...
{$R *.DFM}
procedure TForm1.ChBoxClick(Sender: TObject);
begin
ShowMessage((Sender as TComponent).Name + ': ' +
IntToStr(integer((Sender as TCheckBox).Checked)));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
cb: TCheckBox;
begin
randomize;
cb := TCheckBox.Create(nil);
cb.Name := 'CheckBox' + IntToStr(random(100));
cb.Left := random(300);
cb.Top := random(300);
cb.OnClick := ChBoxClick;
cb.Parent := Form1;
end;
главная страница задать вопрос email: delphi4all@narod.ru
|