Обработчик. Два (2) окна.

[Alex Cones]

Приложение на API.

Procedure RegisterApp;
 Begin
  Application.Handle := GetModuleHandle(nil);
  With Application.WinClass do
  Begin
   Style := CS_HREDRAW Or CS_VREDRAW;
   hIcon := LoadIcon(Application.Handle, MAKEINTRESOURCE(APPLICATION_FORM_ICON));
   lpfnWndProc := @UNTHand.WindowProc;
   hInstance := Application.Handle;
   hbrBackground := COLOR_BTNFACE + 1;
   lpszClassName := APPLICATION_FORM_CLASS;
   hCursor := LoadCursor(0, IDC_ARROW);
  End;
  InitCommonControls;
  RegisterClass(Application.WinClass);
 End;

Прошу обратить внимание на подчеркнутую строку. Обработчик назначается и все отрабатывает шикарно. Если я добавлю вторую форму, что нужно изменить в обработчике, чтобы разделять события первой и второй форм?

[Пепел Феникса]

у тя ж ООП?
то есть тебе нужен указатель на обьект^
1)в принципе можно хранить его в поле окна GWL_USERDATA через Set/GetWindowLong
тогда обработчик чтото типа такого.

function WndProc;
var T:TMyControl; 
begin
 T:=TMyControl(GetWindowLong(GWL_USERDATA));
 case uMsg of
  WM_CHAR:T.OnKeyPress(wParam);
 end;
end;

constructor TMyControl.Create;
begin
 inherited Create;
 //создаем окошко(допустим в локальной переменке h:THandle будет его хендл)
 SetWindowLong(GWL_USERDATA,LONG(Self));
end;

но есть один нюанс, это значение могут изменить...и тогда капец.
2)чтото типа списка HWND-TMyControl
тут все проще

[Alex Cones]

Эммм... а ежели я полный Winapiнец?

[Пепел Феникса]

дык я vcl тут не использовал
TMyControl это твой класс, я просто как пример привел название это.

Эммм... а ежели я полный Winapiнец?

Мы с тобой одной крови, ты и я

[Alex Cones]

TMyControl это твой класс

Мой мозг взорвался. Откуда классы в чистокровном WinAPI? О_о

 Function WindowProc(HWND, Msg : LongWord; WParam, LParam: LongInt): LongInt; StdCall;
 Begin
  Result := DefWindowProc(HWND, Msg, WParam, LParam);
  Case Msg Of
   WM_MOUSEMOVE : UNTProcs.DrawAll;     
   WM_PAINT     : UNTProcs.SetOnTop;  .
   WM_DESTROY   : UNTProcs.ShutDown;     
  End;
 End;

HWND - чей возвращается? Того окна, от кого пришло?

[Пепел Феникса]

в АПИ классов нету, но они есть в Делфи(UNTHand это не класс?)

вообще по последнему вопросу, в обработчик поступает HWND окна которому предназначено сообщение.(то есть при обработке для второго окна получит хендл второго окна)

[Alex Cones]

(то есть при обработке для второго окна получит хендл второго окна)

Ясно.

UNTHand это не класс?

Unit Handler

[GunSmoker]

type
  TWinAPIDialog = class(TBaseDialog)
  private
    FDialog: HWND;
  protected
    property Dialog: HWND read FDialog;
    function DialogProc(const Msg, wParam, lParam: Cardinal): Integer; virtual;
  end;

function DialogProcStub(Wnd: HWnd; Msg, wParam, lParam: DWord): Integer; stdcall;
var
  Dialog: TWinAPIDialog;
begin
  Result := 0;

  if Msg = WM_INITDIALOG then
    SetWindowLong(Wnd, GWL_USERDATA, lParam);

  Dialog := TWinAPIDialog(Pointer(GetWindowLong(Wnd, GWL_USERDATA)));
  if Assigned(Dialog) then
  begin
    if Dialog.FDialog = 0 then
      Dialog.FDialog := Wnd
    else
      if Dialog.FDialog <> Wnd then
        Exit;

    Result := Dialog.DialogProc(Msg, wParam, lParam);
  end;
end;

[DomiNick]

Как такое сделать без ООП? Допустим если в языке нет классов.....

[Alex Cones]

Ну лично я их, например, и не использую, вместо них юзаю записи как упорядоченное хранилище информации:

 Unit UNTType;

{$mode objfpc}{$H+}

 Interface

 Uses
  Windows,

  UNTCons;

 Type

  TCell = Record           { Ячейка                }
   Name        : String;   { Имя ячейки            }
   Kind        : Integer;  { Тип ячейки            }
   FileName    : String;   { Имя файла             }
   Param       : String;   { Параметры запуска     }
   WorkDir     : String;   { Рабочая папка         }
   ContNum     : Integer;  { Номер контейнера      }
  End;

  TContainer = Array[0..CONTAINER_WIDTH - 1, 0..CONTAINER_HEIGHT - 1] Of TCell; { Контейнер - массив ячеек }

  TImage = Record    { Изображение                }
   Handle : HWND;    { Хендл контрола             }
   Font   : HFont;   { Шрифт контрола             }
   DC     : HDC;     { Холст контрола             }
   Left   : Integer; { Координаты : отступ слева  }
   Top    : Integer; { Координаты : отступ справа }
   Width  : Integer; { Координаты : ширина        }
   Height : Integer; { Координаты : высота        }
  End;

  TForm = Record             { Форма                      }
   Handle      : HWND;       { Хендл формы                }
   Left        : Integer;    { Координаты : Отступ слева  }
   Top         : Integer;    { Координаты : Отступ справа }
   Width       : Integer;    { Координаты : Ширина        }
   Height      : Integer;    { Координаты : Высота        }
   Image       : TImage;     { Изображение                }
   Visible     : Boolean;    { Видимость формы            }
   IsContainer : Boolean;    { Проверка на контейнер      }
   Container   : TContainer; { Контейнер формы            }
   ActiveCell  : TPoint;     { Активная ячейка            }
  End;

  TApplication = Record  { Приложение               }
   Handle   : HWND;      { Хендл приложения (hInst) }
   MSG      : TMSG;      { Сообщения приложения     }
   WinClass : TWndClass; { Класс приложения         }
  End;

  TTexture = Record  { Текстура    }
   BitMap : HBitMap; { Изображение }
   Width  : Integer; { Ширина      }
   Height : Integer; { Высота      }
  End;

  TSquaryInfo = Record   { Информация о панели    }
   CellCount : Integer;  { Количество ячеек       }
   AutoRun   : LongBool; { Автозапуск             }
   AutoHide  : LongBool; { Автоскрытие            }
   ShowHints : LongBool; { Показ подсказок        }
   OnTop     : LongBool; { Панель всегда сверху   }
   Container : Integer;  { Количество контейнеров }
  End;

  TCellArray            = Array Of TCell;      { Массив ячеек              }
  TSquaryInfoContainers = Array Of TContainer; { Массив контейнеров панели }

 Implementation

 End.