Ejemplo n.º 1
0
        //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;
        }
Ejemplo n.º 2
0
 public static extern int LCB_SetOnLeCodigo(IntPtr lcbHandle, [MarshalAs(UnmanagedType.FunctionPtr)] TNotifyEvent method);