Свойство активной формы

[WennY]

Как сделать, чтобы форма ругалась при попытке кликнуть мимо и для совершения подобных действий требовалось сначала закрыть форму? Знаете, как в опере: при выборе Инструменты > Общие настройки форма не даст ничего сделать, пока она не будет закрыта. Как нечто подобное реализовать?

[evg_m]

форма не даст ничего сделать, пока не будет она не будет закрыта.

обычно бывает достаточно form3.showModal;

[WennY]

Чет не выходит =(
This form of method call only allowed for class methods

[Sanprof]

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

Чет не выходит =(
This form of method call only allowed for class methods

а как делаете? приведите хоть кусочек кода

[WennY]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// SetWindowPos(handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TForm1.ShowModal;
if TForm1.ModalResult=mrYes then   // Этот оператор будет доступен только после закрытия Form2
  TForm1.Caption:='Пользователь ответил положительно!';
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_escape then close
end;

end.

Надо просто чтобы при активной форме пользователю не давало ничего сделать, сначала надо было бы закрыть форму. Щас пытаюсь провернуть сие путем работы с событием потери фокуса

[BeJIuKuu_Hexo4yxa]

Ошибка в том, что ты открываешь форму из самой себя.
"TForm1.ShowModal" надо вызывать из другой формы.

Попробую стелепатить )))
Если надо, чтобы Form1 была доступна после закрытия Form2, то надо Form2 открывать из Form1 с помощью ShowModal

Да, и без буквы "T". Просто Form2.ShowModal

[ArtGrek]

Вопрос удален.

Читаем правила раздела, чтоб больше не попадаться.
Модератор.

[mihali4]

Для ТС:
http://www.programmersforum.ru/showthread.php?t=124824