Как сделать форму что-бы размер программы был минимальным?

← →
RAA © (2002-12-13 23:40) [0]

Дело в том что нехотелось бы раздувать код модулем froms потому как необходимо создать форму(без заголовка и без кнопок) в которой всего навсего будет объект типа Tmemo,Tpanel, и возможно что ещё будет Timage!
???????

← →
RAA © (2002-12-13 23:43) [1]

Не froms a forms

← →
Kotka © (2002-12-13 23:51) [2]

есть библиотека KOL. сам не пробовал, но говорят помогает

← →
Alex870 © (2002-12-14 00:02) [3]

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.

← →
RAA © (2002-12-14 09:19) [4]

Alex870 А если я например захочю забацать TImage или TPanel?

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

← →
RAA © (2002-12-14 09:23) [5]

Kotka <<- Вот было бы интересно узнать где её взять(!)
Мне про неё уже говорили но что это такое я сам не знаю и не пробовал(((

← →
Evgeny © (2002-12-14 12:40) [6]

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

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

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

← →
KSergey © (2002-12-14 13:33) [7]

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

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

Так как же мне быть?
У меня есть программка 18кило...типа сервис для NT(!))
Суть программки заключаеться в отображения статистики работы другой моей программы по информации в ini файле(!))
Другая программка не имеет визульного интерфейса и весит всего 67 кило.....

← →
asmith (2002-12-14 17:38) [9]

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

Пасибо за помощь....KOL Rulezz.....я уже разобрался....

Как сделать форму что-бы размер программы был минимальным? Найти похожие ветки