frmdialog.pas

来自「你用过ExeScope吗？它是能够将Exe文件中的资源进行查看并修改的工具」· PAS 代码 · 共 52 行

{**************************************************************
*                                                             *
*  Copyright @2002-2003                                       *
*  Author: OuChengSong                                        *
*  Create Date:   2003-2-18                                   *
*                                                             *
*  Descript: 如果选择对话框，根据对话框数据模拟下来。         *
*                                                             *
**************************************************************}

unit FrmDialog;

interface

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

type
  TDialogForm = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DialogForm: TDialogForm;

implementation

{$R *.dfm}
uses FrmMain;

procedure TDialogForm.FormShow(Sender: TObject);
begin
  with DialogForm do
  begin
    SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW);
  end;

end;

procedure TDialogForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainForm.btnShowCtrl.Click;
end;

end.