[HTTqp]

отлавливаю сообщение формы следующим способом

Код:

function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer;stdcall;
begin
//тут код
end;
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
end;

так вот, после того как получил сообщение обрабатываю и выполняю действия, но, сообщение отлавливается только 1 раз 2 раз уже игнорируется. Пришла идея загнать в таймер и уже повторять проверку? как правильно это реализовать в таймере. Как запустить данную функцию в таймер? или может кто скажет как сделать чтобы сообщение обрабатывалась постоянно, а не 1 раз после запуска.

[Alegun]

Сообщение от HTTqp

...как сделать чтобы сообщение обрабатывалась постоянно, а не 1 раз после запуска.

Вероятно здесь поможет мейджикворд inherited...

[HTTqp]

Сообщение от Alegun

Вероятно здесь поможет мейджикворд inherited...

а как его применить, пробую так но ошибка

Код:

function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer;stdcall;
begin
Result:=0;
case msg of
  WM_DESTROY:
   begin
    PostQuitMessage(0);
    Exit;
   end;
//тут еще сообщения которые отлавливаются
//...
//...
end;
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
inherited;
end;

ошибка связана как я понял что-то на до было добавить в TYPE, класс что ли, но форма то api'ишная как что прописать в type?
this form of method call only allowed in methods of derived types

[Alegun]

Тогда инхирайт здесь не нужен. Блок обработки сообщений у "чисто" апишной формы (по drkb) должен выглядеть примерно так

Код:

function WindowProc(hWnd,Msg,wParam,lParam: Longint): Longint; stdcall; export;
begin
//подпрограмма обработки сообщений
case Msg of
   WM_DESTROY: begin
     PostQuitMessage(0);
     Exit;
   end;

//тут еще сообщения которые отлавливаются
//...
//...

   else
      Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;
end;

нужна инициализация этой функции при регистрации класса формы

Код:

...
var
wcx: TWndClass;

...

// адрес оконной процедуры
   wcx.lpfnWndProc := @WindowProc;
...

а в основном теле проги ставится такой блок

Код:

...
var
AMessage: msg;

...

   while (GetMessage(AMessage, 0, 0, 0)) do
   begin
     //Запускаем цикл обработки сообщений
     TranslateMessage(AMessage);
     DispatchMessage(AMessage);
   end;
...

[NumLock]

Сообщение от HTTqp

отлавливаю сообщение формы следующим способом

Код:

function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer;stdcall;
begin
//тут код
end;
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
end;

все-таки окна или формы? есть разница.

[HTTqp]

Программу пишу на чистом api значит и форма создается с использованием api, проблема только вот в чем некоторые сообщения отлавливаются 1 раз, после запуска как только форма потеряла фокус все они не обрабатываются, сначала думал надо сделать через таймер, но бесполезно наверное, форма то вне фокуса. Так вот почитал можно сделать форму поплавок, то есть пока программа открыта пользователь работает только с ней, как он заканчивает тогда все программу закрывает ее и все. Как реализовать тогда форму поплавок, потому что например у меня игры перекрывают ее.

[NumLock]

формы в VCL, там - окна. вызывай DefWindowProc внутри оконной процедуры, для необрабатываемых сообщений! пример работающей процедуры:

Код:

