Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

Listbox   Найти похожие ветки 

 
Игорь_1   (2007-08-11 11:09) [0]

Уважаемые мастера.
Почему 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) [1]


lab_ := CreateWindowEx (0, "LISTBOX", Lab,  ws_Child or ws_Visible or LBS_STANDARD,
      56, 5, 300, 40, Wnd, Lab_, hInstance, nil);



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

Форум: "WinAPI";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
15-1204184827
Riply
2008-02-28 10:47
2008.04.13
RAD Studio "неправильные ошибки".


15-1204147672
Tirael
2008-02-28 00:27
2008.04.13
тем, кому не все равно


2-1205594808
DJ_UZer
2008-03-15 18:26
2008.04.13
Цвета в combobox


6-1185070182
Андрей Л.
2007-07-22 06:09
2008.04.13
WebBrowser


15-1204321591
Leonid Troyanovsky
2008-03-01 00:46
2008.04.13
Сегодня 29 февраля 2008 г.





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