Форум АНТИЧАТ - Диалоговое окно с edit`om

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Диалоговое окно с edit`om (https://forum.antichat.xyz/showthread.php?t=160012)

Диалоговое окно с edit`om

Здравствуйте. Как в диалоговое окно сунуть edit? Или может есть какой нить компонент? Сколько искал ничего стоящего не нашел :(

inputBox ? я правильно понял?
переменная := inputBox('заголовок', 'сообщение', 'строка по умолчанию');

да именно то что и было нужно, спасибо :) А как можно поменять текст на кнопках? Допустим вместо cancel отмена, а вместо ok применить?

Цитата:

Сообщение от SultanOFF

Caption, не?

и как у этих кнопок поменять caption?

Button1->Caption="test";

если речь о C++.

речь идет о кнопка в inputbox, delphi 2009 :)

2 SultanOFF скопируй текст функции inputbox и в исходниках её подправь названия кнопок

Код:

 function InputQuery(const ACaption, APrompt: string;

  var Value: string): Boolean;

var

  Form: TForm;

  Prompt: TLabel;

  Edit: TEdit;

  DialogUnits: TPoint;

  ButtonTop, ButtonWidth, ButtonHeight: Integer;

begin

  Result := False;

  Form := TForm.Create(Application);

  with Form do

    try

      Canvas.Font := Font;

      DialogUnits := GetAveCharSize(Canvas);

      BorderStyle := bsDialog;

      Caption := ACaption;

      ClientWidth := MulDiv(180, DialogUnits.X, 4);

      Position := poScreenCenter;

      Prompt := TLabel.Create(Form);

      with Prompt do

      begin

        Parent := Form;

        Caption := APrompt;

        Left := MulDiv(8, DialogUnits.X, 4);

        Top := MulDiv(8, DialogUnits.Y, 8);

        Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);

        WordWrap := True;

      end;

      Edit := TEdit.Create(Form);

      with Edit do

      begin

        Parent := Form;

        Left := Prompt.Left;

        Top := Prompt.Top + Prompt.Height + 5;

        Width := MulDiv(164, DialogUnits.X, 4);

        MaxLength := 255;

        Text := Value;

        SelectAll;

      end;

      ButtonTop := Edit.Top + Edit.Height + 15;

      ButtonWidth := MulDiv(50, DialogUnits.X, 4);

      ButtonHeight := MulDiv(14, DialogUnits.Y, 8);

      with TButton.Create(Form) do

      begin

        Parent := Form;

        Caption := SMsgDlgOK;

        ModalResult := mrOk;

        Default := True;

        SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,

          ButtonHeight);

      end;

      with TButton.Create(Form) do

      begin

        Parent := Form;

        Caption := SMsgDlgCancel;

        ModalResult := mrCancel;

        Cancel := True;

        SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,

          ButtonWidth, ButtonHeight);

        Form.ClientHeight := Top + Height + 13;          

      end;

      if ShowModal = mrOk then

      begin

        Value := Edit.Text;

        Result := True;

      end;

    finally

      Form.Free;

    end;

end;

В строках
Caption := SMsgDlgOK;
...
Caption := SMsgDlgCancel;
...
пишеш нужные тебе кэпшены.