Привет всем!

Есть поток, который знает только HWND главной формы и ничего больше о ней. Этот поток только и может, что отправлять сообщение

SendMessage этому HWND. Главная форма умеет получать сообщение, посылаемое потоком, но как только в процедуре обработки

сообщения лезешь к Визуальным компанентам, получается AV. Как оформить обращение к визуальным компанентам внутри класса

главной формы, что бы избежать AV.

КОД обработчика сообщения

Код

procedure TForm1.MyHook(var Mes:TMessage); begin   Button1.Enabled:=False; //Вот тут и возникает AV end;

Конечно можно сделать вот так

Код

procedure TForm1.MyHook(var Mes:TMessage); begin   Form1.Button1.Enabled:=False; //Вот тут и возникает AV end;

Но некрасиво как-то, да и обращаясь к Form1 уже выходим за класс к другим переменным.

Это сообщение отредактировал(а) Alex - 26.5.2005, 18:38

Нормальный код. Все должно работать.
Разве, что в момент получения сообщения батон не существует.
Мессадж на другой менять не пробовал?
Может он у тебя совпадает с каким-нить системным...

Мессаж - WM_User+13. Менять пробовал, но это всё равно как по колёсам стучать и стекла протирать.
Баттон в Дизайн-тайме создан.

Если никто не против полностью исходник выложить могу.

Цитата(zalex @ 26.5.2005, 17:16)

WM_User+13. Менять пробовал, но это всё равно как по колёсам стучать и стекла протирать.

В данном случае да.

Цитата(zalex @ 26.5.2005, 17:16)

Если никто не против полностью исходник выложить могу.

Если меньше 64 строк, то давай.
Если польше, то приаттач в архиве к сообщению.

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Unit2, ExtCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public   procedure MyHook(var Mes:TMessage);Message WM_User+13;stdcall;     { Public declarations }   end; var   Form1: TForm1;     MT:  TMathThread; implementation {$R *.dfm} procedure TForm1.MyHook(var Mes:TMessage); begin Button1.Enabled:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin Button1.Enabled:=False; MT:=TMathThread.Create(True); MT.Priority:=TPLowest; MT.MainHandle:=Self.Handle; MT.FreeOnTerminate:=True; Mt.Resume; end; end. Это главный модуль. Он использует Unit 2 unit Unit2; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TMathThread = class(TThread)   private     { Private declarations }   protected     procedure Execute; override;   public   MainHandle:HWND;   MyReal:Real; end; implementation Function MyMath(a,b:real):real; begin Result:=a/b; end; procedure TMathThread.Execute; var x,y:real; i:integer; begin try for i:=0 to 500 do begin x:=1; y:=i; Myreal:=MyMath(x,y); end; except SendMessage(MainHandle,WM_User+13,1,1); end; end; end.

Это сообщение отредактировал(а) Alex - 26.5.2005, 18:39

Код

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public procedure MyVisualMethod; { Public declarations } end; var Form1: TForm1; MT: TMathThread; implementation {$R *.dfm} procedure TForm1.MyVisualMethod; begin Button1.Enabled:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin Button1.Enabled:=False; MT:=TMathThread.Create(True); MT.Priority:=TPLowest; MT.MainHandle:=Self.Handle; MT.FreeOnTerminate:=True; Mt.Resume; end; end. Это главный модуль. Он использует Unit 2 unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMathThread = class(TThread) private procedure DoMyVisualMethod; { Private declarations } protected procedure Execute; override; public MainHandle:HWND; MyReal:Real; end; implementation procedure TMathThread.DoMyVisualMethod; begin Form1.MyVisualMethod; end; Function MyMath(a,b:real):real; begin Result:=a/b; end; procedure TMathThread.Execute; var x,y:real; i:integer; begin try for i:=0 to 500 do begin x:=1; y:=i; Myreal:=MyMath(x,y); end; except Synchronize(DoMyVisualMethod); //!!!! end; end; end.

и никаких сообщений и AV

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

Проще, как уже писал в первом письме, сделать
Form1.Button1.Enabled:=False вместо Button1.Enabled:=False, но некрасиво это, хотелось бы всё решить на уровне класса и не вылазить за его пределы.(Как в случае с переменной Form1)


Может это выглядит и загонно, но хочется как бы сказать - юнитности. Т.е. отладил объект - забыл про него, и т.д. Вот и поток хочу что бы выдавал что либо, зная лишь HWND формы, причем реакция формы позволяла бы лезть к VCL-компаненту.

Мож другой способ есть, или туть что -то упустил.