• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

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

StrangeType Оффлайн

StrangeType

Знающий кодер
Принятый Кодер
Сообщения
5
Симпатии
2
Баллы
40

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

Lomanu4

Команда форума
Администратор
Сообщения
1,151
Симпатии
222
Баллы
155
VK
Если что не понятно,не стесняйтесь спрашивать !
Для просмотра содержимого вам необходимо авторизоваться.
 
StrangeType Оффлайн

StrangeType

Знающий кодер
Принятый Кодер
Сообщения
5
Симпатии
2
Баллы
40
Если что не понятно,не стесняйтесь спрашивать !
Спасибо большое, но я не смог разобраться с Panel4,Panel5, button7, button8. Все как-то напутанно
 
Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,151
Симпатии
222
Баллы
155
VK
R Оффлайн

RikoHacker

Знающий кодер
Принятый Кодер
Сообщения
1
Симпатии
0
Баллы
28
А на сам исход поглазеть можно?
 
Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,151
Симпатии
222
Баллы
155
VK
А на сам исход поглазеть можно?
Вряд ли тебе дадут исходник
Ну как же не дадим если дадим,не мог найти его,вот он
[HIDE=2]
PHP:
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]
 
Вверх Снизу