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

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 ©   (2004-10-01 00:08) [13]

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

---

← →
jack128 ©   (2004-10-01 00:11) [14]

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

---

← →
dms_main ©   (2004-10-01 00:13) [15]

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

---

← →
dms_main ©   (2004-10-01 00:16) [16]

порылся тут:

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 можно как-нибудь использовать? я так понимаю именно оно отвечае за сообщения?

---

← →
jack128 ©   (2004-10-01 00:18) [17]

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

---

← →
dms_main ©   (2004-10-01 00:48) [18]

попробывал

application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;

хоть и не ругается - толку нету!:-((

---

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

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



Память: 0.48 MB
Время: 0.022 c