InputBoxEx

[ZuBy]

InputBoxEx - Расширенная версия InputBox. С показом двух Edit'ов

// Разбор полученного результата
procedure InputBoxExResult(const Result: string; var Value1, Value2: string);

// Диалог типа Логин-Пароль
function InputBoxEx(const ATitle, ACaption1, ACaption2: string;
  const ADefault1: string = ''; const ADefault2: string = '';
  const PasswordChar: Char = #0): string;

Если кому вдруг пригодится
Скачать Демо + исходник

[beegl]

отличный компонент, забрал

[ZuBy]

  ButtonOK.Default := true;

профиксил для удобства, добавьте в коде

[beegl]

есть какой-то InputBox, чтоб можно было вводить логин и пароль?

И ссылка не рабочая на InputBoxEx, перезалейте

У меня есть, но там нет InputBoxEx

[ZuBy]

перезалил, таже ссылка что и в первом посте
а вообще он входит в набор компонентов OtherControls
тема на форуме

[beegl]

ZuBy, а как его оформить, без звездочек, мне надо UserName и Serial для снятия триал

[ZuBy]

за это отвечает

const PasswordChar: Char = #0

убери последний параметр в демке и увидешь

  c := InputBoxEx('Авторизация', 'Логин: ', 'Пароль: ', 'Login',
    'Password');

[beegl]

вставил свои кнопки, и перестал реагировать на нажатия:

function InputBoxEx(const ATitle, ACaption1, ACaption2: string;
  const ADefault1: string = ''; const ADefault2: string = ''): string;
var
  Dialog: TForm;
  ButtonOK, ButtonCancel: TGradBtn;
  Caption1, Caption2: TLabel;
  Edit1, Edit2: TEdit;
  Panel: TPanel;
  Wdth, Hght: Integer;
begin
  Focus := True;
  Result := ADefault1 + Delim + ADefault2;
  Dialog := TForm.Create(Application);
  Dialog.Position := poScreenCenter;
  Dialog.BorderStyle := bsSingle;
  Dialog.BorderIcons := [biSystemMenu];
  Dialog.Font.Name := 'Courier New';
  Dialog.Font.Size := 8;
  Dialog.Caption := ATitle;

  ButtonOK := TGradBtn.Create(Dialog);
  ButtonOK.Parent := Dialog;
  ButtonOK.Caption := 'OK';
  ButtonOK.Cursor := crHandPoint;
  ButtonOK.GradientStyle := gsRectangle;
  ButtonOK.BeginColor := $0000F0F0;
  ButtonOK.EndColor := $000F87FF;
  Focus := ButtonOK.Focused;

[ZuBy]

а кто будет указывать как кнопкам вести себя?
в моём коде за это отвечает ModalResult

  ButtonOK := TBitBtn.Create(Dialog);
  ButtonOK.Parent := Dialog;
  ButtonOK.Caption := 'OK';
  ButtonOK.ModalResult := mrOk;
  ButtonOK.Default := true;

  ButtonCancel := TBitBtn.Create(Dialog);
  ButtonCancel.Parent := Dialog;
  ButtonCancel.Caption := 'Отмена';
  ButtonCancel.ModalResult := mrCancel;

если такого нет в ваших чудо кнопках, то придется создавать/присваивать события кнопкам