Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 16

Тема: Ход установки)))

  1. #1 Ход установки))) 
    Новичок
    Регистрация
    04.11.2016
    Сообщений
    9
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Всем привет! Хотел бы сделать, в программе Lazarus Ход установки. Т.е. нажал на кнопку "Далее" и компоненты в окне поменялись. Скажите пожалуйста, что можно использовать?
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    и тебе привет. а по подробнее, что ты имеешь в виду? можно всё, что угодно, только зачем?
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    >Quiet Snow< (04.11.2016)

  4. #3  
    Новичок
    Регистрация
    04.11.2016
    Сообщений
    9
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    У меня есть форма в Lazarus - в ней распологаются элементы. Пару кнопок, табло и надписи. Я хочу сделать, чтобы при нажатии на кнопку у меня открывалась другая форма с другими элементами.... Простите за кривизну мыслей. Мозг уже изнасилован и думать не хочет))) Если поняли мой вопрос - помогите плиз!
    Ответить с цитированием  
     

  5. #4  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    кинь код сюда. я посмотрю. то что ты хочешь до меня пока не дошло. если тебе из одного окна нужно вызвать другое то это просто.
    добавляем в лазарусе новую форму, затем в разделе implementation главной формы добавляем uses unit2; (unit2- имя модуля с новой формой).
    затем в главной форме в процедуре обработки нажатия кнопки добавляем запись form2.show или form2.showmodal. ( form2- имя новой формы).
    главная форма
    Pascal Code:
    1. uses
    2.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
    3.  
    4. type
    5.  
    6.   { TForm1 }
    7.  
    8.   TForm1 = class(TForm)
    9.     Button1: TButton;
    10.     procedure Button1Click(Sender: TObject);
    11.   private
    12.     { private declarations }
    13.   public
    14.     { public declarations }
    15.   end;
    16.  
    17. var
    18.   Form1: TForm1;
    19.  
    20. implementation
    21.  
    22. {$R *.lfm}
    23. uses unit2;
    24.  
    25. { TForm1 }
    26. //        вызов другой формы
    27. procedure TForm1.Button1Click(Sender: TObject);
    28. begin
    29.   form2.ShowModal;
    30. end;
    31.  
    32. end.
    Последний раз редактировалось nik_1; 04.11.2016 в 11:48.
    Ответить с цитированием  
     

  6. 2 пользователя(ей) сказали cпасибо:


  7. #5  
    Новичок
    Регистрация
    04.11.2016
    Сообщений
    9
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Ммммм. Спасибо! Сейчас попробую)))
    Ответить с цитированием  
     

  8. #6  
    Новичок
    Регистрация
    04.11.2016
    Сообщений
    9
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Pascal Code:
    1. unit Unit1;
    2.  
    3. {$mode objfpc}{$H+}
    4.  
    5. interface
    6.  
    7. uses
    8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9.   StdCtrls, ComCtrls;
    10.  
    11. type
    12.  
    13.   { TForm1 }
    14.  
    15.   TForm1 = class(TForm)
    16.     Button1: TButton;
    17.     procedure Button1Click(Sender: TObject);
    18.   private
    19.     { private declarations }
    20.   public
    21.     { public declarations }
    22.   end;
    23.  
    24. var
    25.   Form1: TForm1;
    26.  
    27. implementation
    28.  
    29. {$R *.lfm}
    30. uses unit2;
    31.  
    32. { TForm1 }
    33.  
    34. procedure TForm1.Image1Click(Sender: TObject);
    35. begin
    36.  
    37. end;
    38.  
    39. procedure TForm1.Button1Click(Sender: TObject);
    40. begin
    41.   form2.ShowModal;
    42. end;
    43.  
    44. end.

    При таком раскладе - выдает ошибку: [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  9. #7  
    Новичок
    Регистрация
    04.11.2016
    Сообщений
    9
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вот unit2:
    Pascal Code:
    1. unit Unit2;
    2.  
    3. {$mode objfpc}{$H+}
    4.  
    5. interface
    6.  
    7. uses
    8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9.   StdCtrls, Buttons;
    10.  
    11. type
    12.  
    13.   { TForm2 }
    14.  
    15.   TForm2 = class(TForm)
    16.     BitBtn1: TBitBtn;
    17.     Image1: TImage;
    18.     Image2: TImage;
    19.     Image3: TImage;
    20.     Image4: TImage;
    21.     Image5: TImage;
    22.     StaticText1: TStaticText;
    23.     procedure BitBtn1Click(Sender: TObject);
    24.   private
    25.     { private declarations }
    26.   public
    27.     { public declarations }
    28.   end;
    29.  
    30. var
    31.   Form2: TForm2;
    32.  
    33. implementation
    34.  
    35. {$R *.lfm}
    36.  
    37. { TForm2 }
    38.  
    39. procedure TForm2.BitBtn1Click(Sender: TObject);
    40. begin
    41.  
    42. end;
    43.  
    44. end.
    Ответить с цитированием  
     

  10. #8  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    вы вторую форму в проект добавили?
    program project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Interfaces, // this includes the LCL widgetset
    Forms, Unit1, Unit2
    { you can add units after this };

    {$R *.res}

    begin
    RequireDerivedFormResource := True;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.Run;
    end.
    Последний раз редактировалось nik_1; 05.11.2016 в 12:27.
    Ответить с цитированием  
     

  11. 2 пользователя(ей) сказали cпасибо:


  12. #9  
    Новичок
    Регистрация
    04.11.2016
    Сообщений
    9
    Сказал(а) спасибо
    3
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от nik_1 Посмотреть сообщение
    program project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Interfaces, // this includes the LCL widgetset
    Forms, Unit1, Unit2
    { you can add units after this };

    {$R *.res}

    begin
    RequireDerivedFormResource := True;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.Run;
    end.
    И куды это вставлять? в unit1 или unit2?
    Ответить с цитированием  
     

  13. #10  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    [Ссылки могут видеть только зарегистрированные пользователи. ]

    - готовый шаблон. Вам лучше воспользоваться этим шаблоном.

    не знаете куды сувать. возьмите любую книгу по азам делфи и прочтите первые главы про состав программы.
    Ответить с цитированием  
     

  14. 2 пользователя(ей) сказали cпасибо:


Страница 1 из 2 12 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Редирект для установки виджета на чужой сайт
    от Сергей13131313 в разделе Общие вопросы web-разработки
    Ответов: 0
    Последнее сообщение: 18.02.2016, 17:55
  2. Помогите написать хук для установки минимального размера окна (WinAPI)
    от Black Doomer в разделе Общие вопросы программирования
    Ответов: 4
    Последнее сообщение: 24.02.2014, 00:51
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •