Уроки программирования в Lazarus. Урок №2. Свойства формы и компонент Button

В данном уроке мы напишем первую полноценную программу, научимся работать с свойствами формы изменяя ее цвет, размер и тд. Также более подробно разберем компонент Button ( кнопка ) и напишем для него обработчик событий.
Сайт Lazarus - www.lazarus-ide...

[@wandererext5649]

Спасибо, начал учить

[@user-ku9pk2fw9x]

СПАСИБО В ШКОЛЕ НИЧЕГО НЕ ПОНИМАЛ ЩАС ВСЁ ПОЛУЧИЛОСЬ

[@user-xr1bu6xs1d]

Жиза

[@klhyytyu5643]

Все наперед учу чтобы тупым не быть. Спасибо

[@bankihoi]

То, что ты не знаешь лазаруса не делает тебя тупым. Ты это делаешь только для школьной программы. А так, эта программа бесполезна.

[@user-wc5xw8zb4n]

@@bankihoi неистово плюсую +

[@user-kk8pw2ov1w]

Век живи, век учись, дураком помрёшь 😉

[@dogman2921]

@@user-wc5xw8zb4n возвожу в степень

[@vla-vi2152]

@@bankihoi я бы так не сказал)Учу для себя,для интереса и чтобы проги иногда создавать интересные.

[@imos6878]

74к просмотров, 10к подписчиков и 865 лайков.... еще и дизлайки зачем то. Что за люди ужасные пошли? Человек очень старается, объясняет все полностью, а вы поленились нажать две кнопки...

[@imbanecontrica]

Очень познавательно!Спасибо за старания)

[@eoshmdt]

Мне учительница прикрепила ваше видео и сказала написать "ключевые понятия" по данной теме. Я нихера не понял что вообще нужно писать

[@-c385]

ППЦ я уже на 2 видео создал програму. И да ты лучше обьясняешь чем учительница, учитель в школе просто там с начала года учу и даже не понял как калькулятор создать а тут 2 видео и ты просто обьяснял что есть что и уже сосздал игру, Игра сапёр) очень легко создавать. Лайк видео ты лучший!!!

[@TheMrDen3D]

Старался как можно подробнее все рассказать

[@prostakplay5006]

