引言: 1.我想讓程式一開始就先show一個form,讓用戶操作後就關閉這個form然後再show第二個form 2.想做到上面的效果是不是也不一定用兩個form,是不是可以先show一個東西,可以讓用戶輸入一些文字,就再showmessage一樣,再show出主要form 這是兩個問題,謝謝各位高手解答!

1.
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2:=TForm2.Create(Self);
  try
    if Form2.ShowModal=mrok then begin        end;
  finally
    Form2.Free;
  end;
end;    2.使用ShowMessage or Inputbox or MessageBox或是引用Dll表格等!!
procedure TForm1.FormCreate(Sender: TObject);
begin
  if InputBox('AA','BB','')='CC' then code....
end;

public
    Str: String; //先宣告一個字串變數﹐用于記錄使用者輸入的文字
    { Public declarations }
  end;    //在Form1的OnCreate事件中輸入如下程式碼﹕
procedure TForm1.FormCreate(Sender: TObject);
Var
  Flag: Boolean;
begin
  Flag := InputQuery('對話框標題', '對話框提示', Str);
  //此處的Str即是先前宣告的字串變數﹐用來記錄使用者輸入的文字
  if Not Flag then
  //判斷使用者是否按下[Cancel]鍵
    Application.Terminate;
  //如果使用者按下[Cancel]鍵﹐則退出程式
  //反之﹐如果使用者按下[OK]鍵﹐則用Str字串變數記錄使用者輸入的文字
end;    在Form1中加入一個Button按鈕﹐在其OnClick事件中加入如下程式碼﹐以用作測試Str字串變數記錄下的文字內容﹕
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Str);
  //秀出Str字串變數中在InputQuery對話框中記錄下的文字內容
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

引言: 您好﹗ 參考如下方法試試﹕

public
    Str: String; //先宣告一個字串變數﹐用于記錄使用者輸入的文字
    { Public declarations }
  end;    //在Form1的OnCreate事件中輸入如下程式碼﹕
procedure TForm1.FormCreate(Sender: TObject);
Var
  Flag: Boolean;
begin
  Flag := InputQuery('對話框標題', '對話框提示', Str);
  //此處的Str即是先前宣告的字串變數﹐用來記錄使用者輸入的文字
  if Not Flag then
  //判斷使用者是否按下[Cancel]鍵
    Application.Terminate;
  //如果使用者按下[Cancel]鍵﹐則退出程式
  //反之﹐如果使用者按下[OK]鍵﹐則用Str字串變數記錄使用者輸入的文字
end;    在Form1中加入一個Button按鈕﹐在其OnClick事件中加入如下程式碼﹐以用作測試Str字串變數記錄下的文字內容﹕
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Str);
  //秀出Str字串變數中在InputQuery對話框中記錄下的文字內容
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

引言: 您好﹗ 參考如下方法試試﹕

public
    Str: String; //先宣告一個字串變數﹐用于記錄使用者輸入的文字
    { Public declarations }
  end;    //在Form1的OnCreate事件中輸入如下程式碼﹕
procedure TForm1.FormCreate(Sender: TObject);
Var
  Flag: Boolean;
begin
  Flag := InputQuery('對話框標題', '對話框提示', Str);
  //此處的Str即是先前宣告的字串變數﹐用來記錄使用者輸入的文字
  if Not Flag then
  //判斷使用者是否按下[Cancel]鍵
    Application.Terminate;
  //如果使用者按下[Cancel]鍵﹐則退出程式
  //反之﹐如果使用者按下[OK]鍵﹐則用Str字串變數記錄使用者輸入的文字
end;    在Form1中加入一個Button按鈕﹐在其OnClick事件中加入如下程式碼﹐以用作測試Str字串變數記錄下的文字內容﹕
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Str);
  //秀出Str字串變數中在InputQuery對話框中記錄下的文字內容
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

procedure TForm1.Button1Click(Sender: TObject);    var
  NewString: string;
  ClickedOK: Boolean;
begin
  NewString := 'Default String'; //在Edit設定預設文字
  Label1.Caption := NewString;
  ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
  if ClickedOK then            { NewString contains new input string }
    Label1.Caption := 'The new string is '''   NewString   '''';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2:=TForm2.Create(Self); //新建一个Form
  try
    if Form2.ShowModal=mrok then begin //当Form显示时做您要做的事        end;
  finally
    Form2.Free; //将form2释放掉
  end;
end;