Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать форму что-бы размер программы был минимальным? [D5, Win95/98, Win2k, WinXP]

RAA © (2002-12-13 23:40:00)
Дело в том что нехотелось бы раздувать код модулем froms потому как необходимо создать форму(без заголовка и без кнопок) в которой всего навсего будет объект типа Tmemo,Tpanel, и возможно что ещё будет Timage!
???????

RAA (2002-12-14 17:55:00) [1]
Пасибо за помощь....KOL Rulezz.....я уже разобрался....

asmith (2002-12-14 17:38:00) [2]
Сделать простейшую Вин-апликацию на основе диалога не сложно- рисуешь редактором ресурсов (от MS VC++ или Borland Resource Workshop) шаблон диалога, пишешь довольно много (по сравнению с Delphi) кода (достаточно простого, если понимаешь суть того, что за этим стоит) и готово. Заниматься этим советую лишь если ты настроен потратить время и в этом разобраться, а не просто найти пример и подрулить его под-себя - в дальнейшем будет весьма трудно развивать и модифицировать, разве что снова просить о помощи кого-то. Рекомендую если не почитать, то хотя бы просмотреть книгу Петцольда по программированию в Винде. Принципы эти были еще в Вин16, так что сойдет и самое первое издание, всего этого в сети навалом. Если нужно, замылю полный пример небольшой апликушки - ServiceManager, которая сидит в трее и позволяет управлять неким сервисом.

RAA (2002-12-14 14:03:00) [3]
Так как же мне быть?
У меня есть программка 18кило...типа сервис для NT(!))
Суть программки заключаеться в отображения статистики работы другой моей программы по информации в ini файле(!))
Другая программка не имеет визульного интерфейса и весит всего 67 кило.....

KSergey (2002-12-14 13:33:00) [4]
> >Alex870 А если я например захочю забацать TImage или TPanel?
> В WinAPI таких вещей нет.

Скажу больше: там и TForm нет.

Evgeny (2002-12-14 12:40:00) [5]
>Да кстати я эту тему затеял что-бы сравнить такой вариант как создать её в виде ресурса то-есть сделать ресурсную заготовку формы а потом просто её подрубить на подобии того как это делаллось в ObjectPascal(!))) Как думаете код программы сильно в этом случае раздуется?
Размер не изменится.

>Kotka <<- Вот было бы интересно узнать где её взять(!)
http://xcl.cjb.net
http://kol.nm.ru
http://mercury.spaceports.com/~bonanzas/kol

>Alex870 А если я например захочю забацать TImage или TPanel?
В WinAPI таких вещей нет.

RAA (2002-12-14 09:23:00) [6]
Kotka <<- Вот было бы интересно узнать где её взять(!)
Мне про неё уже говорили но что это такое я сам не знаю и не пробовал(((

RAA (2002-12-14 09:19:00) [7]
Alex870 А если я например захочю забацать TImage или TPanel?

Да кстати я эту тему затеял что-бы сравнить такой вариант как создать её в виде ресурса то-есть сделать ресурсную заготовку формы а потом просто её подрубить на подобии того как это делаллось в ObjectPascal(!))) Как думаете код программы сильно в этом случае раздуется?

Alex870 (2002-12-14 00:02:00) [8]
program WinMin;

uses
Messages,
Windows;

const
AppName = "MinWin";
Var
Window : HWnd;
Message : TMsg;
WindowClass : TWndClass;

function WindowProc (Window : HWnd; Message, WParam : Word;
LParam : LongInt) : LongInt; stdcall;
Begin
WindowProc := 0;
case Message of
wm_Destroy :
begin
PostQuitMessage (0);
Exit;
end;

end; // case
WindowProc := DefWindowProc (Window, Message, WParam, LParam);
End;

Begin
With WindowClass do
begin
Style := cs_HRedraw or cs_VRedraw;
lpfnWndProc := @WindowProc;
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := 0;
hCursor := LoadCursor (0, idc_Arrow);
hbrBackground:=COLOR_WINDOW;
lpszClassName := AppName;
end;

RegisterClass (WindowClass);
Window := CreateWindow (AppName, AppName,
{ws_OverLappedWindow or }ws_ClipChildren
or ws_ClipSiBlings or WS_DLGFRAME or WS_SYSMENU, // обязательно для OpenGL
100,100,
800,600,
HWND_DESKTOP, 0, HInstance, nil);

ShowWindow (Window, CmdShow);
UpdateWindow (Window);

While GetMessage (Message, 0, 0, 0) do begin
TranslateMessage (Message);
DispatchMessage (Message);
end;
Halt (Message.wParam);
end.

Kotka (2002-12-13 23:51:00) [9]
есть библиотека KOL. сам не пробовал, но говорят помогает

RAA (2002-12-13 23:43:00) [10]
Не froms a forms

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »