ZVSRus
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton
[Code__]
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Здесь пишем своё!', mbInformation, MB_OK)
end;
procedure InitializeWizard();
var
NewButton1: TNewButton;
begin
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do begin
Left:=40
Top:=330
Width:=81
Height:=22
Cursor:=crHand
OnClick:=@TestButtonOnClick
Parent:=WizardForm
Caption := 'Инфо';
end
end;
|
Всего записей: 102 | Зарегистр. 13-11-2007 | Отправлено: 17:32 27-11-2021 | Исправлено: ZVSRus, 17:47 27-11-2021 |
|
