InputBox，“OK，Cancel”两个按钮，无论点哪个都一样，怎么办?

以下是解决方案

function InputBox(const ACaption, APrompt, ADefault: string): string;
第三个参数设为空值，按cancel就会返回空值 (第三个参数是显示在Inputbox中的默认值)

然后我们这么处理

var
aa: string;
begin
aa := InputBox('asdasd', 'asdasds', aa);
if aa <> '' then
ShowMessage(aa);
end;
OK，是把输入的值给aa
Cancel，则把aa的值清空，
你可以根据aa值来判断是OK还是Cancel