Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c