Процедура/функция обратного вызова в классе

[Stilet]

Именно с этим и есть проблема.

Не вижу проблемы:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  windows,
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
      TEnumWindowProc=function(aHandle:HWND;aCaption,aClass:String):Boolean of object;

			{ TEnumWindow }

      TEnumWindow=class
        public
          OnFindWindow:TEnumWindowProc;
           procedure Go;
			end;

			{ TForm1 }

      TForm1 = class(TForm)
						ListBox1: TListBox;
						procedure FormCreate(Sender: TObject);
            function  OnFindWND(aHandle:HWND;aCaption,aClass:String):Boolean;
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
     with TEnumWindow.Create do begin
       OnFindWindow:=@OnFindWND;
       Go;
       Free;
     end;
end;

function TForm1.OnFindWND(aHandle: HWND; aCaption, aClass: String): Boolean;
begin
 ListBox1.AddItem(aCaption+' '+aClass,nil);
end;

{ TEnumWindow }

function EnumCallBack(h:THandle;Me:integer):LongBool; stdcall;
var Nm,cls:Array[0..255] of Char;
begin
   GetClassName(h,cls,sizeof(cls));
   GetWindowText(h,Nm,sizeof(nm));
   TEnumWindow(Me).OnFindWindow(h,string(nm),string(cls));
   Result:=true;
end;


procedure TEnumWindow.Go;

begin
  if not Assigned(OnFindWindow) then exit;
  EnumWindows(@EnumCallBack,LPARAM(Self));
end;

end.

Я угадал?

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

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

Должно быть как-то проще. В C++ для этого нужно было просто писать static перед функцией.

стоп стоп стоп, в С++ static функция по сути функция просто.
она не имеет доступа до экземпляров класса.(если не передать)
не пишите тогда метод класса и все.

[Krasiosoft]

Stilet, да, что-то вроде этого, только нужно, чтоб функция:

function EnumCallBack(h:THandle;Me:integer):LongBool; stdcall;

принадлежала классу.

Другими словами, чтоб не было глобальных функций, а все было в классах.

Сообщение от Пепел Феникса

С++ static функция по сути функция просто.

Да, именно такую функцию и нужно мне записать в класс.

[Stilet]

принадлежала классу.

Зачем? Какой в этом смысл?
И не проще ли тогда использовать FindWindow вместо EnumWindows?

чтоб не было глобальных функций

А где у меня в примере такая функция объявлена?

[Krasiosoft]

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

Зачем? Какой в этом смысл?

Хочу, чтоб все было "по полочкам", т.е. если класс использует функцию, значь она должна ему принадлежать.

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

И не проще ли тогда использовать FindWindow вместо EnumWindows?

EnumWindows я просто привел как пример, т.к. в нее нужно передавать адрес функции.

[Stilet]

если класс использует функцию, значь она должна ему принадлежать.

Если я живу в Украине, знач я хохол. Угадал?
Хорошо, это не политкорректно. Если я люблю шоколад, значит я люблю сырое какао жевать. Так?

[Krasiosoft]

Я это вижу несколько иначе: "если шоколад, тогда в нем какао".

[Stilet]

Т.е. белый шоколад по твоем не возможен?
Или наоборот - какао заменитель.
ИМХО мороку на голову ты себе только придумал. У нас есть поговорка: "Не мала баба клопота - купила порося".

[JUDAS]

Автор, подкорректировав технологии первого поста получил вот такою юнит.
Оно?

unit Unit1;

interface

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

type
  TMyProc = procedure(const str: string) of object;

  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure FCallBack(const str: string);
  public
    callback : TMyProc;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
   callback := FCallBack;
end;

procedure TForm1.FCallBack(const str: string);
begin
  Form1.Memo1.Lines.Add(str);
end;

procedure UseCallbackFunc(proc: TMyProc);
begin
  proc('1111');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.callback('1111');  //  нормально выводит текст в Memo1
  UseCallbackFunc(Form1.callback);  //  выводит всякий бред в Memo1
end;

end.

[Krasiosoft]

JUDAS, это не совсем то, что нужно. Надо, чтоб тип функции был именно:

type
  TMyProc = procedure(const str: string);

Т.е. чтоб при вызове этой функции ничего лишнего не передавалось, кроме как const str: string (это я о self).