События/Сообщения для формы в dll

[spamer]

Всем привет. Возник вопрос.
Есть процедура в dll и в ней вот такое :

var
  HintForm : TForm;
  ActiveHWND : HWND;
...

  HintForm := TForm.Create(nil);
  with HintForm do
    begin
      BorderStyle := bsNone;

      if _Width >= 0 then Width   := _Width;
      if _Height >= 0 then Height := _Height;

      Color := _FormColor;
      AlphaBlend := True;
      AlphaBlendValue := _FormAlphaColor;
    end;

...

  ActiveHWND := GetActiveWindow;
  ShowWindow(HintForm.Handle,SW_SHOWNOACTIVATE);
  SetActiveWindow(ActiveHWND);

...

Код не полный, только та часть, по которой есть вопрос.
Собственно, как мне для формы HintForm создать событие OnClick, или же отловить сообщение когда нажата ЛКМ по этой форме? Ведь класса нет у этой формы, вот поэтому я и не могу понять
Кто может подскажите, пожалуйста.

[mihali4]

Ведь класса нет у этой формы
var
HintForm : TForm;

Простите... А TForm вы уже за класс не считаете ?
Переросли ?

[Stilet]

spamer

Все очень просто. Создаешь форму, в ней как обычно все события описываешь как надо а в ДЛЛ пишешь что-то типа:

uses
  Unit2,
  SysUtils,
  Classes;

var f:TForm2;

procedure aga;begin f:=TForm2.Create(nil);f.show; end;
procedure ugu;begin f.Close; f.Free; f:=nil; end;

exports aga,ugu;
begin
end.

Form2 это та форма, которая попадет в ДЛЛ.
А далее вызывай ее ка хочешь.

[psycho-coder]

procedure HintFormClick(Sender: TObject);
begin
...
end;
...
  HintForm := TForm.Create(nil);
  with HintForm do
    begin
      BorderStyle := bsNone;

      if _Width >= 0 then Width   := _Width;
      if _Height >= 0 then Height := _Height;
      OnClick = HintFormClick;
      Color := _FormColor;
      AlphaBlend := True;
      AlphaBlendValue := _FormAlphaColor;
    end;

[spamer]

Простите... А TForm вы уже за класс не считаете ?
Переросли ?

Вы наверное не правильно поняли, я имел ввиду, что нету модуля с классом формы. Т.е. я же форму не создаю через Файл = Нью = Форм.

Stilet, но ведь я же создаю форму немного по другому, у меня нету модуля с классом данной формы.

psycho-coder, ваш код попробую и отпишусь. Хотя я вот почти также был писал, только Sender: TObject непередавал с процедуру и у меня ошибка вываливалась.

Тему прошу не закрывать, если кто то еще может чего то предложить - буду только рад выслушать

[Stilet]

spamer

А что мешает его сделать и использовать в ДЛЛ?
Это же удобно, и модульность поддерживается хорошо.

[spamer]

psycho-coder, как я и думал, ваш вариант не сработал...
Не совместимость типов:

Incompatible types: 'method pointer and regular procedure'

А что мешает его сделать и использовать в ДЛЛ?
Это же удобно, и модульность поддерживается хорошо.

Та оно то вроде и удобно, но... как бы сказать...не особо подходит.
А неужели нельзя больше никак приделать событие к моему варианту формы?

[Stilet]

А неужели нельзя

Скажем так можно, но я в свое время от такого отказался:
во-первых наткнулся на грабли с ресурсами - для TForm вроде как полюбому должен быть файл с ресурсами
во-вторых - куча кода в одном файле просто неудобна для отладки.

[spamer]

Stilet, все ясно, спасибо за пояснение. Тогда создам форму (с модулем) и буду юзать такой вариант, как вы предложили.
з.ы. а у вас случайно примера не осталось ваших наработок для вот того варианта реализации - просто в целях изучения. Если найдете, выложите пожалуйста сюда.
з.з.ы вдруг чего - еще задам вопросы...

[mihali4]

Ну-у-у...
Я вам могу дать старый примерчик для DLL:

begin
FZastav:=TFZastav.Create(Application);
Application.ProcessMessages;
FZastav.Show;
Application.ProcessMessages;
FZastav.Update;
Application.ProcessMessages;
if FormatDateTime('hh:nn:ss',Now)<'09:10:00' then
begin
MyIni:=TIniFile.Create('C:\BIL.INI');
MyIni.WriteBool('Razdel','Reindex',True);
MyIni.Free;
SetLog('Реиндексация включена');
end;
ExitProc:=@LibExit;
MyExit:=ExitProc;
Application.CreateForm(TFDM1, FDM1);
if DM1.haverror then
begin
FZastav.Free;
LibExit;
end else
begin
Formmain:=TFormmain.Create(Application);
Formmain.Hide;
Formmain.showfn:=0;
FZastav.Free;
end;
end.

Может, сгодится...