почему вы не мой учитель информатики ((((((((((((((((((?

[@TheMrDen3D]

))))

[@user-Olga2410]

Спасибо! Ошибку нашла сама в тот же день, но в дальнейшем, думаю, прийдется обращаться к Вам за помощью

[@TheMrDen3D]

)))) Обращайтесь, помогу как смогу )))

[@user-wh7ph2pl6y]

Ты красавчик , нереально помог

[@user-ds3sj6cs3w]

очень рада, что нашла ваши уроки. Скажите пожалуйста у меня при выводе на компиляцию выдает ошибку отладчика (как бы компонент программы не установлен?). Что делать?

[@dashamartsinko5113]

Прекрасный видео-урок

[@selyankaira]

Добрый день. Как правильно сохранять и создавать проекты. У меня ,когда я создаю новый проект, остаются вкладки в окне "исходный код" от предыдущих проектов и бывает, что запуская программу из основного меню лазарус выполняется предыдущий проект. Подскажите пожалуйста

[@TheMrDen3D]

файл-> создать-> проект (приложение)

[@sh_krisss1858]

Как изменить высоту и ширину метки???

[@user-cc3zc1cj5w]

Хотел спросить вас о том как сделать так что-бы при нажатии кнопки 2а раза изменялась и сама надпись тоже каждое нажатие ? От меня подписка и Лайк :)

[@TheMrDen3D]

зависти глобальную переменную и при нажатии на кнопку ее увеличивать и обрабатывать условия if i = 1 then Button1.caption := " 1 раз "; if i = 2 then Button1.caption := " 2 раза "; if i = 3 then Button1.caption := " 3 раза "; и тд

[@nykov2]

подскажите как это можно законспектировать?

[@InstituteOfIndependence]

Если программа состоит из двух форм. На первой форме есть кнопка которая скрывает первую форму и открывает вторую, если закрыть вторую форму(открытую),то скрытая тоже за кроется или останется висеть в оперативной памяти?

[@user-rg7tr7dy6s]

На уроке информатики, наша училка ничего не показывает! Она просто пол урока в учебнике нам что то показывает и рассказывает, потом садимся делать САМИ практическую работу....

[@satyhd8474]

при попытке написании обработчика события button1 не выходит процедура и у меня высвечивается : модуль не найден : Types. Смотрю в редактор исходного кода и не могу найти ошибку. Буду благодарна за помощь!

[@user-Olga2410]

А как сложить программу в котором символы будут отображаться в поле сзаду наперед?

[@SHURAV1]

Доброе время суток. Я не программист скачал лазарус повторил ваш урок все получилось Спасибо. Но вот что меня заставило это сделать, там не как нечего не получается. Есть исходный код для сетевой игры для админов запускающих сервера в игре Сталкер. Для облегчения решил добавить кнопку Button что бы кликом можно было перезагрузить сервер на лету командой fz_reload_configs которая водится в консоль игры затем жмешь Enter и сервер перезагружен. Подскажите как это сделать? Программа и игра на 32 бит архитектуре.

[@user-uk8pb9oz8k]

Как правильно сохранить в конце программы?

[@TheMrDen3D]

Сначала сохраняется пустой проект, а потом ctrl+s во время программы

[@Anonymous-ox3lz]

почему когда пишу код не выдит список с процедурами и т д подсказка?

[@TheMrDen3D]

смотря что за процедуру вы пишите, имеется ввиду соответствует ли сигнатура функции вызова и объявлена ли в классе. Скиньте пример кода

[@intermix1297]

как сделать так что бы после нажатия на одну кнопку появлялась надпись, а на другую что бы старая надпись исчезла а новая появилась

[@BigBoss-ml2rt]

Используй переменные, в видео как появилась надпись все есть!

[@enjoy7511]

ctrl + w

[@olehonyshchuk1527]

советую смотреть со скоростью 1.25

[@footballx257]

Почему вы не изменили имя кнопки Button 1

[@TheMrDen3D]

чаще всего в уроках я не изменяю имена компонентов, чтобы начинающим было проще ориентироваться в коде

[@user-md1tl4gu5f]

как сделать, чтобы при нажатии на кнопку менялся текст согласно наличию или отсутствию картинки на форме

[@TheMrDen3D]

по подробней опишите задачу

[@JokerZipon]

Когда будут решения задач т.е. составление программ на ввод данных и т.д. ?

[@TheMrDen3D]

Дмитрий Ануфриев Компонент для работы с вводом информации в программу будет на след уроке, он уже записан, его нужно только обработать. Выйдет скорей всего в понедельник.

[@anado0640]

Подскажите пожалуйста как создать новую форму если загружается та которую я раньше делала?

[@TheMrDen3D]

на канале есть видео на эту тему

[@user-cm6ib5pu3e]

что сделать,чтобы кнопка при нажатии сменила свои значения и значения формы+стала недоступной?подскажите,пожалуйста,с меня подписка и лайки на видео!!!

[@TheMrDen3D]

по нажатию по кнопке button1.enable:=false; button1.caption := 'текст';

[@user-Olga2410]

Подскажите в чём ошибка unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; Label10: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject);-Пишет unit1.pas(29,15) Error: Forward declaration not solved FormCreate(TObject);" private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var kod, month, day, number: integer; feeding: real; begin kod:=StrToInt (InputBox ('Введення даних','Введіть персональний код:','')); month:=StrToInt (InputBox (' Введення даних','Введіть місяць дати поїздки:','')); day:=StrToInt (InputBox('Введення даних','Введіть кількість днів:','')); number:=StrToInt(InputBox('Введення даних','Введіть кількість осіб:','')); feeding:=StrToInt(InputBox('Введення даних', 'Введіть тип харчування:','')); Label6.Caption:=IntToStr(kod); Label7.Caption:=IntToStr(month); Label8.Caption:=IntToStr(day); Label9.Caption:=IntToStr(number); Label10.Caption:=FloatToStr(feeding); end; procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close; end; end.

[@TheMrDen3D]

Ошибка в Label10.Caption:=FloatToStr(feeding); у тебя feeding имеет тип integer,

[@par9325]

вопрос вероятно глупый. по настройке среды. у тебя когда начинаешь писать в редакторе появляются подсказки. что-то не найду где это находтся

[@par9325]

а все нашел. в настройках галочки не стояли на подсказках

[@TheMrDen3D]

если ты про выпадающий список который выпадает при написании кода, ctrl + пробел

[@par9325]

Да-да. Именно это и надо было узнать. В настройках среды в разделе "Инспектор объектов" параметры все ведь галочки должны быть? Я правильно понимаю? А в редакторе комбинация ctrl + пробел - это быстрый вызов подсказок. Понял. Спасибо

[@blackhole5959]

Ты на мизинец записывал?

[@TheMrDen3D]

Если ты о микро, то самый дишмансий. Прищепка за 150р на то время.

[@ikl7454]

Помогите после ввода Label1. ето окошко невысвечуетка как быть?

[@TheMrDen3D]

ctrl + пробел

[@iddzhqd2151]

Помоги пожалуйста для школы нужно две задачки сделать, желательно со скайпом

[@TheMrDen3D]

что за задачки, пиши может урок сделаю. По скайпу не получится

[@user-mf1bs9tb8e]

Здраствуйте у меня почему-то не виходит. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Ko: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure KoClick(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm } procedure TForm1.Button1Click(Sender: TObject); begin Close; end; procedure TForm1.Button2Click(Sender: TObject); begin end; procedure TForm1.FormCreate(Sender: TObject); begin end; procedure TForm1.KoClick(Sender: TObject); begin Label1.Caption:='Hi' Ko.Width:=Ko.Width+5; вот здесь выбивает ошибку end; end.

[@TheMrDen3D]

на Label1.Caption:='Hi' в конце поставить ; ( точку с запятой)

[@bbbredok]

оно раздвигается, даже если сделать то что вы сказали

[@qn1tt]

Пишет ошибку когда кнопка отвечющая за ввод текста в lable между = и""

[@TheMrDen3D]

текст ошибки и текст строки с ошибкой

[@bururi7757]

8:13 нечего не работает я нежимаю но оно не высвечивает

[@neizvesnost110]

8:05 как установить такие скобы. У меня только двойные ствлятся

[@TheMrDen3D]

нажать э на анг. раскладке

[@user-Olga2410]

Извините, но всё-равно что- то не получается...При компиляции видит ошибку...unit1.pas(65,25) Error: Incompatible types: got "Extended" expected "LongInt" Вот код программы:unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var s1,s2,s3,v1,v2,v3,t,dig1,dig2,t1,t2:integer; begin s1:=StrToInt (InputBox('Введення даних','Введіть перший відрізок шляху','')); s2:=StrToInt(InputBox('Введення даних','Введіть другий відрізок шляху','')); s3:= StrToInt (InputBox('Введення даних','Введіть третій відрізок шляху','')); v1:=StrToInt (InputBox('Введення даних','Введіть першу швидкість літака','')); v2:=StrToInt (InputBox ('Введення даних','Введіть другу швидкість літака','')); v3:=StrToInt (InputBox('Введення даних','Введіть третю швидкість літака','')); Label7.Caption:=IntToStr(s1); Label8.Caption:=IntToStr(s2); Label9.Caption:=IntToStr(s3); Label10.Caption:=IntToStr(v1); Label11.Caption:=IntToStr(v2); Label12.Caption:=IntToStr(v3); t:=30; t1:= s1/v1+s2/v2+s3/v3; t2:=t1+2*t; dig1:= t1 div 60; dig2:= t1 mod 60; Label13.Caption:=IntToStr(dig1); Label15.Caption:=IntToStr(dig2); end; end.

[@TheMrDen3D]

у тебя переменная t1 должна быть real. так как у тебе есть деление t1:= s1/v1+s2/v2+s3/v3; при делении результат всегда вещественное число (real), хоть когда 10/2 результат вещественное число = 5,0

[@TheMrDen3D]

и когда умножаешь вещественное число на другое число тоже результат вещественное число. Следовательно и t2 тоже должно быть вещественного типа real. а здесь: dig1:= t1 div 60; dig2:= t1 mod 60; переменные t1, t2 должны быть целого типа, так как div и mod работают только с целыми числами. Поэтому t1, t2 необходимо преобразовать к целому типу: 1) создать дополнительные переменные _t1, _t2 : integer; 2) и изменить часть кода на это .. t1:= s1/v1+s2/v2+s3/v3; t2:=t1+2*t; _t1 := Round (t1); _t2 := Round (t2); dig1:= _t1 div 60; dig2:= _t1 mod 60; ..

[@mda2855]

Почему я не могу увеличить размер Label1?

[@TheMrDen3D]

в высоту?

[@sky-tryzub]

Как зделать чтобы после нажатие кнопки менялся цвет формы

[@TheMrDen3D]

на обработчик кнопки пишем Form1.color := clRed

[@user-wr1sm4hq6e]

Создаёшь кнопки переименоваешь их в цвета которые хочешь . Двойным щелчком на какой нибудь цвет например синий двойной щелчок и пишишь между бегин и энд.Form1.Color:=clBlue;вот так а если хочешь другой цвет то пишишь не блю а другой цвет.

[@Prog_Ramer]

Подскажи, как изменить цвет самой кнопки Button?

[@TheMrDen3D]

+Prog Ramer У почти всех компонентов есть свойство color , который меняет цвет компонента.

[@Prog_Ramer]

TheMrDen3D у всех, кроме Button

[@TheMrDen3D]

ххмм... Ранее все работало, возможно в следующей версии исправят

[@Prog_Ramer]

TheMrDen3D скажи, а почему ты используешь Lazarus, а не Delphi? Я просто в этом пока новичок, поэтому хочу понять разницу

[@TheMrDen3D]

+Prog В плане написания программ, то для delphi дофига сторонних компонентов и он мощнее. Почему lazarus - потому что он бесплатный, в большинстве вузов стоит он. Да и если просто дома использовать с ним проще, на delphi надо кряки ставить которые слетают и тд.

[@humanman3190]

мне в школе на каникулы сказали 1 и 2 чясть посмотреть. Я не шучю!!!

[@TheMrDen3D]

)))))) что за школа, в каком городе?)) в каком классе?

