Главная страница
    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.022 c
7-42588
Tune
2001-09-30 14:33
2002.01.14
Мастера, подскажите как прочитать заголовок файла, чтобы можно было править отдельные биты?


3-42375
Venus
2001-12-13 11:12
2002.01.14
DBLookupListBox


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


3-42368
andey
2001-12-11 19:49
2002.01.14
Изменение записей таблицы исходя из другой


3-42363
Китаец Ла Ме
2001-12-12 21:40
2002.01.14
Мультиверсионность





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский