Как проверить создавался Frame или нет?

← →
s_t_d (2010-11-01 14:05) [0]

Уважаемые мастера, пожалуйста подскажите, как можно определить был создан frame, или еще не создавался?

← →
clickmaker © (2010-11-01 14:09) [1]

(frame <> nil) and IsWindow(frame.Handle)

← →
Медвежонок Пятачок © (2010-11-01 14:12) [2]

никак.

begin
....
TMyFrame.Create(Self);
//и все. ищи свищщи его.....
end;

или

begin
....
myframe := TMyFrame.Create(Self);
myframe := TMyFrame1.Create(Self);
//и аналогично. ищи свищщи его.....
end;

как можно определить был создан frame, или еще не создавался?

Учиться структурировать свой код, чтобы не возникало подобных вопросов.

← →
s_t_d (2010-11-01 14:25) [3]

clickmaker © (01.11.10 14:09) [1]
(frame <> nil)
Большое спасибо, помогло.

← →
Юрий Зотов © (2010-11-01 15:18) [4]

> s_t_d (01.11.10 14:25) [3]

Помогло, но вряд ли надолго. Следующий вопрос будет примерно таким:
"frame <> nil, но при обращении к фрейму вылетает ошибка Access Violation".

← →
s_t_d (2010-11-01 17:45) [5]

Юрий Зотов © (01.11.10 15:18) [4]
> s_t_d (01.11.10 14:25) [3]
Пожалуйста подскажите, что делать, чтобы к этому не приходить.

← →
Юрий Зотов © (2010-11-01 17:53) [6]

> s_t_d (01.11.10 17:45) [5]

При уничтожении фрейма очищать ссылку на него (переменную frame). Или руками, или используя процедуру FreeAndNil.

← →
s_t_d (2010-11-01 18:08) [7]

Юрий Зотов © (01.11.10 17:53) [6]
> s_t_d (01.11.10 17:45) [5]
При уничтожении фрейма очищать ссылку на него (переменную frame). Или руками, или используя процедуру FreeAndNil.

Пытался делать так:
в обработчике нажатия на кнопке, находящейся на фрейме
...
Fr_compl.Free;

где Fr_compl - имя фрейма, но, к сожалению, к ожидаемому рез-ту это не привело.

← →
s_t_d (2010-11-01 18:30) [8]

s_t_d (01.11.10 18:08) [7]

Юрий Зотов © (01.11.10 17:53) [6]
> s_t_d (01.11.10 17:45) [5]
При уничтожении фрейма очищать ссылку на него (переменную frame). Или руками, или используя процедуру FreeAndNil.

Разобрался, спасибо за помощь.

> s_t_d (01.11.10 18:08) [7]

> Пытался делать так:
> в обработчике нажатия на кнопке, находящейся на фрейме
> ...
> Fr_compl.Free;

Не надо рушить контролы из их методов или обработчиков.

See also: TCustomForm.Release.

Ссылки на фреймы не следует хранить в переменных, а токмо
в полях, в т.ч. и в списках, see also TWinControl.Controls.

See also TComponent.Notification.

--
Regards, LVT.

← →
s_t_d (2010-11-02 04:12) [10]

Leonid Troyanovsky © (01.11.10 21:42) [9]
> s_t_d (01.11.10 18:08) [7]

Ссылки на фреймы не следует хранить в переменных, а токмо
в полях, в т.ч. и в списках, see also TWinControl.Controls.
See also TComponent.Notification.
--
Regards, LVT.

Если можно, пожалуйста чуть подробнее

> s_t_d (02.11.10 04:12) [10]

> Если можно, пожалуйста чуть подробнее

type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } Frame: TFrame; procedure Notification(AComponent: TComponent; oper: TOperation); override; end; var Form1: TForm1; implementation {$R *.dfm} uses unit2; // TFrame2 procedure TForm1.Notification; begin inherited; if (oper = opRemove) then if (AComponent = Frame) then Frame := nil; // где бы не разрушили фрейм, ссылка будет обнилена. end; procedure TForm1.Button1Click(Sender: TObject); begin if not Assigned(Frame) then begin Frame := TFrame2.Create(nil); Frame.FreeNotification(Self); Frame.Parent := Self; end; end; procedure TForm1.Button2Click(Sender: TObject); begin Frame.Free; end;
--
Regards, LVT.

Как проверить создавался Frame или нет? Найти похожие ветки