Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.04 c
