Как не дать форме открыться

← →
Nikola62 (2007-09-10 14:31) [0]

Как поступать в такой ситуации. При создании формы происходит анализ прав на просмотр формы. Как при отсутствии права не показывать форму, а возвращаться в место вызова? Вариант анализировать права до создания формы не предлагать, т.к. форма может вызывыться со многих мест программы.

← →
Palladin © (2007-09-10 14:34) [1]

что мешает написать процедуру с вызовом формы и в ней до создания проверять права?

← →
Dib@zol © (2007-09-10 14:34) [2]

raise EAbort.Create("Фиг тебе");
Должно помочь.

← →
Dib@zol © (2007-09-10 14:35) [3]

Тьфу. Мессагу можно и не задавать, это из одного моего ламерского проекта. там закрытие блокировалось.

← →
{RASkov} © (2007-09-10 14:41) [4]

> Как не дать форме открыться

открыться - подразумевается - создаться, так?
Ну так и не создавай ее если нет прав.
Аааа... у тебя права проверяются на OnCreate, да? - не верно. См [1].

← →
Германн © (2007-09-10 14:50) [5]

deja vu
http://delphimaster.net/view/2-1189192349/

type
EMyExceptionDontShowForm = class(Exception);

TYourForm = class(TForm)
procedure FormCreate (Sender: TObject);
protected
function HandleCreateException: Boolean; override;
end;

function TYourForm.HandleCreateException: Boolean;
begin
if ExceptObject is EMyExceptionDontShowForm then
Result := false
else
Result := inherited HandleCreateException;
end;

procedure TYourForm.FormCreate (Sender: TObject);
begin
if SomeAssertionFailed then
raise EMyExceptionDontShowForm ("Some assertion failed");
end;

← →
Nikola62 (2007-09-10 14:56) [7]

Спасибо всем. Получилось.

Как не дать форме открыться Найти похожие ветки