📄 strform.pas
字号:
unit StrForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TStringForm=class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
StringForm: TStringForm;
{This file is generated by DeDe Ver 2.50 Copyright (c) 1999-2001 DaFixer}
implementation
{$R *.DFM}
procedure TStringForm.FormShow(Sender: TObject);
begin
{
00489B74 53 push ebx
00489B75 8BD8 mov ebx, eax
* Reference to control TStringForm.Edit1 : TEdit
|
00489B77 8B83D0020000 mov eax, [ebx+$02D0]
00489B7D 8B10 mov edx, [eax]
* Possible reference to virtual method TEdit.OFFS_4C
|
00489B7F FF524C call dword ptr [edx+$4C]
00489B82 84C0 test al, al
00489B84 741B jz 00489BA1
* Reference to control TStringForm.Edit1 : TEdit
|
00489B86 8B83D0020000 mov eax, [ebx+$02D0]
00489B8C 8B10 mov edx, [eax]
* Possible reference to virtual method TEdit.OFFS_00B0
|
00489B8E FF92B0000000 call dword ptr [edx+$00B0]
* Reference to control TStringForm.Edit1 : TEdit
|
00489B94 8B83D0020000 mov eax, [ebx+$02D0]
|
00489B9A E8DDEAF9FF call 0042867C
00489B9F 5B pop ebx
00489BA0 C3 ret
00489BA1 8B83D4020000 mov eax, [ebx+$02D4]
00489BA7 8B10 mov edx, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_00B0
|
00489BA9 FF92B0000000 call dword ptr [edx+$00B0]
00489BAF 8B83D4020000 mov eax, [ebx+$02D4]
|
00489BB5 E8C2EAF9FF call 0042867C
00489BBA 5B pop ebx
00489BBB C3 ret
}
end ;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -