Примеры использования Delphi компонентов

[InfStudent]

1. Категория Standart
а) Button--кнопка:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Привет Мир!');
end;

end.

[InfStudent]

Напишем программу, которая каждые 15 секунд будет выводить сообщение.
1) Выбираем тип проекта VCL Forms Application
2) Кидаем на форму два компонента кнопку (Buuton) палитра Standart
и Timer палитра System
3) Что бы пользователь сам мог включить таймер по нажатию кнопку в Инспекторе объектов изменим свойство Enabled у компонента Timer на false. Это значит что таймер при старте приложения будет выключен
4)  свойство Interval изменим на 15000. Дело в том что время измеряется таймером в милисекундах поэтому 1 сек=1000
5) Создадим обработчик щелчка на кнопке (просто сделайте двойной щелчек на кнопке )
Впишите в созданную процедуру код и она должна стать такой:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
6) Двойной щелчок на компоненте Timer создаст обработчик срабатывания таймера впишите в него код, чтобы он стал таким:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Прошло 15 секунд!');
end;
      

[InfStudent]

Напишем программу по решению кв-го уравнения на Delphi:
1) Выбираем тип проекта VCL Forms Application
2) Кидаем на кнопку
3) Изменяем в инспекторе объектов свойство caption на РЕШИТЬ
4) Кидаем компонент Edit из категории Standart
5)Чуть выше кидаем компонент Label из категории Standart и в его свойстве caption пишем: А
6) Аналогичную последовательность действий выполняем еще два раза и пишем: B и С
7) Удаляем у компонентов Edit через инспектор объектов в  свойстве text все
8) Щелкаем два раза на кнопке РЕШИТЬ входим в обработчик события нажатия пишем код:
var
a,b,c:integer;
d,x,x1:real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=b*b-4*a*c;
d:=sqrt(d);
if d>0 then
begin
x:=(-b+d)/(2*a);
x1:=(-b-d)/(2*a);
ShowMessage('X1:'+ FloatToStr( x));
ShowMessage( 'X1:' +FloatToStr(x1));
end
else
begin
if d=0  then
begin
x:=(-b)/(2*a);
ShowMessage(FloatToStr(x));
end;
if d<0 then
begin
ShowMessage('Нет действ. корней!');
end;
  end;