請問一下，InputQuery FUNCTION 通常只能輸入一個值，可以有辦法輸入二個值得物件嗎?? 我有使用過 LoginDialog FUNCTION 但是User NAME & PASSWD 的字無法修改，請問有別的方式嗎??    謝謝    ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您

其實 你可以自己建立一個Form 用Showmodal的方式 也是一個可以達成你所希望的做法

Dear hahalin:     我有寫過但是問題如: procedure TexChangeStockFORM.Button2Click(Sender: TObject); begin         IF Application.FindComponent('DateForm')=nil then         BEGIN             Application.CreateForm(TDateForm,DateForm );             DateForm.Show;         END;           Memo1.Lines.Append(DateForm.Edit1.txt);          Memo1.Lines.Append(DateForm.Edit2.txt); end;    但是 DateForm.Show 之後就直接執行 Memo1 的 Append ，我不知如何讓它等 DateForm 做完輸入值再讓它執行 Memo1 的 Append.    謝謝    ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您

您好﹗    可將Memo的Append的部分寫在DateForm的OnClose事件中﹐如下﹕

procedure TexChangeStockFORM.Button2Click(Sender: TObject);
begin
  IF Application.FindComponent('DateForm')=nil then
    BEGIN
      Application.CreateForm(TDateForm,DateForm );
    DateForm.Show;
END;    procedure TDateForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TexChangeStockFORM.Memo1.Lines.Append(Edit1.txt); 
  TexChangeStockFORM.Memo1.Lines.Append(Edit2.txt);
end;

========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/11/17 17:33:01

------
忻晟

Dear cashxin2002:   DateForm 的目的是要值的傳入，不是要RUN任何job，而且Memo1 是例舉 我會有一段程式一定要再TexChangeStockFORM上執行，我的問題是: InputQuery FUNCTION 通常只能輸入一個值，可以有辦法輸入二個值得物件嗎?? 我有使用過 LoginDialog FUNCTION 但是User NAME & PASSWD 的字無法修改，請問有別的方式嗎?? ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您

function MultiInputQuery(const ACaption, APrompt1,APrompt2: string;
                         var Value1,Value2: string): Boolean;
Const
  EditBoxWidth    = 160;
  MinPromptWidth  = 50;
  ButtonHeight    = 22;
var
  Form: TForm;
  Prompt1,Prompt2: TLabel;
  Edit1,Edit2: TEdit;
  TxtHeight,PromptWdth: Integer;
begin
  Result := False;
  Form := TForm.Create(Application);
    with Form do
    try
      Canvas.Font  := Font;
      TxtHeight    := Canvas.TextHeight('T') 10;
      BorderStyle  := bsDialog;
      Caption      := ACaption;
      Position     := poScreenCenter;
      Prompt1 := TLabel.Create(Form);
      with Prompt1 do
      begin
        Parent   := Form;
        AutoSize := True;
        SetBounds(10,8,Width,Height);
        Caption  := APrompt1;
        PromptWdth := Width;
      end;
      Prompt2 := TLabel.Create(Form);
      with Prompt2 do
      begin
        Parent   := Form;
        AutoSize := True;
        SetBounds(10,6 TxtHeight 10,Width,Height);
        Caption  := APrompt2;
        if Width>PromptWdth then PromptWdth := Width;
        if PromptWdth    隨便寫的。更改 InputQuery ，細節部分自己在調整吧！
以後這方面，可以自己嘗試寫寫看！
這樣才會進步。    就這樣了。     
        

"但是 DateForm.Show 之後就直接執行 Memo1 的 Append ， 我不知如何讓它等DateForm 做完輸入值再讓它執行 Memo1 的 Append." 不知道是不是這樣?! procedure TForm1.Button1Click(Sender: TObject); begin try DateForm:=TDateForm.Create(self); DateForm.ShowModal; if DateForm.ModalResult=mrOk then begin memo1.Lines.Add('Eidt1= ' Edit1.Text); memo1.Lines.Add('Eidt2= ' Edit2.Text); end; finally DateForm.Free; end;

Dear wameng :   謝謝你! 寫的好用的 MultiInputQuery function .        ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您