Delphi. UniGUI. Prompt

В Delphi есть инструкция InputBox, в UniGUI это Prompt, смысл тот же.

Есть разные вариации этой команды, как видно из картинок. А вот как это обрабатывается в коде.

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  Prompt('Please enter a text', '', mtInformation, mbOKCancel, PromptCallBack);
end;

procedure TMainForm.UniButton2Click(Sender: TObject);
begin
  Prompt('Please enter a text', '', mtInformation, mbOKCancel, PromptCallBack, True);
end;

procedure TMainForm.UniButton3Click(Sender: TObject);
begin
  Prompt('@*Please enter password', '', mtInformation, mbOKCancel, PromptCallBack, False);
end;

procedure TMainForm.UniButton4Click(Sender: TObject);
begin
  Prompt('@@Please enter a text', '', mtInformation, mbOKCancel, PromptCallBackDelay, False);
end;

procedure TMainForm.PromptCallBack(Sender: TComponent; AResult:Integer; AText: string);
begin
  if AResult = mrOK then
  begin
    UniMemo1.Lines.Add(AText);
  end;
end;

procedure TMainForm.PromptCallBackDelay(Sender: TComponent; AResult:Integer; AText: string);
begin
  if AResult = mrOK then
  begin
    Sleep(3000);
    UniMemo1.Lines.Add(AText);
  end;
end;
This entry was posted in Без рубрики. Bookmark the permalink.