unitmydlg.pas

DELPHI的报表控件

unit UnitMyDlg;

interface

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

type
  TFm_SaveAsEdit = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  function InputQuery2(const ACaption, APrompt: string; var Value: string): Boolean;
  function InputQuery3(const ACaption, APrompt: string; var Value : String; List: TStrings): Boolean;


implementation

{$R *.DFM}

var
  Fm_SaveAsEdit: TFm_SaveAsEdit;
  Fm_SaveAsCombo: TFm_SaveAsCombo;

function InputQuery2(const ACaption, APrompt: string; var Value: String): Boolean;
var
  DriveName : String;
begin
  if Fm_SaveAsEdit =nil then Fm_SaveAsEdit := TFm_SaveAsEdit.Create(Application.MainForm);
  Fm_SaveAsEdit.Caption := ACaption;
  Fm_SaveAsEdit.GroupBox1.Caption := APrompt;
  if Value<>'' then Fm_SaveAsEdit.Edit1.Text := Value;
  Result := Fm_SaveAsEdit.ShowModal = mrOk;
  if Result then Value := Fm_SaveAsEdit.Edit1.Text;
//  Fm_SaveAsEdit.Free;
end;

function InputQuery3(const ACaption, APrompt: string; var Value: String; List: TStrings): Boolean;
var
  DriveName : String;
begin
  if Fm_SaveAsCombo=nil then Fm_SaveAsCombo := TFm_SaveAsCombo.Create(Application.MainForm);
  Fm_SaveAsCombo.Caption := ACaption;
  Fm_SaveAsCombo.GroupBox1.Caption := APrompt;
  if List.Count>0 then begin
    Fm_SaveAsCombo.ComboBox1.Items.Assign(list);
    Fm_SaveAsCombo.ComboBox1.ItemIndex := 0;
  end;
  Result := Fm_SaveAsCombo.ShowModal = mrOk;
  if Result then Value := Fm_SaveAsCombo.ComboBox1.Text;
//  Fm_SaveAsCombo.Free;
end;

procedure TFm_SaveAsEdit.FormShow(Sender: TObject);
begin
  Edit1.Focused;
end;

end.