Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для маркузяка

Новый участник


Сообщения: 21
Благодарности: 4

Профиль | Отправить PM | Цитировать


все, сделал я кнопку путем слепливания секции Code, той что делает редактор форм с той что была в готовом скрипте из архива

Код: Выделить весь код
[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;

-------
ICQ - 498863759
Просто так даже муха на говно не садится!


Последний раз редактировалось маркузяка, 19-08-2010 в 09:06.


Отправлено: 23:08, 18-08-2010 | #2212