Автор Тема: Примеры использования Delphi компонентов  (Прочитано 7032 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
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.
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Re: Примеры использования Delphi компонентов
« Ответ #1 : 09 Января 2010, 18:53:27 »
Напишем программу, которая каждые 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;
      
« Последнее редактирование: 09 Января 2010, 18:55:18 от InfStudent »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Re: Примеры использования Delphi компонентов
« Ответ #2 : 19 Февраля 2010, 19:55:41 »
Напишем программу по решению кв-го уравнения на 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;
       
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

 

Внешний ассемблер и с++, киньте ссылки на учебники или толковые примеры

Автор Blackhard

Ответов: 0
Просмотров: 3275
Последний ответ 09 Марта 2011, 02:56:41
от Blackhard
Создание фигур разного цвета при нажатии на 2 кнопки(Delphi)

Автор PandaPivovar

Ответов: 2
Просмотров: 4255
Последний ответ 01 Декабря 2009, 23:46:57
от PandaPivovar
Задание по Delphi (при введении данных возникает ошибка)

Автор PandaPivovar

Ответов: 9
Просмотров: 4261
Последний ответ 29 Ноября 2009, 15:55:57
от PandaPivovar
Delphi. Нужно помочь ввести одну формулу.

Автор privatnebank

Ответов: 3
Просмотров: 2826
Последний ответ 27 Мая 2010, 20:53:07
от privatnebank
Нужно решить задачу в Delphi с файлами, помогите?

Автор Alex_93*

Ответов: 1
Просмотров: 3376
Последний ответ 29 Декабря 2010, 16:10:05
от testtest