Jump to content

Mqtt

uniGUI Subscriber
  • Posts

    7
  • Joined

  • Last visited

Posts posted by Mqtt

  1. Hi,

    i use the newest version, i'm totally new to unigui (and javascript..)

    Version 1.0.0.1425

     

    I added a UnimScrollbox, then three panels (with one button each ) inside.

     

     

    unit Mainm;

     

    interface

     

    uses

      Windows, Messages, SysUtils, Variants, Classes, Graphics,

      Controls, Forms, uniGUITypes, uniGUIAbstractClasses,

      uniGUIClasses, uniGUImClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm, uniGUImJSForm,

      unimPanel, uniGUIBaseClasses, unimScrollBox, uniButton, unimButton;

     

    type

      TMainmForm = class(TUnimForm)

        UnimScrollBox1: TUnimScrollBox;

        UnimPanel1: TUnimPanel;

        UnimPanel2: TUnimPanel;

        UnimPanel3: TUnimPanel;

        UnimButton1: TUnimButton;

        UnimButton2: TUnimButton;

        UnimButton3: TUnimButton;

        procedure UnimButton2Click(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

     

    function MainmForm: TMainmForm;

     

    implementation

     

    {$R *.dfm}

     

    uses

      uniGUIVars, MainModule, uniGUIApplication;

    function MainmForm: TMainmForm;

    begin

      Result := TMainmForm(UniMainModule.GetFormInstance(TMainmForm));

    end;

     

    procedure TMainmForm.UnimButton2Click(Sender: TObject);

    begin

    //UnimButton1.WebFocus;

    Unimscrollbox1.ScrollInView(UnimButton1);  //App Execption!

    //Unimscrollbox1.VertScrollBar.Position:=0;

    end;

    initialization

      RegisterAppFormClass(TMainmForm);

     

    end.

     

     

     

×
×
  • Create New...