Скачать: CL | DM;

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

← →
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/

---

← →
Игорь Шевченко ©   (2007-09-10 14:51) [6]

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c