TFort и форма

← →
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.

TFort и форма Найти похожие ветки