Results 1 to 3 of 3

Thread: Form-Position

  1. #1
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    643

    Question Form-Position

    Windows10 + CodeTyphon 7.10.

    Commando:
    wsMaximized werkt goed.

    Commando:
    poDesigned werkt niet.
    De form zou terug moeten in zijn oorspronkelijke afmetingen.
    Graag help a.u.b.

    Code:
    procedure TFMAIN.SpeedButton1Click(Sender: TObject);
    begin
       Self.WindowState := wsMaximized;
    end;
    
    procedure TFMAIN.SpeedButton2Click(Sender: TObject);
    begin
       If Self.WindowState = wsMaximized then
       begin
          Self.Position := poDesigned;
       end;
    end;

  2. #2
    oorspronkelijke afmeting is wsNormal

  3. #3
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    643

    Thumbs up


    Bedankt voor de steun

    Code:
    procedure TFMAIN.SpeedButton2Click(Sender: TObject);
    begin
        If Self.WindowState = wsMaximized then
        begin
          WindowState := wsNormal;
        end;
    end;

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •