Главная » Delphi, Исходники, Разное » Часы + дата, с выводом поточного времени
Ноя
04

Часы + дата, с выводом поточного времени

Задание: Создать часы и дата, а потом сделать вывод времени в всплывающем окне после нажатия на кнопку «Время».
Как же выглядит программа:

Часы + дата, с выводом поточного времени

Вот сам код:

[sourcecode language=»css»]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
type
TFLR8 = class(TForm)
TimeLable1: TLabel;
Timer1: TTimer;
Button1: TButton;
DateTimePicker1: TDateTimePicker;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FLR8: TFLR8;
implementation
{$R *.dfm}
procedure TFLR8.Timer1Timer(Sender: TObject);
begin
TimeLable1.Caption:=TimeToStr(Time);
end;
procedure TFLR8.Button1Click(Sender: TObject);
begin
MessageDlg(‘Поточное время: ‘ + TimeToStr(Time),mtInformation,[mbOK],0);
end;
end.
[/sourcecode]
[download id=»22″]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




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