Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

Передача сообщений из потока   Найти похожие ветки 

← →
TGrey   (2004-06-04 10:34) [0]

Доброго времени суток!
Подскажите, каким образом можно передать сообщение из потока, а затем обработать в приложении.
Знаю, что надо через PostMessage, но не выходит, нужен пример.

---

← →
Polevi ©   (2004-06-04 10:36) [1]

входит, выходит.. замечательно выходит (с)

а у тебя значит не выходит.. печально
покажи свой код

---

← →
Digitman ©   (2004-06-04 11:08) [2]

const WM_MYMESSAGE = WM_USER + 1000;

TMyThread = class(TThread)
private
FWnd: THandle;
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean; WndHandle: THandle);
end;

constructor TMyThread.Create;
begin
 FWnd := WndHandle;
 inherited Create(CreateSuspended);
end;

procedure TMyThread.Execute;
begin
..
PostMessage(FWnd, WM_MYMESSAGE, 5, 10);
..
end;

..
TMyForm = class(..)
private
 procedure MsgMyMessage(var Message: TMessage); message WM_MYMESSAGE;

end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
 MyThread := TMyThread.Create(False, Handle);
end;

procedure MsgMyMessage(var Message: TMessage);
begin
 ShowMessage(Inttostr(Message.wParam) + " " + Inttostr(Message.lParam));
end;

---

← →
Григорьев Антон   (2004-06-04 11:52) [3]

А если на PostMessage breakpoint поставить, останавливается?

---

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

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.1 c