📄 ascq.pas
字号:
unit ASCQ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Mask, Buttons, ExtCtrls
type
TfrmCQSel=class(TForm)
mRadioCQ: TRadioGroup;
Button1: TBitBtn;
Button2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
RadioGroup1: TRadioGroup;
Label5: TLabel;
MaskEdit1: TMaskEdit;
mCBSave: TCheckBox;
procedure FormKeyDown(Sender : TObject);
procedure mRadioCQClick(Sender : TObject);
procedure Edit1Exit(Sender : TObject);
procedure Edit3Exit(Sender : TObject);
procedure Edit2Exit(Sender : TObject);
procedure Edit4Exit(Sender : TObject);
procedure MaskEdit1Exit(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_005B0D15(Sender : TObject);
procedure _PROC_005B0D44(Sender : TObject);
procedure Proc_005B0D4C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmCQSel: TfrmCQSel;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmCQSel.FormKeyDown(Sender : TObject);
begin
(*
005B082C 55 push ebp
005B082D 8BEC mov ebp, esp
005B082F 53 push ebx
005B0830 6683391B cmp word ptr [ecx], +$1B
005B0834 750F jnz 005B0845
* Reference to control TfrmCQSel.Button2 : TBitBtn
|
005B0836 8B80D8020000 mov eax, [eax+$02D8]
* Possible reference to dynamic method TBitBtn.OFFS_FFEC
|
005B083C 66BBECFF mov bx, $FFEC
* Reference to: system.@CallDynaInst;
|
005B0840 E8632CE5FF call 004034A8
005B0845 5B pop ebx
005B0846 5D pop ebp
005B0847 C20400 ret $0004
*)
end;
procedure TfrmCQSel.mRadioCQClick(Sender : TObject);
begin
(*
005B084C 53 push ebx
005B084D 8BD8 mov ebx, eax
* Reference to control TfrmCQSel.mRadioCQ : TRadioGroup
|
005B084F 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TRadioGroup.ItemIndex : Integer
|
005B0855 83B80002000000 cmp dword ptr [eax+$0200], +$00
005B085C 7577 jnz 005B08D5
005B085E 33D2 xor edx, edx
* Reference to control TfrmCQSel.Label1 : TLabel
|
005B0860 8B83DC020000 mov eax, [ebx+$02DC]
005B0866 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
005B0868 FF515C call dword ptr [ecx+$5C]
005B086B 33D2 xor edx, edx
* Reference to control TfrmCQSel.Label2 : TLabel
|
005B086D 8B83E0020000 mov eax, [ebx+$02E0]
005B0873 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
005B0875 FF515C call dword ptr [ecx+$5C]
005B0878 33D2 xor edx, edx
* Reference to control TfrmCQSel.Label3 : TLabel
|
005B087A 8B83E4020000 mov eax, [ebx+$02E4]
005B0880 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
005B0882 FF515C call dword ptr [ecx+$5C]
005B0885 33D2 xor edx, edx
* Reference to control TfrmCQSel.Label4 : TLabel
|
005B0887 8B83E8020000 mov eax, [ebx+$02E8]
005B088D 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
005B088F FF515C call dword ptr [ecx+$5C]
005B0892 33D2 xor edx, edx
* Reference to control TfrmCQSel.Edit1 : TEdit
|
005B0894 8B83EC020000 mov eax, [ebx+$02EC]
005B089A 8B08 mov ecx, [eax]
* Reference to method TEdit.SetEnabled(Boolean)
|
005B089C FF515C call dword ptr [ecx+$5C]
005B089F 33D2 xor edx, edx
* Reference to control TfrmCQSel.Edit2 : TEdit
|
005B08A1 8B83F0020000 mov eax, [ebx+$02F0]
005B08A7 8B08 mov ecx, [eax]
* Reference to method TEdit.SetEnabled(Boolean)
|
005B08A9 FF515C call dword ptr [ecx+$5C]
005B08AC 33D2 xor edx, edx
* Reference to control TfrmCQSel.Edit3 : TEdit
|
005B08AE 8B83F4020000 mov eax, [ebx+$02F4]
005B08B4 8B08 mov ecx, [eax]
* Reference to method TEdit.SetEnabled(Boolean)
|
005B08B6 FF515C call dword ptr [ecx+$5C]
005B08B9 33D2 xor edx, edx
* Reference to control TfrmCQSel.Edit4 : TEdit
|
005B08BB 8B83F8020000 mov eax, [ebx+$02F8]
005B08C1 8B08 mov ecx, [eax]
* Reference to method TEdit.SetEnabled(Boolean)
|
005B08C3 FF515C call dword ptr [ecx+$5C]
005B08C6 33D2 xor edx, edx
* Reference to control TfrmCQSel.mCBSave : TCheckBox
|
005B08C8 8B8308030000 mov eax, [ebx+$0308]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
005B08CE E89590E8FF call 00439968
005B08D3 5B pop ebx
005B08D4 C3 ret
005B08D5 B201 mov dl, $01
* Reference to control Containing : N.A.
|
005B08D7 8B83DC020000 mov eax, [ebx+$02DC]
005B08DD 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B08DF FF515C call dword ptr [ecx+$5C]
005B08E2 B201 mov dl, $01
* Reference to control StopButton : N.A.
|
005B08E4 8B83E0020000 mov eax, [ebx+$02E0]
005B08EA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B08EC FF515C call dword ptr [ecx+$5C]
005B08EF B201 mov dl, $01
* Reference to control Animate : N.A.
|
005B08F1 8B83E4020000 mov eax, [ebx+$02E4]
005B08F7 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B08F9 FF515C call dword ptr [ecx+$5C]
005B08FC B201 mov dl, $01
* Reference to control Panel2 : N.A.
|
005B08FE 8B83E8020000 mov eax, [ebx+$02E8]
005B0904 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B0906 FF515C call dword ptr [ecx+$5C]
005B0909 B201 mov dl, $01
* Reference to control FoundFiles : N.A.
|
005B090B 8B83EC020000 mov eax, [ebx+$02EC]
005B0911 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B0913 FF515C call dword ptr [ecx+$5C]
005B0916 B201 mov dl, $01
* Reference to control Panel3 : N.A.
|
005B0918 8B83F0020000 mov eax, [ebx+$02F0]
005B091E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B0920 FF515C call dword ptr [ecx+$5C]
005B0923 B201 mov dl, $01
* Reference to control RichEdit1 : N.A.
|
005B0925 8B83F4020000 mov eax, [ebx+$02F4]
005B092B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B092D FF515C call dword ptr [ecx+$5C]
005B0930 B201 mov dl, $01
* Reference to control Splitter1 : N.A.
|
005B0932 8B83F8020000 mov eax, [ebx+$02F8]
005B0938 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
005B093A FF515C call dword ptr [ecx+$5C]
005B093D B201 mov dl, $01
005B093F 8B8308030000 mov eax, [ebx+$0308]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
005B0945 E81E90E8FF call 00439968
005B094A 5B pop ebx
005B094B C3 ret
*)
end;
procedure TfrmCQSel.Edit1Exit(Sender : TObject);
begin
(*
005B094C 55 push ebp
005B094D 8BEC mov ebp, esp
005B094F 83C4F8 add esp, -$08
005B0952 53 push ebx
005B0953 56 push esi
005B0954 57 push edi
005B0955 33C9 xor ecx, ecx
005B0957 894DF8 mov [ebp-$08], ecx
005B095A 8945FC mov [ebp-$04], eax
005B095D 33C0 xor eax, eax
005B095F 55 push ebp
* Possible String Reference to: '镹0⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -