Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

TFort и форма 


Lamok (real)   (2001-12-24 21:19) [0]

Всем доброго времени суток !!!
Прошу прощения возможно этот вопрос задавался но я че то не нашел если че дайте сслылку !!!
Вопрос: как создавая новый проект исключить от туда форму и обьект Тформ ?? а все остальное оставить как есть ??
и существенно ли это отразиться на размере егзешника ??



SergVlad   (2001-12-24 21:47) [1]

Если очень коротко, то:
1. Использовать API(см пример ниже)
2. Использовать KOL библиотеку от Кладова http://bonanzas.rinet.ru/

//***************************
program MyWindow;

uses Windows, Messages;

{$R *.RES}

var
wClass: TWndClass; // Class struct for main window
hFont, // Handle of Font
hInst, // Handle of program instance
Handle: HWND; // Handle of main window
Msg: TMSG; // Message struct


procedure Resize;
var
RCT:TRect;
begin
GetWindowRect(Handle,RCT);
end;


procedure ShutDown;
begin
DeleteObject(hFont);
UnRegisterClass("Sample Class",hInst);
Halt; //end program
end;


function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
case Msg of
WM_SIZE: Resize;
WM_DESTROY: ShutDown;
end;
end;

begin
hInst:=GetModuleHandle(nil); // get the application instance
with wClass do
begin
Style:= CS_PARENTDC;
hIcon:= LoadIcon(hInst,"MAINICON");
lpfnWndProc:= @WindowProc;
hInstance:= hInst;
hbrBackground:= COLOR_BTNFACE+1;
lpszClassName:= "Sample Class";
hCursor:= LoadCursor(0,IDC_ARROW);
end;
RegisterClass(wClass);
Handle:=CreateWindow(
"Sample Class", // Registered Class Name
"My own window", // Title of Window
WS_OVERLAPPEDWINDOW or // Basic Window Style
WS_VISIBLE, // Make it Visible
10, // Left
10, // Top
200, // Width
100, // Height
0, // Parent Window Handle
0, // Handle of Menu
hInst, // Application Instance
nil); // Structure for Creation Data

while(GetMessage(Msg,Handle,0,0))do
begin
TranslateMessage(Msg); // Translate any keyboard Msg"s
DispatchMessage(Msg); // Send it to our WindowProc
end; // for processing.

end.



Tosov   (2001-12-25 00:23) [2]

Вопрос: как создавая новый проект исключить от туда форму и обьект Тформ ??
Удаляй форму - Project|Remove file from project.. , Form из uses и поставь галочку здесь : Project|Options..|Linker|Generate Console Application
Размер exe станет намного меньше

а все остальное оставить как есть ??
Это ты про компоненты? Если про них, то не получится. В var Сам добавляй эти компоненты и в начале работы проги создавай их..

var
XX: TXXX;

begin
XX:=TXX.Create(..);

end;



Lamok (real)   (2001-12-25 23:12) [3]

Спасибо все вроде понял !!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
4-42599           Abajun                2001-11-13 11:57  2002.01.14  
Вызов функции по адресу


1-42510           Саня                  2001-12-21 10:30  2002.01.14  
О шрифте на кнопках...


4-42590           Jaya!                 2001-11-10 07:33  2002.01.14  
Смена раскладки клавиатуры


4-42632           AlexKniga             2001-11-15 13:42  2002.01.14  
Тип PChar и пустая строка


14-42547          vasco                 2001-11-19 02:39  2002.01.14  
Выравнивание по ширине в hlp-файле...