Текущий архив: 2003.06.26;
Скачать: 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 вся ветка
Текущий архив: 2003.06.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
