unit OptionsForm;
{
   Unit Name: TestFormUnit
   Purpose  : Test message form portaibility
   Author   : Vesa Lappalainen (vesal@mit.jyu.fi)
   Date     : 16.9.2001

   Problems:
     - setting ModalResult := mrNone in CLX does not help.
       The form is still going to be closed opposite to VCL.
}

interface

uses
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;

type
  TFormOptions = class(TForm)
    ButtonOK: TButton;
    ButtonRestore: TButton;
    ButtonCancel: TButton;
    procedure ButtonRestoreClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormOptions: TFormOptions;

implementation

{$R *.xfm}

procedure TFormOptions.ButtonRestoreClick(Sender: TObject);
begin
  ModalResult := mrNone;
end;

end.