Метод обратного вызова?

[Altera]

Всем привет. Интересует следующий вопрос.
Вот при создании класса окна в tWinControl ему в качестве оконной процедуры назначают InitWndProc но при первом же её вызове (т.е. при получении сообщения WM_CREATE в момент создания окна InitWndProc меняет адрес оконной процедуры со своего на адрес метода экземпляра объекта tWinControl. Т.е. на tWinControl.wndProc и вызывает его.

function InitWndProc(HWindow: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): LRESULT;
begin
  CreationControl.FHandle := HWindow;
  if IsWindowUnicode(HWindow) then
  begin
    SetWindowLongW(HWindow, GWL_WNDPROC, Longint(CreationControl.FObjectInstance));
    if (GetWindowLongW(HWindow, GWL_STYLE) and WS_CHILD <> 0) and
      (GetWindowLongW(HWindow, GWL_ID) = 0) then
      SetWindowLongW(HWindow, GWL_ID, HWindow);
  end else
  begin
    SetWindowLong(HWindow, GWL_WNDPROC, Longint(CreationControl.FObjectInstance));
    if (GetWindowLong(HWindow, GWL_STYLE) and WS_CHILD <> 0) and
      (GetWindowLong(HWindow, GWL_ID) = 0) then
      SetWindowLong(HWindow, GWL_ID, HWindow);
  end;

  SetProp(HWindow, MakeIntAtom(ControlAtom), THandle(CreationControl));
  SetProp(HWindow, MakeIntAtom(WindowAtom), THandle(CreationControl));

  asm
        PUSH    LParam
        PUSH    WParam
        PUSH    Msg
        PUSH    HWindow
        MOV     EAX,CreationControl
        MOV     CreationControl,0
        CALL    [EAX].TWinControl.FObjectInstance
        MOV     Result,EAX
  end;
end;

Кстати, не мог не заметить, что сначала проверяется, использует ли окно юникод и если да то вызывается GetWindowLongW/SetWindowLongW, в противном случае вызывается GetWindowLong/SetWindowLong, прикол в том, что в Embarcadero CodeGear RAD Studio 2010 Archtect функции без A и W по умолчанию ссылаются на W[CODE]function SetWindowLong; external user32 name 'SetWindowLongW';

function SetWindowLong; external user32 name 'SetWindowLongW';
function SetWindowLongA; external user32 name 'SetWindowLongA';
function SetWindowLongW; external user32 name 'SetWindowLongW';

Не знаю, какой смысл делать там лишнюю проверку?

Короче, как правильно указать winApi ссылку на метод, что бы он видел его как функцию и всё было бы ОК?

И интересен вот ещё какой вопрос, описание оконной процедуры выглядит, сами можете видеть каким образом, а вот опись метода tWinControl.wndProc выглядит вот так:

procedure WndProc(var Message: TMessage); override;

который объявлен ещё в tControl как виртуальный, непонятно только зачем, наверное что бы неоконные компоненты тоже могли бы обрабатывать сообщение, но тогда почему-то он обрабатывает WM_ а не CM_ или CN_?

В общем если проясним ответы на эти вопросы, будет здорово

з.ы. Быть может я не правильно избавил код от {$IF DEFINED(CLR)}, {$IFDEF LINUX} и т.п. По любому вы сами можете докопаться до него )

[Ins]

Сообщения WM_ посылаются неоконным контролам не от системы непосредственно, разумеется, а искусственно, от его оконного родителя

[Altera]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  tMyThreadProc = function (const lParam: pChar): integer of object; stdCall;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function myThread(const lParam: pChar): integer; stdCall;
  end;

var
  Form1: TForm1;

const
  tempStr = 'my string';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  myThreadProc: tMyThreadProc;
  ID: cardinal;
begin
  myThreadProc := myThread;
  createThread(nil, 0, @myThreadProc, pChar(tempStr), 0, ID);
end;

function TForm1.myThread(const lParam: pChar): integer;
begin
  setWindowText(findWIndow('tform1', nil), lParam);
end;

end.

Проблема с параметрами. Как решить?

[Ins]

По MakeObjectInstance у Антона Григорьева подробно расписано:
http://www.delphikingdom.com/asp/vie...talogid=169#07

[GunSmoker]

Если вы целиком контролируете своё окно - я бы посоветовал использовать Get/SetWindowLong с GWL_USERDATA вместо хака MakeObjectInstance.

[Altera]

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

По MakeObjectInstance у Антона Григорьева подробно расписано:
http://www.delphikingdom.com/asp/vie...talogid=169#07

Ага конечно, спасибо. Я его как раз читаю книгу "О чём не пишут в книгах по Delphi". Иначе у меня не возник бы этот вопрос, дело в том, что как раз на мой вопрос там нет ответа. Я эту главу 3 раза прочёл.

[Ins]

1. Во-первых, не используй CreateThread, а используй BeginThread, иначе тебе явно не понравится, когда программа зависнет намертво при попытке выделить в потоке память
2. Во-вторых, методы класса от обычных функций отличаются тем, что в них НЕЯВНО передается дополнительный параметр - Self, соответственно с этим параметром они просто не соответствуют прототипу. Обход - это назначит все-таки функцию с правильным прототипом, которая вызывает метод, но эта функция должна откуда-то взять Self. Стоит ли овчинка?

[Altera]

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

1. Во-первых, не используй CreateThread, а используй BeginThread, иначе тебе явно не понравится, когда программа зависнет намертво при попытке выделить в потоке память

А с чего она должна зависнуть? Никогда не зависала.

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

2. Во-вторых, методы класса от обычных функций отличаются тем, что в них НЕЯВНО передается дополнительный параметр - Self, соответственно с этим параметром они просто не соответствуют прототипу. Обход - это назначит все-таки функцию с правильным прототипом, которая вызывает метод, но эта функция должна откуда-то взять Self. Стоит ли овчинка?

Это я знаю. Вот я и спрашиваю, как это организовать. Ведь VCL реализовала, но я разобраться не могу.

[Ins]

А с чего она должна зависнуть? Никогда не зависала.

Значит тебе везло. Загляни в код функции BeginThread и посмотри что она делает. А именно, она:
1. Переводит менеджер памяти в потокобезопасный режим, без этого попытка одновременного обращения к менеджеру памяти из разных потоков может закончиться непредсказуемо
2. Заворачивает код функции потока в SEH-фрейм, чтобы необработанное исключение в потоке не рушило все приложение
3. Инициализирует FPU (для правильной работы чисел с плавающей точкой)

Ведь VCL реализовала, но я разобраться не могу.

VCL делает это достаточно грязно - создает в памяти код, который вызывает метод. Проще объявить свою функцию, назначить ее и вызвать в ней метод

[Altera]

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

Значит тебе везло. Загляни в код функции BeginThread и посмотри что она делает. А именно, она:
1. Переводит менеджер памяти в потокобезопасный режим, без этого попытка одновременного обращения к менеджеру памяти из разных потоков может закончиться непредсказуемо
2. Заворачивает код функции потока в SEH-фрейм, чтобы необработанное исключение в потоке не рушило все приложение
3. Инициализирует FPU (для правильной работы чисел с плавающей точкой)

Не, я понял почему у меня не зависало. Я никогда в потоках не освобождал память. А если просто при вызове функции нужно выделить память под переменные, тоже зависнет?

Ладно, спасибо, учту.

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

VCL делает это достаточно грязно - создает в памяти код, который вызывает метод. Проще объявить свою функцию, назначить ее и вызвать в ней метод

Ок, ясно. VCL меня частенько пугает своими выкрутасами. Как бы они не до добра бы не довели.