Отправляет email-рассылки с помощью сервиса Sendsay

Элементарный код на Delphi

Подписаться Бесплатная новостная рассылка Подписчиков 20 RSS
  Август 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 12-08-2003

Автор
Ирина

Статистика

20 подписчиков
0 за неделю
←   Все выпуски   →

Элементарный код на Delphi


Информационный Канал Subscribe.Ru 
Выпуск №3

Продолжим наше знакомство с Delphi.
На форму кинем следующие компоненты:
Button1, DateTimePicker1, ProgressBar1, Timer1.
Одно из оснавных свойсвт Timer1 это Interval, в этом свойстве мы задаем "скорость".
Соответственно, чем больше будет интревал, тем медленнее будет выполнятся команда.
В нашем случае мы определим интервал - 100 (по умолчанию 1000).
DateTimePicker1 - Это обыкновенный календарь, его свойства мы изменять не будем,
но искренне рекомендую "поковыряться" в его свойствах - это просто, но интересно
(в плане приобретения дополнительного опыта). В Win32 так же есть компонента
MonthCalendar1, но на мой взгляд она не заслуживает внимания, так как она представляет
собой упращеный вариант DateTimePicker1.


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
{Задаем шаг при помощи StepBy, в зависимости от указанного числа, будет изменятся
шаг}
ProgressBar1.StepBy(10);
{делаем невидимым ProgressBar1}
ProgressBar1.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:='OK';
{Делаем видимым ProgressBar1 при нажатии на кнопку ОК}
ProgressBar1.Visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{Все Вы сталкивались с тем, что когда наводишь мышь на объект, появляется надпись
характеризующая этот объект. Это делается при помощи свойства Hint}
Button1.Hint:='KnopKa';
{Активизируем подсказку при помощи ShowHint}
Button1.ShowHint:=true;
end;
end.

Удачных Вам экспериментов!
Irina_Kholtobina@KhakasNet.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное