showmessageunit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：25k
- unit showmessageunit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TGetTextForm=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- TitleLabel: TLabel;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- EditBox: TFlatEdit;
- procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CloseButtonClick(Sender: TObject);
- procedure EditBoxKeyPress(Sender: TObject; var Key: Char);
- procedure EditBoxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
- procedure FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure OutlookBtn1Click(Sender: TObject);
- procedure OutlookBtn2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- GetTextForm: TGetTextForm;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TGetTextForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CC038 55 push ebp
- 004CC039 8BEC mov ebp, esp
- 004CC03B 53 push ebx
- 004CC03C 8BD8 mov ebx, eax
- 004CC03E 8B83C4020000 mov eax, [ebx+$02C4]
- 004CC044 8B4024 mov eax, [eax+$24]
- 004CC047 E89004F7FF call 0043C4DC
- 004CC04C 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004CC04D E826B8F3FF call 00407878
- 004CC052 C783E4020000FFFFFFFF mov dword ptr [ebx+$02E4], $FFFFFFFF
- 004CC05C 8B450C mov eax, [ebp+$0C]
- 004CC05F 8983DC020000 mov [ebx+$02DC], eax
- 004CC065 8B4508 mov eax, [ebp+$08]
- 004CC068 8983E0020000 mov [ebx+$02E0], eax
- 004CC06E 5B pop ebx
- 004CC06F 5D pop ebp
- 004CC070 C20C ret $0C
- }
- end ;
- procedure TGetTextForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CC074 55 push ebp
- 004CC075 8BEC mov ebp, esp
- 004CC077 53 push ebx
- 004CC078 56 push esi
- 004CC079 8BD8 mov ebx, eax
- 004CC07B 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004CC082 7433 jz 004CC0B7
- 004CC084 8B83C4020000 mov eax, [ebx+$02C4]
- 004CC08A 8B7024 mov esi, [eax+$24]
- 004CC08D 8B83DC020000 mov eax, [ebx+$02DC]
- 004CC093 2B450C sub eax, dword ptr [ebp+$0C]
- 004CC096 8B5630 mov edx, [esi+$30]
- 004CC099 2BD0 sub edx, eax
- 004CC09B 8BC6 mov eax, esi
- 004CC09D E80A9EF6FF call 00435EAC
- 004CC0A2 8B83E0020000 mov eax, [ebx+$02E0]
- 004CC0A8 2B4508 sub eax, dword ptr [ebp+$08]
- 004CC0AB 8B5634 mov edx, [esi+$34]
- 004CC0AE 2BD0 sub edx, eax
- 004CC0B0 8BC6 mov eax, esi
- 004CC0B2 E8199EF6FF call 00435ED0
- 004CC0B7 5E pop esi
- 004CC0B8 5B pop ebx
- 004CC0B9 5D pop ebp
- 004CC0BA C208 ret $08
- }
- end ;
- procedure TGetTextForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CC0C0 55 push ebp
- 004CC0C1 8BEC mov ebp, esp
- 004CC0C3 53 push ebx
- 004CC0C4 56 push esi
- 004CC0C5 8BD8 mov ebx, eax
- 004CC0C7 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004CC0CE 7440 jz 004CC110
- 004CC0D0 8B83C4020000 mov eax, [ebx+$02C4]
- 004CC0D6 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004CC0D9 E84AB7F3FF call 00407828
- 004CC0DE 33C0 xor eax, eax
- 004CC0E0 8983E4020000 mov [ebx+$02E4], eax
- 004CC0E6 8B83DC020000 mov eax, [ebx+$02DC]
- 004CC0EC 2B450C sub eax, dword ptr [ebp+$0C]
- 004CC0EF 8B5630 mov edx, [esi+$30]
- 004CC0F2 2BD0 sub edx, eax
- 004CC0F4 8BC6 mov eax, esi
- 004CC0F6 E8B19DF6FF call 00435EAC
- 004CC0FB 8B83E0020000 mov eax, [ebx+$02E0]
- 004CC101 2B4508 sub eax, dword ptr [ebp+$08]
- 004CC104 8B5634 mov edx, [esi+$34]
- 004CC107 2BD0 sub edx, eax
- 004CC109 8BC6 mov eax, esi
- 004CC10B E8C09DF6FF call 00435ED0
- 004CC110 5E pop esi
- 004CC111 5B pop ebx
- 004CC112 5D pop ebp
- 004CC113 C20C ret $0C
- }
- end ;
- procedure TGetTextForm.CloseButtonClick(Sender: TObject);
- begin
- {
- 004CC028 C6053073540000 mov byte ptr [$547330], $00
- 004CC02F E89838F8FF call 0044F8CC
- 004CC034 C3 ret
- }
- end ;
- procedure TGetTextForm.EditBoxKeyPress(Sender: TObject; var Key: Char);
- begin
- {
- 004CC170 80390D cmp byte ptr [ecx], $0D
- 004CC173 7503 jnz 004CC178
- 004CC175 C60100 mov byte ptr [ecx], $00
- 004CC178 C3 ret
- }
- end ;
- procedure TGetTextForm.EditBoxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
- begin
- {
- 004CC138 55 push ebp
- 004CC139 8BEC mov ebp, esp
- 004CC13B 53 push ebx
- 004CC13C 56 push esi
- 004CC13D 8BF1 mov esi, ecx
- 004CC13F 8BD8 mov ebx, eax
- 004CC141 66833E0D cmp word ptr [esi], +$0D
- 004CC145 750E jnz 004CC155
- 004CC147 C6053073540001 mov byte ptr [$547330], $01
- 004CC14E 8BC3 mov eax, ebx
- 004CC150 E87737F8FF call 0044F8CC
- 004CC155 66833E1B cmp word ptr [esi], +$1B
- 004CC159 750E jnz 004CC169
- 004CC15B C6053073540000 mov byte ptr [$547330], $00
- 004CC162 8BC3 mov eax, ebx
- 004CC164 E86337F8FF call 0044F8CC
- 004CC169 5E pop esi
- 004CC16A 5B pop ebx
- 004CC16B 5D pop ebp
- 004CC16C C204 ret $04
- }
- end ;
- procedure TGetTextForm.FormCreate(Sender: TObject);
- begin
- {
- 004CBFC8 55 push ebp
- 004CBFC9 8BEC mov ebp, esp
- 004CBFCB 6A00 push $00
- 004CBFCD 53 push ebx
- 004CBFCE 8BD8 mov ebx, eax
- 004CBFD0 33C0 xor eax, eax
- 004CBFD2 55 push ebp
- * Possible String Reference to: "锳v
English
