Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
4-84819
Мишган
2003-04-23 11:18
2003.06.26
Отловить запуск DOS-приложения


6-84474
Юлия
2003-04-20 23:13
2003.06.26
Internet-приложения


3-83973
Rustik
2003-05-29 17:49
2003.06.26
При конвертации из DOS в WIN превые буквы забиваются решеткой


1-84217
LedWorm
2003-06-12 23:31
2003.06.26
OnMouseLeave и OnMouseEnter


1-84253
Gogol
2003-06-13 19:01
2003.06.26
Общая процедура OnChange на MyEdit: Array [0..n] of TEdit,