extctrls.pas

来自「飞狐全推驱动源码,内有好几个版本的源代码」· PAS 代码 · 共 36 行

unit ExtCtrls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TShape=class(TForm)
    procedure StyleChanged(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Shape: TShape;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TShape.StyleChanged(Sender : TObject);
begin
(*
00459C30   8B10                   mov     edx, [eax]
00459C32   FF527C                 call    dword ptr [edx+$7C]
00459C35   C3                     ret

*)
end;

end.