function WindowProc(AWnd: HWND; Msg: Integer;
  wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
  case Msg of
    WM_CLOSE: begin
      PostQuitMessage(0);
      Result:=0;
    end;
    else Result:=DefWindowProc(AWnd, Msg, wParam, lParam);
  end
end;

[HTTqp]

Сообщение от NumLock

формы в VCL, там - окна. вызывай DefWindowProc внутри оконной процедуры, для необрабатываемых сообщений! пример работающей процедуры:

Код:

function WindowProc(AWnd: HWND; Msg: Integer;
  wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
  case Msg of
    WM_CLOSE: begin
      PostQuitMessage(0);
      Result:=0;
    end;
    else Result:=DefWindowProc(AWnd, Msg, wParam, lParam);
  end
end;

Вот малая часть и так сказать основная, просто я не понял про форму VLC начали говорить.

Код:

program Project1;

uses
  Windows,
  Messages;

const
  WindowWidth=600;
  WindowHeight=400;

var
  HM: THandle;
  Msg: TMsg;
  wc: TWndClass;
  hWindow: HWND;

function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer;stdcall;
var
  PS: TPaintStruct;
begin
Result:=0;
case msg of
  WM_DESTROY:
   begin
    PostQuitMessage(0);
    Exit;
   end;
end;
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
end;

//Процедура создания окна
procedure CreateMain;
begin
FillChar(wc,SizeOf(TWndClassEx), 0);
wc.lpszClassName:='MainForm';//Название имени класса окна
wc.lpfnWndProc:=@WindowProc;
wc.hbrBackground:=COLOR_WINDOW;//Цвет формы
wc.hIcon:=LoadIcon(hInstance,MakeIntResource('MAINICON'));{тут мы подгрузим дефолтную иконку делфи}
wc.hCursor:=LoadCursor(0,IDC_ARROW);{Выставим курсор по умолчаннию}
RegisterClass(wc);{Регистрируем класс}

CreateWindowEx(WS_EX_CONTROLPARENT,{Поверхи всех окон}
               wc.lpszClassName,{Имя класса окна}
               'Window'{Имя окна},
               WS_TILEDWINDOW or WS_VISIBLE{Стиль окна or Видимое окно},
               300,100,WindowWidth,WindowHeight,
               0,0,
               hInstance,{Описатель приложения, с которым окно связывается}
               nil);
ShowWindow(hWindow,SW_SHOW);
UpDateWindow(hWindow);
end;

begin
CreateMain;
while GetMessage(Msg,0,0,0) do
 begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
 end;
end.

Вот я создал форму. в function WindowProc я произвожу обработку нажатий button, работу с формой и т.п. но проблема некоторые сообшения не приходят, потому что форма теряет фокус, либо они срабатывают один раз, как мне зделать чтобы окно было постоянно впереди, не теряя фокуса.

[NumLock]

нет там никаких кнопок, ни их обработки! вот тут есть:

Код:

program CreateWindowAPI;

uses
  Windows, Messages;

var
  AWndClass: WNDCLASS;
  AMsg: TMsg;
  AWnd: HWND;

function WindowProc(hwnd: HWND; uMsg: UINT;
  wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
  Result:=0;
  case uMsg of
    WM_COMMAND: begin
      if HIWORD(wParam)=0 then
      case LOWORD(wParam) of
        2014: MessageBox(hwnd, 'Button1', 'TWINAPIFORM', MB_OK);
        2015: MessageBox(hwnd, 'Button2', 'TWINAPIFORM', MB_OK);
      end;
    end;
    WM_CLOSE: if MessageBox(hwnd, 'Close?', 'TWINAPIFORM', MB_OKCANCEL)=IDOK then PostQuitMessage(0) else Exit;
  end;
  Result:=DefWindowProc(hwnd, uMsg, wParam, lParam);
end;

begin
  AWndClass.Style:=CS_HREDRAW or CS_VREDRAW;
  AWndClass.lpfnWndProc:=@WindowProc;
  AWndClass.cbClsExtra:=0;
  AWndClass.cbWndExtra:=0;
  AWndClass.hInstance:=HInstance;
  AWndClass.hIcon:=LoadIcon(0, IDI_APPLICATION);
  AWndClass.hCursor:=LoadCursor(0, IDC_ARROW);
  AWndClass.hbrBackground:=COLOR_WINDOW+1;
  AWndClass.lpszMenuName:=nil;
  AWndClass.lpszClassName:='TWINAPIFORM';
  RegisterClass(AWndClass);
  AWnd:=CreateWindow(
    AWndClass.lpszClassName,
    AWndClass.lpszClassName,
    WS_VISIBLE or WS_OVERLAPPEDWINDOW,
    Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
    640, 480, 0, 0,
    HInstance, nil);
  CreateWindow('BUTTON', 'Button1', WS_CHILDWINDOW or WS_VISIBLE,
    10, 10, 75, 25, AWnd, 2014, HInstance, nil);
  CreateWindow('BUTTON', 'Button2', WS_CHILDWINDOW or WS_VISIBLE,
    10, 45, 75, 25, AWnd, 2015, HInstance, nil);
  while GetMessage(AMsg, 0, 0, 0) do
  begin
    TranslateMessage(AMsg);
    DispatchMessage(AMsg);
  end;
end.