unit DocCopy;
|
|
interface
|
|
uses
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Dialogs, StdCtrls, CheckLst, ExtCtrls;
|
|
type
|
TDocCopyForm = class(TForm)
|
Panel1: TPanel;
|
Splitter1: TSplitter;
|
CopyFromGB: TGroupBox;
|
CheckListBox1: TCheckListBox;
|
CopyToGB: TGroupBox;
|
CheckListBox2: TCheckListBox;
|
Panel2: TPanel;
|
CopyBt: TButton;
|
CancelBt: TButton;
|
procedure CopyBtClick(Sender: TObject);
|
procedure CancelBtClick(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
private
|
{ Private declarations }
|
public
|
{ Public declarations }
|
end;
|
|
var
|
DocCopyForm: TDocCopyForm;
|
|
implementation
|
|
{$R *.dfm}
|
|
procedure TDocCopyForm.CopyBtClick(Sender: TObject);
|
begin
|
ModalResult := MrOk;
|
end;
|
|
procedure TDocCopyForm.FormCreate(Sender: TObject);
|
begin
|
PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
|
end;
|
|
procedure TDocCopyForm.CancelBtClick(Sender: TObject);
|
begin
|
ModalResult := MrCancel;
|
end;
|
|
end.
|
