Tjeyn
Новичок
Вкратце объясню, я создал кнопку на установщике, при нажатии этой кнопки открывается форма. Вопрос в том как перенести на эту форму ComponentsList
Код:
procedure MyComponentsForm();
begin
MyComponents := CreateCustomForm();
with MyComponents do
begin
Position := poScreenCenter;
ClientHeight := ScaleY(244);
ClientWidth := ScaleX(333);
end;
CloseButton := TButton.Create(MyAbout);
with CloseButton do
begin
Parent := MyAbout;
Caption := CustomMessage('CloseButton');
Left := ScaleX(15);
Top := ScaleY(205);
Width := ScaleX(302);
Height := ScaleY(25);
ModalResult := mrYes;
end;
procedure InfoBtnClick(hBtn:HWND);
begin
MyComponentsForm();
MyComponents.ShowModal() = mrNo then
end;