Складіть проект Замовлення квітів у середовищі Lazarus .У проекті натиснення кнопки Оформити замовлення викликає виведення відповідного тексту у текстовому полі, яке захищене від змін, а натиснення кнопки Завершити закриває вікно форми.
Для створення проекту замовлення квітів у середовищі Lazarus необхідно виконати наступні кроки:
Створити новий проект в Lazarus, використовуючи мову програмування Pascal.
Відкрити вікно форми, на якій будуть розміщені елементи управління: кнопки та текстове поле.
Розмістити на формі кнопки "Оформити замовлення" та "Завершити".
Налаштувати властивості кнопок, вказавши їх назви та розміщення на формі.
Додати обробники подій для кнопок. При натисненні на кнопку "Оформити замовлення" повинен виводитись відповідний текст у текстовому полі, захищеному від змін. При натисненні на кнопку "Завершити" вікно форми має бути закрите.
Налаштувати властивості текстового поля, вказавши його розміщення на формі та заборонивши редагування його вмісту.
Зберегти проект та скомпілювати його.
Ось код програми для замовлення квітів у середовищі Lazarus:
txtOrder.Lines.Add('Дякуємо за замовлення квітів!');
end;
procedure TfrmMain.btnExitClick(Sender: TObject);
begin
Close;
end;
end.
В даному випадку, кнопка "Оформити замовлення" виводить текст "Дякуємо за замовлення квітів!" у текстове поле txtOrder. Кнопка "Завершити" закриває вікно форми.
Объяснение:
3 votes Thanks 0
TeaWithMint2000
Данный код не работает попробуйте написать более естественно в Пайтон
Answers & Comments
Ответ:
Для створення проекту замовлення квітів у середовищі Lazarus необхідно виконати наступні кроки:
Створити новий проект в Lazarus, використовуючи мову програмування Pascal.
Відкрити вікно форми, на якій будуть розміщені елементи управління: кнопки та текстове поле.
Розмістити на формі кнопки "Оформити замовлення" та "Завершити".
Налаштувати властивості кнопок, вказавши їх назви та розміщення на формі.
Додати обробники подій для кнопок. При натисненні на кнопку "Оформити замовлення" повинен виводитись відповідний текст у текстовому полі, захищеному від змін. При натисненні на кнопку "Завершити" вікно форми має бути закрите.
Налаштувати властивості текстового поля, вказавши його розміщення на формі та заборонивши редагування його вмісту.
Зберегти проект та скомпілювати його.
Ось код програми для замовлення квітів у середовищі Lazarus:
unit MainForm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TfrmMain }
TfrmMain = class(TForm)
btnSubmit: TButton;
btnExit: TButton;
txtOrder: TMemo;
procedure btnExitClick(Sender: TObject);
procedure btnSubmitClick(Sender: TObject);
private
public
end;
var
frmMain: TfrmMain;
implementation
{$R *.lfm}
{ TfrmMain }
procedure TfrmMain.btnSubmitClick(Sender: TObject);
begin
txtOrder.Lines.Add('Дякуємо за замовлення квітів!');
end;
procedure TfrmMain.btnExitClick(Sender: TObject);
begin
Close;
end;
end.
В даному випадку, кнопка "Оформити замовлення" виводить текст "Дякуємо за замовлення квітів!" у текстове поле txtOrder. Кнопка "Завершити" закриває вікно форми.
Объяснение: