當我按下inputbox的ok後，還要執行其它程式，請問語法該如何下？

procedure TForm1.Button1Click(Sender: TObject); var InputString: string; begin InputString:= InputBox('Input Box', 'Prompt', 'Default string');//Text Default給'Default string' SHOWMESSAGE(InputString); //按下Cancel傳回Default string,如果改變Text的值('123')按下OK就傳回'123' end; TRY TRY SEE

引言: 當我按下inputbox的ok後，還要執行其它程式，請問語法該如何下？

chih：這個我知道了，我現在的問題是當我按下OK後，我還要呼叫借(還)書的procedure，因為程式會很長所以我不想寫在buttonclick裡，想要獨立出各自的procedure，有辦法嗎？

procedure TForm1.Button1Click(Sender: TObject); begin if InputBox('Input Box', 'Prompt', 'Default string')<>'Default string' then ABC;//ABC 是你的procedureName,傳回值<>Default string代表user有改變Text的值,這時就去執行你的procedure end; TRY TRY SEE

引言: chih：這個我知道了，我現在的問題是當我按下OK後，我還要呼叫借(還)書的procedure，因為程式會很長所以我不想寫在buttonclick裡，想要獨立出各自的procedure，有辦法嗎？

//使用InputQuery实现就可以了    var tmp:string; begin if InputQuery('提示', '输入:',tmp) then showmessage('true') else showmessage('false'); end;    风花雪月 e梦情缘

------
风花雪月 e梦情缘

若你給有意義的 Default String, 當 Default String 等於 result 時並不等於 User 沒按 OK, 只是他接受了你的預設值。    這時，最好是用 InputQuery ，因為若 User 按 OK InputQuery 會回傳 True 否則會回傳 False    至於數值就由 var 的參數取得。    例 :

procedure TForm1.Button1Click(Sender: TObject);
var value : string //還可以是 widestring, double, integer 等
begin
  Value := Query1.FieldByName('書號').Value; // 預設值，可不設
  if InputQuery('輸入書號', '請輸入書號', Value) then // 按了 OK
    ProcessOrder(Value) // 你的別的 Procedure
  else // 按了 Cancel
    DoSomethingElse; 
end;

對於 double / integer InputQuery 還支援最大最小值甚按▲▼每次跳多少的設定，滿方便的。看看 Help 罷。 開始打post 時還沒看見 Chih 兄的第二般 post 和 wnhoo 兄的 post， 我打字真慢丫，若看見便不用打了 發表人 -

justmade動作還真快，chih的建議，我看出來並不符我所需，正在思考wnhoo的建議查閱help時，你就出現了....你連我要用在什麼地方都知道，真神... 謝謝你們的指點~上工去囉

呵呵，其實若是我先看見 wnhoo 兄的答題我便不會打的，因為重點他已給你你看看 Help 總是做得出來，所以你給分他絕對是對的。    我最近對你(及其他某些人)的答題都特別詳盡，除答題外多說說觀念問題，可能因為之前大家對答愉快罷< > 但最近因打太多打字又慢總是落在人後，看了以後別打這麼多答題就好< > 說笑啦。