Быстрый ввод параметра

[serega96]

У меня такой вопрос. У сеня в программе в меню есть раздел настройки. и там есть 3 подраздела, при нажатии на которые должны появляться маленькие окошки, в которых будет какой-либо элемент позволяющий выбрать нужное значение определённого параметра. Я создал Frame. Теперь вопрос - как изменить дизайн окна (Border style у формы, а там нет этого свойства). И ещё один вопрос - не нашёл свойства, позволяющего сделать форму фулскринной во время выполнения программы. Подскажите пожалуйста

[Stilet]

А что ты для фрейма хочешь? Caption что ли?

не нашёл свойства

 WindowState:=wsMaximized

[serega96]

Спасибо. Я хочу чтобы в окне был комбобокс и всё. То есть выбираешь пункт из комбобокс - меняется значение переменной, а само окно пропадает.

[Stilet]

Ну так это просто создать форму и открыть ее модально. Причем тут фрейм не вкурил ниразу...

[serega96]

Эммм а можно подробнее пожалуйста?

[Stilet]

Ну что тут говорить-то?
Главная форма:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
{ Запускаем форму3 в модельном режиме, и если она вернула значение
  Ok, Выводим что-то
}
 if form3.ShowModal=mrOk then ShowMessage(form3.Edit1.Text);
end;

end.

Модальная форма:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
// Обе кнопки закроют окно, отправив результат
 CloseModal;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
// Кнопкам назначается тип результата и обработчик для закрытия
 with Button1 do begin Caption:='Ok'; ModalResult:=mrOk; OnClick:=Button1Click; end;
 with Button2 do begin Caption:='No'; ModalResult:=mrCancel; OnClick:=Button1Click; end;
// Это чтоб окно посередине главной формы выскочило
 Position:=poOwnerFormCenter;
end;

end.

И все.

[serega96]

Спасибо большое, если ещё будут вопросы - обращусь

[Stilet]

Договорились.