Listbox [D6]
Игорь_1 © (2007-08-11 11:09:00)
Уважаемые мастера.
Почему Listbox не добавляет записи.
program Con_net;
uses Windows,Messages;
const
Lab = 'Идет попытка подключения к серверу ...';
Lab_ = 1000;
Width = 367;
Height = 85;
procedure Connect(Wnd:HWND);
begin
SendMessage(lab_, LB_ADDSTRING, 0,
LongInt(PChar('example')));
end;
function WndProc(Wnd : HWND; message : UINT; wParam :
Integer; lParam: Integer) : Integer; stdcall;
begin
Result:=0;
case message of
WM_CREATE:
begin
CreateWindowEx (0, 'LISTBOX',
Lab, ws_Child or ws_Visible or LBS_STANDARD,
56, 5, 300, 40, Wnd, Lab_,
hInstance, nil);
end;
WM_DESTROY:
begin
PostQuitMessage(0);
result := 0;
end;
else
result := DefWindowProc(Wnd, message,
wParam, lParam);
end;
end;
procedure load;
var
Msg : TMsg;
wndClass : TWndClass;
ax:array[0..1] of word;
dwh:THandle;
wRect:TRect;
hWnd2:THandle;
begin
DWH := GetDesktopWindow;
GetWindowRect(DWH, wRect);
ax[0]:=abs(wRect.Right-wRect.Left);
ax[1]:=abs(wRect.Bottom-wRect.Top);
wndClass.style :=
CS_HREDRAW or CS_VREDRAW;
wndClass.lpfnWndProc := @WndProc;
wndClass.cbClsExtra := 0;
wndClass.cbWndExtra := 0;
wndClass.hInstance := hInstance;
wndClass.hIcon :=
LoadIcon(0, IDI_APPLICATION);
wndClass.hCursor :=
LoadCursor(0, IDC_ARROW);
wndClass.hbrBackground := COLOR_BTNFACE+1;
wndClass.lpszMenuName := nil;
wndClass.lpszClassName := 'NetConnect';
RegisterClass(wndClass);
hWnd2 := CreateWindow(
'NetConnect',
lab,
WS_overlapped or ws_sysmenu,//WS_SYSMENU
or WS_Caption or WS_Border, // window style
(ax[0] - Width) div 2, (ax[1]-Height) div
2, WIDTH, HEIGHT,
0,
// parent window handle
0,
// window menu handle
hInstance,
// program instance handle
nil);
// creation parameters
if hWnd2 = 0 then
MessageBox (0, 'Window not created',
'lab', MB_OK)
else
begin
ShowWindow (hWnd2, sw_ShowNormal);
Connect(hWnd2);
end;
while(GetMessage(msg, 0, 0, 0)) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
end;
begin
load;
end.
Lacmus (2007-08-11 11:16:00) [1]
lab_ :=CreateWindowEx (0, 'LISTBOX', Lab, ws_Child or
ws_Visible or LBS_STANDARD,
56, 5, 300, 40, Wnd, Lab_, hInstance,
nil);
Наверх 
ЧАТ |
Орешник |
|
