unit Unit1;

interface

uses
 Windows, Messages, CommCtrl, SysUtils;

 Function WinProc(Wnd: hwnd; Msg : UINT; WParam : WPARAM; LParam: LPARAM): lresult; Stdcall;
 Procedure WinMain;

var
 WndClassEx : TWndClassEx;
 FormMy, LV : HWND;
 MMsg: Msg;
 XScreen, YScreen : Integer;

implementation

var
  FormRect : TRect;

Const
 LVID = 13;

Function WinProc(Wnd: HWND; Msg : UINT; WParam : WPARAM; LParam: LPARAM): lresult; Stdcall;
Var
 lvc : TLVColumn;
 I, B : Integer;
 Item : TLVItem;
Begin
 Result := 0;
 Case Msg Of
   WM_CREATE:
     begin

       LV := CreateWindowEx(WS_EX_CLIENTEDGE,'SysListView32', '1', WS_CHILD or WS_VISIBLE or LVS_REPORT or LVS_SHOWSELALWAYS
                             or LVS_SINGLESEL, 0, 0, FormRect.Right, FormRect.Bottom,Wnd, LVID, HInstance, nil);

       SendMessage(lv, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_DOUBLEBUFFER or LVS_EX_HEADERDRAGDROP or LVS_EX_BORDERSELECT or LVS_EX_FULLROWSELECT or LVS_EX_GRIDLINES or LVS_EX_INFOTIP);
       SendMessage(LV, LVM_SETTEXTBKCOLOR, 0, 12632256);
       SendMessage(LV, LVM_SETBKCOLOR, 0, 12632256);

       lvc.fmt := LVCFMT_CENTER;
       lvc.mask := LVCF_TEXT or LVCF_WIDTH;
       lvc.pszText := '0';
       lvc.cx := 70;
       lvc.iSubItem := 0;
       ListView_InsertColumn(lv, 0, lvc);

       lvc.mask := lvc.mask or LVCF_FMT or LVCF_SUBITEM or LVCF_ORDER;

       for I := 1 to 7 do
         begin
           lvc.pszText := PChar(IntToStr(I));
           lvc.iSubItem := I;
           lvc.iOrder := I;
           ListView_InsertColumn(LV, I, lvc);
         end;

        for I := 0 to 6 do
         begin
           FillChar(Item, sizeof(Item), 0 );
           Item.mask := LVIF_TEXT;
           Item.iItem := ListView_GetItemCount(LV);
           Item.pszText := PChar(IntToStr(I));
           ListView_InsertItem(LV, Item);
           for b := 0 to {Header_GetItemCount(ListView_GetHeader(LV)) -2}6 do
             begin
               Item.iSubItem := B + 1;
               Item.pszText  := PChar(IntToStr(Random(100)));
               ListView_SetItem(LV, Item);
             end;
         end;
     end;

    WM_NOTIFY:
     begin
       if PNMHDR(lParam).hwndFrom = LV then
         case PNMHDR(lParam).code of
           LVN_BEGINDRAG:
             begin
               SetWindowText(Wnd, IntToStr(PNMListView(LParam).iItem)); //PNMListView(LParam).ptAction.X) + ' ' + IntToStr(PNMListView(LParam).ptAction.Y)) ;
             end;
         end;
     end;

   WM_SIZE:
     Begin
       if WParam <> SIZE_MINIMIZED then
         begin
           GetClientRect(Wnd, FormRect);
           SetWindowPos(LV, 0, 0, 0, FormRect.Right, FormRect.Bottom - 50, SWP_NOZORDER);
         end;
     End;

   WM_CLOSE:
     begin
       DestroyWindow(LV);
       DestroyWindow(Wnd);
     end;

   WM_DESTROY: PostQuitMessage(0);
   Else
     Result := DefWindowProc(Wnd, Msg, WParam, LParam);
 End;
End;

Procedure WinMain;
Begin

 XScreen := (GetSystemMetrics(SM_CXSCREEN));// shr 1;
 YScreen := (GetSystemMetrics(SM_CYSCREEN));// shr 1;

 FillChar(WndClassEx, SizeOf(TWndClassEx), 0);
 WndClassEx.cbSize := SizeOf(TWndClassEx);
 WndClassEx.lpszClassName := 'APIWindow';
 WndClassEx.style := CS_HREDRAW Or CS_VREDRAW;
 WndClassEx.hInstance := HInstance;
 WndClassEx.lpfnWndProc := @WinProc;
 WndClassEx.cbClsExtra := 0;
 WndClassEx.cbWndExtra := 0;
 WndClassEx.hIcon := LoadIcon(HInstance, MakeIntResource('MAINICON'));
 WndClassEx.hIconSm := LoadIcon(HInstance, MakeIntResource('MAINICON'));
 WndClassEx.hCursor := LoadCursor(0, IDC_ARROW);
 WndClassEx.hbrBackground := GetStockObject(LTGRAY_BRUSH);
 WndClassEx.lpszMenuName := NIL;

 If RegisterClassEx(WndClassEx) = 0 Then
   MessageBox(0, 'Невозможно зарегистрировать класс окна', 'Ошибка', MB_OK Or MB_ICONHAND)
 Else
   Begin
     FormMy := CreateWindowEx(0 , WndClassEx.lpszClassName, 'ListView', WS_CLIPCHILDREN or WS_OVERLAPPEDWINDOW,
           (XScreen - 500) div 2, (YScreen - 300) div 2, 500, 300, 0, 0, HInstance, NIL);

     If FormMy = 0 Then
       MessageBox (0, 'Окно не создано!', 'Ошибка', MB_OK Or MB_ICONHAND)
     Else
       Begin
         ShowWindow(FormMy, SW_SHOWNORMAL);
         UpdateWindow(FormMy);

         While GetMessage(MMsg, 0, 0, 0) Do
           Begin
             TranslateMessage(MMsg);
             DispatchMessage(MMsg);
           End;
         Halt(MMsg.WParam);
         UnregisterClass(WndClassEx.lpszClassName, HInstance);
       End;
   End;
End;

end.