Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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



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

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

Наверх





Память: 0.55 MB
Время: 0.017 c
3-42389
Long
2001-12-10 17:01
2002.01.14
Для гуру IB


7-42575
Paradox
2001-09-28 02:07
2002.01.14
Help!!!


7-42588
Tune
2001-09-30 14:33
2002.01.14
Мастера, подскажите как прочитать заголовок файла, чтобы можно было править отдельные биты?


1-42451
avr555
2001-12-23 18:05
2002.01.14
Вопрос про линии


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский