Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
7-42579
NazguL
2001-04-14 15:52
2002.01.14
Как с помощбю WinAPI упровлять громкостью звука


4-42634
Tekman
2001-11-10 00:32
2002.01.14
Окно без рамки


1-42455
Electric
2001-12-24 05:28
2002.01.14
Как нажатием кнопки на своей форме прервать цикл


1-42400
GARIK_PR
2001-12-26 15:07
2002.01.14
Интеграция с математическими пакетами программ.


3-42389
Long
2001-12-10 17:01
2002.01.14
Для гуру IB