работа с компонентами через WinApi

[user_jasser]

Stilet
Да былоб нормально еслиб он был стандартный эдит. Просто в нем уже столько всего намучено одним удальцом(подсветка текста...итп) а я просто хочу добавит выплывающий список(переменных, методов...).
Спасибо буду пробывать через TranslateMessage. Вот только булевской функции на (фокус к Едиту) пока не могу найти .

[user_jasser]

вот немного разобрался(событие нажатие "точки" работает) только вот с GetCaretPos() проблемы , что то выводиться не правдоподобное значение...
подскажите ошибку?(можеть надо под какимто месджем писать)?

вот виновник :

unit EditirApi;

{$mode objfpc}{$H+}

interface

uses Windows, Classes, SysUtils;

  procedure RunEdit;
  procedure StartEdit;

  var  tid: Cardinal; find: boolean;  Hnd, HEdit: HWnd;
       Text: array[0..Pred(MAX_PATH)] of char;
       OldWndProc: WNDPROC; HPoint: TPoint;

implementation

{ tnew }

function NewWindowProc(hWnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;
 begin
   case uMsg of
     WM_CHAR :
     begin
       if wParam = ord('.') then begin
          MessageBox(0, 'OK', '.dll',MB_ICONINFORMATION);
          GetCaretPos(HPoint);
          MessageBox(0, PChar(IntToStr(HPoint.x)), '.dll',MB_ICONINFORMATION);
          uMsg:= 0;
       end;
     end;
   end;
   Result:= CallWindowProc(OldWndProc, hWnd, uMsg, wParam, lParam)
 end;

procedure RunEdit;
 begin
  while find do begin
    Hnd:= FindWindow(nil, 'Trigger Editor');
    if Hnd <> 0 then begin
       HEdit:= FindWindowEx(Hnd, 0,'Edit', nil);
       HEdit:= FindWindowEx(Hnd, HEdit,'Edit', nil);
       OldWndProc:= WNDPROC(SetWindowLong(HEdit, GWL_WndProc, Longint(@NewWindowProc)));
       find:= false;
       exit;
    end;
    sleep(300);
  end;
end;


procedure StartEdit;
begin
 find:= true;
 CreateThread(nil, 0, @RunEdit, nil, CREATE_NEW, tid);
end;

end.

[Д'якон]

Только через хук. С Пунто Свичер знаком? Тот же принцип

Находишь нужное окно,хучишь нужное сообщение проверяешь то ли окно и тот ли символ и вперед.

[user_jasser]

хук(как я понял) видет процедуру хука только в dll? Просто моя программа уже написанна как DLL, а не как EXE. Это мне тогда нужно писать еще одну dll c хукам?

[rpy3uH]

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

Это мне тогда нужно писать еще одну dll c хукам?

не надо. пиши функцию хука в этой же DLL.

[user_jasser]

вот и с этим разобрался все работает...
теперь нужно вставить в окно ListBox на WinApi...

function ListCreate(PAR: HWND; x, y : integer): HWND;
begin
  result:= CreateWindowEx(
           0,
           'ListBox',
           nil,
           WS_CHILD or WS_VISIBLE or WS_BORDER,
           x,
           y,
           300,
           100,
           PAR,
           0,
           hInstance,
           nil);

end;

вот вставил куда надо, но вот с обработчиками ListBox мало знаком. Кто может показать пример создания простенкого списка...

[Д'якон]

посылай сообщение LB_ADDSTRING своему лист боксу и заполняй его

[vvviperrr]

флуд по теме. винапи на делфи какое то извращенство) имхо, на делфи нада кнопки на форму кидать и все) а че поприкольнее - с/асм