Раскрытие формы

[StrangeType]

Есть программа, скрин выше. Как сделать, чтобы при нажатии на кнопку Digital Audio Workstation раскрывалась форма, а при нажатии на VST Plugins первая форма сужалась и раскрывалась уже другая, с другими полями и кнопками? Помогите пожалуйста

 

[Lomanu4]

Если что не понятно,не стесняйтесь спрашивать !
[POSTS=1]

procedure TForm1.FormCreate(Sender: TObject);
begin
        Form1.Width := 250;
end;

procedure TForm1.sButton13Click(Sender: TObject);
begin
        Timer2.Enabled := True;
        sButton7.Enabled := True;
        sButton6.Enabled := True;
end;

procedure TForm1.sButton6Click(Sender: TObject);
begin
        Timer1.Enabled := True;
        if Form1.Width = 250 then
        begin
                sPanel5.Visible := True;
                sPanel4.Visible := False;
        end;
        if Form1.Width=638 then
        begin
            Timer2.Enabled:=True;
        end;

end;

procedure TForm1.sButton7Click(Sender: TObject);
begin
        Timer1.Enabled := True;
        if Form1.Width = 250 then
        begin
                sPanel4.Visible := True;
                sPanel5.Visible := False;
        end;
        if Form1.Width=638 then
        begin
            Timer2.Enabled:=True;
        end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if Timer1.Enabled = True then
        begin
                Form1.Width := Form1.Width + 4;
        end;
        if Timer2.Enabled = True then
        begin
                Timer1.Enabled := False;
        end;
        if Form1.Width = 638 then
        begin
                Timer1.Enabled := False;
//                sButton7.Enabled := False;
//                sButton6.Enabled := True;
        end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
        if Timer2.Enabled = True then
        begin
                Form1.Width := Form1.Width - 2;
        end;
        if Form1.Width = 250 then
        begin
                Timer2.Enabled := False;
//                sButton7.Enabled := True;
//                sButton6.Enabled := True;
        end;
end;

[/POSTS]

 

[StrangeType]

Если что не понятно,не стесняйтесь спрашивать !

Спасибо большое, но я не смог разобраться с Panel4,Panel5, button7, button8. Все как-то напутанно

 

[Lomanu4]

Спасибо большое, но я не смог разобраться с Panel4,Panel5, button7, button8. Все как-то напутанно

 

[RikoHacker]

А на сам исход поглазеть можно?

 

[sdsss]

А на сам исход поглазеть можно?

Вряд ли тебе дадут исходник

 

[Lomanu4]

А на сам исход поглазеть можно?

Вряд ли тебе дадут исходник

Ну как же не дадим если дадим,не мог найти его,вот он
[HIDE=2]

Спойлер: весь код

unit Unit1;

interface

uses
        Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
        System.Classes, Vcl.Graphics,
        Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.MPlayer,
        Vcl.StdCtrls,
        sRadioButton, Vcl.ComCtrls, sTrackBar, sMemo, sComboBox, sCheckBox,
        sLabel,
        sListBox, sEdit, Vcl.Menus, sSkinManager, sButton, sGroupBox, sPanel;

type
        TForm1 = class(TForm)
                sPanel1: TsPanel;
                sPanel2: TsPanel;
                sPanel3: TsPanel;
                MainMenu1: TMainMenu;
                sGroupBox1: TsGroupBox;
                sButton1: TsButton;
                sButton2: TsButton;
                sButton3: TsButton;
                sButton4: TsButton;
                sButton5: TsButton;
                sButton6: TsButton;
                sButton7: TsButton;
                sButton8: TsButton;
                sButton9: TsButton;
                sSkinManager1: TsSkinManager;
                N1: TMenuItem;
                N2: TMenuItem;
                sPanel4: TsPanel;
                sEdit1: TsEdit;
                sListBox1: TsListBox;
                sButton10: TsButton;
                sButton11: TsButton;
                sLabel1: TsLabel;
                sLabel2: TsLabel;
                sLabel3: TsLabel;
                sCheckBox1: TsCheckBox;
                sCheckBox2: TsCheckBox;
                sCheckBox3: TsCheckBox;
                sComboBox1: TsComboBox;
                sMemo1: TsMemo;
                sPanel5: TsPanel;
                sTrackBar1: TsTrackBar;
                sRadioButton1: TsRadioButton;
                sRadioButton2: TsRadioButton;
                MediaPlayer1: TMediaPlayer;
                sPanel6: TsPanel;
                sLabel4: TsLabel;
                sLabel5: TsLabel;
                sEdit2: TsEdit;
                sButton12: TsButton;
                Timer1: TTimer;
                Timer2: TTimer;
                sButton13: TsButton;
    Timer3: TTimer;
                procedure FormCreate(Sender: TObject);
                procedure sButton6Click(Sender: TObject);
                procedure sButton13Click(Sender: TObject);
                procedure sButton7Click(Sender: TObject);
                procedure Timer1Timer(Sender: TObject);
                procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
        private
                { Private declarations }
        public
                { Public declarations }
        end;

var
        Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
        Form1.Width := 250;
end;

procedure TForm1.sButton13Click(Sender: TObject);
begin
        Timer2.Enabled := True;
        sButton7.Enabled := True;
        sButton6.Enabled := True;
end;

procedure TForm1.sButton6Click(Sender: TObject);
begin
        Timer1.Enabled := True;
        if Form1.Width = 250 then
        begin
                sPanel5.Visible := True;
                sPanel4.Visible := False;
        end;
        if Form1.Width=638 then
        begin
            Timer2.Enabled:=True;
        end;

end;

procedure TForm1.sButton7Click(Sender: TObject);
begin
        Timer1.Enabled := True;
        if Form1.Width = 250 then
        begin
                sPanel4.Visible := True;
                sPanel5.Visible := False;
        end;
        if Form1.Width=638 then
        begin
            Timer2.Enabled:=True;
        end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if Timer1.Enabled = True then
        begin
                Form1.Width := Form1.Width + 4;
        end;
        if Timer2.Enabled = True then
        begin
                Timer1.Enabled := False;
        end;
        if Form1.Width = 638 then
        begin
                Timer1.Enabled := False;
//                sButton7.Enabled := False;
//                sButton6.Enabled := True;
        end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
        if Timer2.Enabled = True then
        begin
                Form1.Width := Form1.Width - 2;
        end;
        if Form1.Width = 250 then
        begin
                Timer2.Enabled := False;
//                sButton7.Enabled := True;
//                sButton6.Enabled := True;
        end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 sSkinManager1.HueOffset:=Random(450);
end;

end.

[/HIDE]

 

[jaba32]

Попробую

 

[IOFFIE]

Ну как же не дадим если дадим,не мог найти его,вот он

Спасибо,буду пробовать

 

[DAY666]

спасибо за исходник