//procedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent); //begin // with TButton.Create(WizardForm) do begin // Left := ALeft; // Top := ATop; // Width := WizardForm.CancelButton.Width; // Height := WizardForm.CancelButton.Height; // Caption := ACaption; // OnClick := ANotifyEvent; // Parent := WizardForm.WelcomePage; // end; //end; private void CreateButton(int ALeft, int ATop, string ACaption, TNotifyEvent ANotifyEvent) { var button = new TButton(WizardForm); button.Left = ALeft; button.Top = ATop; button.Width = WizardForm.CancelButton.Width; button.Height = WizardForm.CancelButton.Height; button.Caption = ACaption; button.OnClick += ANotifyEvent; button.Parent = WizardForm.WelcomePage; }
public static extern int LCB_SetOnLeCodigo(IntPtr lcbHandle, [MarshalAs(UnmanagedType.FunctionPtr)] TNotifyEvent method);