?? display1.pas
字號:
unit Display1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TFrm_Display1 = class(TForm)
Panel1: TPanel;
LB1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Display1: TFrm_Display1;
implementation
uses sys_global ;
{$R *.dfm}
function GetHourMinuteSec(M: Dword): string ; //BjCat
var
h, n, s: Dword ;
begin
h := m div 3600;
n := (m - h*3600) div 60 ;
s := m-h*3600-n*60 ;
result := intTostr(h)+'小時'+intTostr(n)+'分鐘'+intTostr(s)+'秒'
end ;
function GetHourMinute(M: integer): string ;
var
h, n: integer ;
begin
h := m div 60 ;
n := m mod 60 ;
result := intTostr(h)+'小時'+intTostr(n)+'分鐘'
end ;
procedure TFrm_Display1.Timer1Timer(Sender: TObject);
var
//BjCat x: real ;
tm: Dword ;
begin
Timer1.Enabled := false ;
if m_ICtype = '5' then begin
LB1.Caption := '余額: 0 元' ;
exit ;
end;
if m_ICtype <> '4' then begin
//BjCat LB1.Caption := '余額:' + floatTostrf(m_ICMoney,ffnumber,6,2)+'元, ' ;
LB1.Caption := '已用金額:' + floatTostrf((m_StMoney-m_ICMoney),ffnumber,6,2)+'元, ' + '剩余金額:' + floatTostrf(m_ICMoney,ffnumber,6,2)+'元, ' ;
//BjCat x := (m_montime/60000)*m_ICMoney/m_Rate ;
//BjCat LB1.Caption := LB1.Caption + '余時:' + GetHourMinute(Trunc(X)+1) ;
tm := (GetTickCount div 1000) - m_StartMin ;
LB1.Caption := LB1.Caption + #13 + '已上機的時間:' + GetHourMinuteSec(tm) ;
end
else
begin
LB1.Caption := '余時:' + GetHourMinute(Trunc(m_ICMoney)) ;
end;
Timer1.Interval := 1500 ;
Timer1.Enabled := true ;
end;
procedure TFrm_Display1.FormActivate(Sender: TObject);
begin
Timer1.enabled := true ;
Frm_Display1.top := 0 ;
Frm_Display1.Left := Screen.Width -Frm_display1.Width-150 ;
end;
procedure TFrm_Display1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 115) and ([ssalt] = shift) then
key := 0 ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -