unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
FMX.Menus;
type
TForm1 = class(TForm)
Image1: TImage;
Line1: TLine;
Line2: TLine;
Line3: TLine;
Timer1: TTimer;
PopupMenu1: TPopupMenu;
pmnSaishou: TMenuItem;
pmnSyuryo: TMenuItem;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
procedure pmnSaishouClick(Sender: TObject);
procedure pmnSyuryoClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ private 宣言 }
public
{ public 宣言 }
procedure TimeDisp;
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.TimeDisp;
var
h, m, s,ms : Word;
hh, mm, ss: single;
begin