[@humanman3190]

@@TheMrDen3D Я в Украине жыву город Чернигов школа номер 35. 7 класс

[@BigBoss-ml2rt]

Здравствуйте, я ученик 8 класса, не важно какой шк, кароч, я только щас начал учить lazarus, все тоже самое но, что бы выдавало рандомный текст который я там ввел! Пожалуйста, помогите =))

[@TheMrDen3D]

Если ты имеешь ввиду, что ты ввел несколько слов, и программа тебе случайным образом выдает твои введенные слова? для этого необходимо ознакомится с темой массивы а потом можно дальше говорить

[@eskke1626]

Как поставить кавычки

[@TheMrDen3D]

буква Э, на английской раскладке

[@fana228t3]

Вот кавычки :D '

[@user-qr4kx3di6y]

ТЫ лучший я потратил 30 минут чтобы решить проблему и ты мне помог

[@noflipsb]

7:56 у меня нету окна помощи как сделать?

[@TheMrDen3D]

Ctrl + пробел

[@user-km2xd8tc3n]

у меня не виводитца сообщение он видит какуето ошибку

[@TheMrDen3D]

что за ошибка и пример кода

[@morfol9143]

как удалить Программу в Лазарус

[@user-sd7mc4vy2d]

Не компилирует форму на начале(. 2:05

[@TheMrDen3D]

что за ошибка?

[@user-dz8rk5yh3z]

@@TheMrDen3D да

[@eviltroll1846]

Специально для школоты: kzbin.info/www/bejne/pqDXXn9tq7yji9E

[@Tiwula]

у меня нет инспектора

[@TheMrDen3D]

вид- инспектор объектов или f11

[@aaaabbbb1287]

@@TheMrDen3D почему кампиляция прстоянна ошибка будет

[@TheMrDen3D]

@@aaaabbbb1287 что за ошибка

[@user-hq2io7rp7g]

Як зробити form2?

[@TheMrDen3D]

на канале есть урок на эту тему 10 или 11 урок

[@user-du2mf4zj1p]

в заголовке свойства формы я как понял все свойства а по сути только цвет обман

[@TheMrDen3D]

да, раньше (в версиях 0.8.0 ) можно было изменять цвет, сейчас нет

[@ghostgod6750]

Можеш дать свой вк есть пару вопросов

[@user-Olga2410]

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var s1,s2,s3,v1,v2,v3,t,dig1,dig2,t1 :real; begin s1:=StrToFloat (InputBox('Введення даних','Введіть перший відрізок шляху','')); s2:=StrToFloat(InputBox('Введення даних','Введіть другий відрізок шляху','')); s3:= StrToFloat (InputBox('Введення даних','Введіть третій відрізок шляху','')); v1:=StrToFloat (InputBox('Введення даних','Введіть першу швидкість літака','')); v2:=StrToFloat (InputBox ('Введення даних','Введіть другу швидкість літака','')); v3:=StrToFloat (InputBox('Введення даних','Введіть третю швидкість літака','')); Label7.Caption:=FloatToStr(s1); Label8.Caption:=FloatToStr(s2); Label9.Caption:=FloatToStr(s3); Label10.Caption:=FloatToStr(v1); Label11.Caption:=FloatToStr(v2); Label12.Caption:=FloatToStr(v3); t:=30; t1:= s1/v1+s2/v2+s3/v3+2*t; dig1:= t1 div 60; dig2:= t1 mod 60; Label13.Caption:=FloatToStr(dig1); Label15.Caption:=FloatToStr(dig2); end; При компиляции выдаёт ошибку: Скомпілювати проект, ціль: project1.exe: Код завершення 1, Помилок: 2 unit1.pas(66,13) Error: Operator is not overloaded: "Real" div "ShortInt" unit1.pas(67,13) Error: Operator is not overloaded: "Real" mod "ShortInt" Спасибо за помощь заранее. И ещё вопрос: Можно связаться с Вами не в комментариях, а каким либо другим способом?

[@TheMrDen3D]

div и mod можно использовать только с переменными целого типа. div и mod это 'операторы' целочисленного деления

[@user-ih5oc1yb5l]

при інсталяції програми меню на англійській мові . підкажіть як змінити мову меню на українську на 7 віндовсі

[@TheMrDen3D]

насчет других языков переводов в среде не знаю

[@yaroslav2538]

вроде на український не можна поставти)

[@user-wy3dc3td3j]

любитель сталкера и ведьмака

[@barabashmariana]

в коменти

[@barabashmariana]

Здроствуєте можите мнє кинути цей проект

[@TheMrDen3D]

Все что осталось, можно взять от сюда github.com/Den3D/SrcExLazarus

[@user-rg2pn9wi6z]

Ужасное объяснение. Если бы я так на уроках объяснял, меня бы никто не понял) Прыгаем по материалу как блохи) Но в общем молодец, раз дети хвалят. Работаем на дистанционке, использую твои видео.

[@user-ks6ez7of7d]

Лол

[@user-rg2pn9wi6z]

@@user-ks6ez7of7d а конкретнее))

[@falago3935]

не много тупит когда рассказывает . мне не нрав

[@user-uk8pb9oz8k]

зато объясняет хорошо!

[@jhlock8418]

И это пишет человек,который пишет "немного" раздельно

[@user-mk1sv4qv1f]

но люди от такого разжевывания хочется повесится а после просмотра таких роликов плакать охота от будущего программистов я сам не программист и у меня появилась срочная надобность сдать лабораторные но так рассказывать не стоит под это заснуть можно