[Delphi] InputBox, InputQuery 사용법

InputBox

InputBox는 Vcl.Dialogs를 use하여 사용합니다.

아래는 샘플코드입니다.

procedure TForm1.Button1Click(Sender: TObject);
var
  sString: String;
begin
  sString := InputBox('타이틀(Title)', '입력', '값을 입력하세요');
end;

버튼을 클릭했을 때 해당 프로시져가 실행되고 아래 InputBox가 실행됩니다.

 

 

 

 

값을 입력후에

Cancel을 클릭한다면 sString에는 아무런 값이 들어가지않고

OK를 클릭한다면 sString에는 입력한 값이 들어가있을 것입니다.

 

 

inputQuery

InputQuery는 True, False와 같은 Boolean을 반환합니다.

 

procedure TForm1.Button1Click(Sender: TObject);
var
  sString: string;
  ClickedOK: Boolean;
begin
  sString := 'Default String';
  ClickedOK := InputQuery('타이틀(Title)', '입력', sString);
  if ClickedOK then        
    Label1.Caption := sString;
end;

버튼을 누르면 아래 Modal이 뜹니다.

 

 

 

 

Cancel을 누르면 ClickedOK가 False를 반환하여 Label1의 Caption은 바뀌지 않고

OK를 누르면 ClickedOK가 True를 반환하여 Label1의 Caption이 입력한 String으로 바뀌게 됩니다.