TLama

Untitled

Apr 11th, 2014
401
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.66 KB | None | 0 0
  1. [Code]
  2. var
  3.   MyButton: TNewButton;
  4.  
  5. procedure MyButtonOnClick(Sender: TObject);
  6. begin
  7.   MsgBox('This is a demo of how to create a button!', mbInformation, mb_Ok);
  8. end;
  9.  
  10. procedure InitializeWizard;
  11. begin
  12.   MyButton := TNewButton.Create(WizardForm);
  13.   MyButton.Parent := WizardForm;
  14.   MyButton.Left := WizardForm.BackButton.Left - 122;
  15.   MyButton.Top := WizardForm.BackButton.Top;
  16.   MyButton.Width := 120;
  17.   MyButton.Height := WizardForm.BackButton.Height;
  18.   MyButton.Caption := 'Do something';
  19.   MyButton.OnClick := @MyButtonOnClick;
  20. end;
  21.  
  22. procedure CurPageChanged(CurPageID: Integer);
  23. begin
  24.   MyButton.Visible := CurPageID = wpSelectComponents;
  25. end;
Advertisement
Add Comment
Please, Sign In to add comment