| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TCustomForm.Create(AOwner:TComponent) [D5, WinXP]
dms_main © (2004-09-30 17:20:00)Поскажите - а кто Owner при создании главной формы приложения?
dms_main (2004-10-01 00:48:00) [1]попробывал
application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
хоть и не ругается - толку нету!:-((
jack128 (2004-10-01 00:18:00) [2]Так мне лень переписывать FAQ . А любом FAQ'ке рассказывается как создовать форму в dll...
dms_main (2004-10-01 00:16:00) [3]порылся тут:
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 можно как-нибудь использовать? я так понимаю именно оно отвечае за сообщения?
dms_main (2004-10-01 00:13:00) [4]то есть в данном случае обработку сообщений данной формой никак не реализовать????
jack128 (2004-10-01 00:11:00) [5]dms_main © (01.10.04 0:08) [13]
а форма и никогда и не запускала цикл обработки сообщений.. Это делает Application.Run. Только в dll этотт метод запускать не стоит - лудше использовать Application EXE'шника..
dms_main (2004-10-01 00:08:00) [6]да и еще вопросик тут же - чего-то эта форма очередь сообщений необрабатывает!!:-( кто-нить знает как исправить???
dms_main (2004-09-30 23:57:00) [7]млин забылллл,
thx !!!!! :-)
работает !!!
jack128 (2004-09-30 23:44:00) [8]dms_main © (30.09.04 23:43) [10]
ещеб не послал..uses forms;
dms_main (2004-09-30 23:43:00) [9]uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
TForm1.Create(Application);>>>>> посылает!! :-((
end.
dms_main (2004-09-30 23:41:00) [10]thx, попробую!
Рыба (2004-09-30 23:20:00) [11]>dms_main © (30.09.04 23:13) [7]
>ok как писать в dll - Tform1.create(?);?
Tform1.create(Application);
%))
dms_main (2004-09-30 23:13:00) [12]ok как писать в dll - Tform1.create(?);?
Sergey_Masloff (2004-09-30 21:23:00) [13]dms_main © (30.09.04 20:07) [5]
>это как?
Ровно так как сказал Гаврила. Что непонятно?
dms_main (2004-09-30 20:07:00) [14]>Гаврила
это как?
Гаврила (2004-09-30 18:11:00) [15]
> [3] dms_main ©
Тогда Application, который в DLL
dms_main (2004-09-30 17:44:00) [16]а если создание идет через dll?
Игорь Шевченко (2004-09-30 17:34:00) [17]Тот, кто указан при ее создании, очевидно.
Суслик (2004-09-30 17:25:00) [18]application
| |
