TCustomForm.Create(AOwner:TComponent)

← →
dms_main © (2004-09-30 17:20) [0]

Поскажите - а кто Owner при создании главной формы приложения?

← →
Суслик © (2004-09-30 17:25) [1]

application

← →
Игорь Шевченко © (2004-09-30 17:34) [2]

Тот, кто указан при ее создании, очевидно.

← →
dms_main © (2004-09-30 17:44) [3]

а если создание идет через dll?

← →
Гаврила © (2004-09-30 18:11) [4]

> [3] dms_main ©

Тогда Application, который в DLL

← →
dms_main © (2004-09-30 20:07) [5]

>Гаврила
это как?

← →
Sergey_Masloff (2004-09-30 21:23) [6]

dms_main © (30.09.04 20:07) [5]
>это как?
Ровно так как сказал Гаврила. Что непонятно?

← →
dms_main © (2004-09-30 23:13) [7]

ok как писать в dll - Tform1.create(?);?

← →
Рыба © (2004-09-30 23:20) [8]

>dms_main © (30.09.04 23:13) [7]
>ok как писать в dll - Tform1.create(?);?

Tform1.create(Application);
%))

← →
dms_main © (2004-09-30 23:41) [9]

thx, попробую!

← →
dms_main © (2004-09-30 23:43) [10]

uses
SysUtils,
Classes,
Unit1 in "Unit1.pas" {Form1};

{$R *.res}

begin
TForm1.Create(Application);>>>>> посылает!! :-((
end.

← →
jack128 © (2004-09-30 23:44) [11]

dms_main © (30.09.04 23:43) [10]
ещеб не послал..uses forms;

← →
dms_main © (2004-09-30 23:57) [12]

млин забылллл,
thx !!!!! :-)
работает !!!

да и еще вопросик тут же - чего-то эта форма очередь сообщений необрабатывает!!:-( кто-нить знает как исправить???

dms_main © (01.10.04 0:08) [13]
а форма и никогда и не запускала цикл обработки сообщений.. Это делает Application.Run. Только в dll этотт метод запускать не стоит - лудше использовать Application EXE"шника..

то есть в данном случае обработку сообщений данной формой никак не реализовать????

порылся тут:
procedure TApplication.Run; begin FRunning := True; try AddExitProc(DoneApplication); if FMainForm <> nil then begin case CmdShow of SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized; SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized; end; if FShowMainForm then if FMainForm.FWindowState = wsMinimized then Minimize else FMainForm.Visible := True; repeat try HandleMessage; except HandleException(Self); end; until Terminated; end; finally FRunning := False; end; end;
а HandleMessage можно как-нибудь использовать? я так понимаю именно оно отвечае за сообщения?

Так мне лень переписывать FAQ . А любом FAQ"ке рассказывается как создовать форму в dll...

попробывал
application.Initialize; Application.CreateForm(TForm1,Form1); Application.Run;
хоть и не ругается - толку нету!:-((

TCustomForm.Create(AOwner:TComponent) Найти похожие ветки