ПРодолжение...

← →
Chlavik (2003-06-10 15:01) [0]

//****************************************************************************** procedure TUploadThrd.DoOnErrorMsg(Msg:string); begin PostMessage(FRecepientHandle,CM_ErrorMsg, Integer(Msg),Integer(Self)); end;
посылаю так

← →
Chlavik (2003-06-10 15:02) [1]

А обрабатываю так procedure TUplThEvents.CmOnErrorMsg(var Message: TMessage); begin if Assigned(FOnErrorMsg) then FOnErrorMsg(Self,String(Message.WParam)); Message.Result := 0; end;

← →
Chlavik (2003-06-10 15:04) [2]

Ну вт загловок
TUplThEvents = class(TWinControl) protected //Do private FOnUploadfinished:TUploadEvent; FOnUploadStarted:TUploadEvent; FOnErrorMsg:TUploadMsgEvent; FOnUploadMsg:TUploadMsgEvent; FOnReqUpdate:TUploadEvent; FOnUploadInterrupted:TUploadEvent; function ReadRecHWND:Thandle; Procedure WriteRecHWND(aValue:THandle); procedure CmOnErrorMsg(var Message: TMessage); message CM_ErrorMsg; procedure CmOnStatusMsg(var Message: TMessage); message CM_StatusMsg; procedure CmOnUplInterr(var Message: TMessage); message CM_UplInterr; procedure CmOnReqUpdate(var Message: TMessage); message CM_ReqUpdate; procedure CmOnUplStarted(var Message: TMessage); message CM_UplStarted; procedure CmOnUplFinished(var Message: TMessage); message CM_UplFinished; public property Recephandle:THandle read ReadRecHWND write WriteRecHWND; property OnUploadfinished:TUploadEvent read FOnUploadfinished write FOnUploadfinished; property OnUploadInterrupted:TUploadEvent read FOnUploadInterrupted write FOnUploadInterrupted; property OnUploadStarted:TUploadEvent read FOnUploadStarted write FOnUploadStarted; property OnReqUpdate:TUploadEvent read FOnReqUpdate write FOnReqUpdate; property OnUploadMsg:TUploadMsgEvent read FOnUploadMsg write FOnUploadMsg; property OnErrorMsg:TUploadMsgEvent read FOnErrorMsg write FOnErrorMsg; end;

← →
Игорь Шевченко (2003-06-10 15:08) [3]

FRecepientHandle - это что такое и как оно связано с описанным классом ?

← →
Chlavik (2003-06-10 15:17) [4]

Ну да я это короче сделал заготовку я думал что нада будет присвоить handle окна чему то из моего класа
по этому написал вот это

function TUplThEvents.ReadRecHWND:THandle;
begin
Result:=self.WindowHandle;
end;

//******************************************************************************

procedure TUplThEvents.WriteRecHWND(aValue:THandle);
begin
Self.WindowHandle:=aValue;
end;

← →
Игорь Шевченко (2003-06-10 15:22) [5]

Кара кысмет :)

ПРодолжение... Найти похожие ветки