?? abstime.pas
字號:
unit abstime;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TAbsTimeFrm=class(TForm)
Label2: TLabel;
BtnOk: TBitBtn;
BtnCancel: TBitBtn;
GroupBox1: TGroupBox;
Label4: TLabel;
CBSaveToBK: TCheckBox;
EditName: TEdit;
TimePick: TDateTimePicker;
procedure BtnCancelClick(Sender : TObject);
procedure CBSaveToBKClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure BtnOkClick(Sender : TObject);
procedure _PROC_004CB54D(Sender : TObject);
procedure _PROC_004CB57C(Sender : TObject);
procedure _PROC_004CB584(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
AbsTimeFrm: TAbsTimeFrm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TAbsTimeFrm.BtnCancelClick(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004CB048 E8EF20FBFF call 0047D13C
004CB04D C3 ret
*)
end;
procedure TAbsTimeFrm.CBSaveToBKClick(Sender : TObject);
begin
(*
004CB050 53 push ebx
004CB051 8BD8 mov ebx, eax
* Reference to control TAbsTimeFrm.CBSaveToBK : TCheckBox
|
004CB053 8B830C030000 mov eax, [ebx+$030C]
004CB059 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004CB05B FF92C8000000 call dword ptr [edx+$00C8]
004CB061 3C01 cmp al, $01
004CB063 750F jnz 004CB074
004CB065 B201 mov dl, $01
* Reference to control TAbsTimeFrm.EditName : TEdit
|
004CB067 8B8310030000 mov eax, [ebx+$0310]
004CB06D 8B08 mov ecx, [eax]
* Reference to method TEdit.SetEnabled(Boolean)
|
004CB06F FF5164 call dword ptr [ecx+$64]
004CB072 5B pop ebx
004CB073 C3 ret
004CB074 33D2 xor edx, edx
004CB076 8B8310030000 mov eax, [ebx+$0310]
004CB07C 8B08 mov ecx, [eax]
004CB07E FF5164 call dword ptr [ecx+$64]
004CB081 5B pop ebx
004CB082 C3 ret
*)
end;
procedure TAbsTimeFrm.FormShow(Sender : TObject);
begin
(*
004CB084 55 push ebp
004CB085 8BEC mov ebp, esp
004CB087 33C9 xor ecx, ecx
004CB089 51 push ecx
004CB08A 51 push ecx
004CB08B 51 push ecx
004CB08C 51 push ecx
004CB08D 51 push ecx
004CB08E 51 push ecx
004CB08F 51 push ecx
004CB090 53 push ebx
004CB091 56 push esi
004CB092 57 push edi
004CB093 8BD8 mov ebx, eax
004CB095 33C0 xor eax, eax
004CB097 55 push ebp
* Possible String Reference to: '閌庴
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -