如題，或者有其他方式可替代(不產生另一個From為原則)??

------
ivankuo

Inputbox??? If it is DBGrid, you can set the PickList of the columns.

我的意思是說，用inputbox的函數呼叫輸入視窗的時候，可否將combobox或其他元件加入ㄋ??

------
ivankuo

I don't think there is any easy way to do it without 'fighting' without Windows API. IMHO, creating a dialog form is much more easier.

喔~~~了解~~~ 感謝前輩~~~~~

------
ivankuo

再請教1個問題 如果我連續有三個InputBox，當如果第一個InputBox執行後，按取消，如何控制第二三個InputBox不要執行?? S1:=InputBox('DATA1','A',''); S2:=InputBox('DATA1','A',''); S3:=InputBox('DATA1','A','');

------
ivankuo

InputBox 在按取消時會回第三個參數值給你 用你的 SAMPLE, 可以如下判斷 S1:=InputBox('DATA1','A',''); if S1 <> '' then // 如果回傳的值不是 Default 的 ''. begin S2:=InputBox('DATA1','A',''); S3:=InputBox('DATA1','A',''); end;

Try replacing InputBox with InputQuery.

引言: InputBox 在按取消時會回第三個參數值給你 用你的 SAMPLE, 可以如下判斷 S1:=InputBox('DATA1','A',''); if S1 <> '' then // 如果回傳的值不是 Default 的 ''. begin S2:=InputBox('DATA1','A',''); S3:=InputBox('DATA1','A',''); end;

可是如果設定DEFAULT值的話怎辦??

var
    s1,s2,s3: string;
begin
    s1 := '1';
    s2 := '2';
    s3 := '3';
    if InputQuery('DATA1','A',s1) then begin
        if InputQuery('DATA1','A',s2) then begin
            InputQuery('DATA1','A',s3);
        end;
    end;
end;

引言:

var
    s1,s2,s3: string;
begin
    s1 := '1';
    s2 := '2';
    s3 := '3';
    if InputQuery('DATA1','A',s1) then begin
        if InputQuery('DATA1','A',s2) then begin
            InputQuery('DATA1','A',s3);
        end;
    end;
end;

感謝前輩用inputquery的方式可以了。