ipmlform.pas

和大家分享一下

unit IPMlForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type
  TIPMailForm=class(TForm)
    Panel1: TPanel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    SharpButton1: TSharpButton;
    SharpButton2: TSharpButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure SharpButton1Click(Sender: TObject);
    procedure SharpButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  IPMailForm: TIPMailForm;


{This file is generated by DeDe Ver 2.50 Copyright (c) 1999-2001 DaFixer}

implementation

{$R *.DFM}


procedure TIPMailForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
{
0048A5B0   53                     push    ebx
0048A5B1   80390D                 cmp     byte ptr [ecx], $0D
0048A5B4   7511                   jnz     0048A5C7

* Reference to control TIPMailForm.SharpButton1 : TSharpButton
|
0048A5B6   8B80D4020000           mov     eax, [eax+$02D4]

* Possible reference to dynamic method TSharpButton.OFFS_FFEC
|
0048A5BC   66BBECFF               mov     bx, $FFEC

|
0048A5C0   E85F8AF7FF             call    00403024
0048A5C5   5B                     pop     ebx
0048A5C6   C3                     ret

0048A5C7   80391B                 cmp     byte ptr [ecx], $1B
0048A5CA   750F                   jnz     0048A5DB

* Reference to field TSharpButton.OFFS_02D8
|
0048A5CC   8B80D8020000           mov     eax, [eax+$02D8]

* Possible reference to dynamic method TPersistent.OFFS_FFEC
|
0048A5D2   66BBECFF               mov     bx, $FFEC

|
0048A5D6   E8498AF7FF             call    00403024
0048A5DB   5B                     pop     ebx
0048A5DC   C3                     ret


}
 end ; 

procedure TIPMailForm.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
0048A4E0   55                     push    ebp
0048A4E1   8BEC                   mov     ebp, esp
0048A4E3   53                     push    ebx
0048A4E4   56                     push    esi
0048A4E5   8BF2                   mov     esi, edx
0048A4E7   8BD8                   mov     ebx, eax
0048A4E9   8BC3                   mov     eax, ebx

|
0048A4EB   E8D4CEFAFF             call    004373C4
0048A4F0   8BD8                   mov     ebx, eax

|
0048A4F2   E89DC9F7FF             call    00406E94
0048A4F7   3BD8                   cmp     ebx, eax
0048A4F9   750A                   jnz     0048A505
0048A4FB   8BC6                   mov     eax, esi
0048A4FD   8B10                   mov     edx, [eax]

* Possible reference to virtual method <UnknownType>.OFFS_00B0
|
0048A4FF   FF92B0000000           call    dword ptr [edx+$00B0]
0048A505   5E                     pop     esi
0048A506   5B                     pop     ebx
0048A507   5D                     pop     ebp
0048A508   C208                   ret     $08


}
 end ; 

procedure TIPMailForm.FormShow(Sender: TObject);
begin
{

* Reference to control TIPMailForm.Edit1 : TEdit
|
0048A5E0   8B80DC020000           mov     eax, [eax+$02DC]
0048A5E6   8B10                   mov     edx, [eax]

* Possible reference to virtual method TEdit.OFFS_00B0
|
0048A5E8   FF92B0000000           call    dword ptr [edx+$00B0]
0048A5EE   C3                     ret


}
 end ; 

procedure TIPMailForm.SharpButton1Click(Sender: TObject);
begin
{
0048A50C   55                     push    ebp
0048A50D   8BEC                   mov     ebp, esp
0048A50F   6A00                   push    $00
0048A511   6A00                   push    $00
0048A513   53                     push    ebx
0048A514   8BD8                   mov     ebx, eax
0048A516   33C0                   xor     eax, eax
0048A518   55                     push    ebp

* Possible String Reference to: '