Работа с Handle

[derElektroBesen]

Работаю над проектом. Хочу через ф-ию SendMessage(...) скинуть сообщение потоковому классу. Дабы это сделать, передаю из вне в конструктор первого класса хэндл второго.

{<TimerUnit>}

const
  SX_TIMERMESSAGE = WM_USER + 1;

TArrayOfTHandle = array of THandle;
...
type
TTimerThread = class (TThread)
  protected
    ...
    Handles: TArrayOfTHandle;
    procedure Execute; override;
    procedure OnTimer;
  public
    constructor Create(const H: TArrayOfTHandle;
      const aInterval: Cardinal = 1000);
  end;
...
constructor TTimerThread.Create(const H: TArrayOfTHandle;
  const aInterval: Cardinal = 1000);
begin
  ...
  Handles := H;
  inherited Create(False);
end;

procedure TTimerThread.OnTimer;
var
  I: Integer;
begin
  for I := 0 to High(Handles) do
    SendMessage(Handles[I], SX_TIMERMESSAGE, 1, 0);
end;
...
...
...
{<MainUnit>}

procedure TForm1.FormShow(Sender: TObject);
begin
  Enemy := TEnemy.Create(...);
  SetLength(Handles, 1);
  Handles[0] := Enemy.Handle;
  Timer := TTimerThread.Create(Handles, 10);
end;
...
...
...
{<EnemyUnit>}

TEnemy = class (TThread)
  protected
    ...
    procedure Execute; override;
    procedure SXReadTimerMessage(var Mes: TMessage); message SX_TIMERMESSAGE;
    procedure Paint; virtual;
    procedure MoveEnemy; virtual;
    ...
  end;
...
procedure TEnemy.Execute;
begin
  repeat
    Sleep(10); // Дабы не вызывалось слишком часто
    Synchronize(Paint);
  until Terminated;
end;

procedure TEnemy.SXReadTimerMessage(var Mes: TMessage);
begin
  MoveEnemy;
end;

procedure TEnemy.MoveEnemy;
begin
  ...
end;

Так вот. Несмотря на сообщение SX_TIMERMESSAGE, процедура SXReadTimerMessage так ни разу и не вызывается...
Проблема видимо в том, что я неверно беду Handle объекта типа TEnemy.
Но я не вижу решения в связи с тем, что сталкиваюсь с подобным впервые. Буду рад помощи

[derElektroBesen]

И ни у кого нету ни единой идеи?..
Здесь же программисты вокруг =)
По идее)))

[denisbrain]

Сообщение от derElektroBesen

И ни у кого нету ни единой идеи?..
Здесь же программисты вокруг =)
По идее)))

в чужом коде разбираться влом, а зачем через sendmessage передавать ?
что это чтука вообще делает?

[derElektroBesen]

Потому что для таймера создан отдельный поток. В случае если использовать обычный таймер, в главном потоке, то при, предположим, зацикливании чего бы то ни было на формачке, таймер тоже обламывается. То же самое происходит если использовать Form1.Handle.
Поэтому я генерирую свое сообщение из одного потока и хочу кинуть во все объекты различных классов (соответственно различных потоков. У меня один класс - один поток). Чтобы передать Handle каждого объекта заюзан массив Handles который передается таймеру в конструктор.

[denisbrain]

Сообщение от derElektroBesen

Потому что для таймера создан отдельный поток. В случае если использовать обычный таймер, в главном потоке, то при, предположим, зацикливании чего бы то ни было на формачке, таймер тоже обламывается. То же самое происходит если использовать Form1.Handle.
Поэтому я генерирую свое сообщение из одного потока и хочу кинуть во все объекты различных классов (соответственно различных потоков. У меня один класс - один поток). Чтобы передать Handle каждого объекта заюзан массив Handles который передается таймеру в конструктор.

а что за задача такая что зависает?

если долго чтот работает обычно кидаю
application.processmessage; в тело цикла и вроде все работало ...
чую прога - которая память сканирует на предмет каких та цифр...

[derElektroBesen]

Вполне нормальная)))
Предположим основному потоку необходимо просчитать для каждого I от 1 до миллиона некоторую формулу. Или там прочесть файл с данными, файл имеет большой объем, и тд и тп, но при этом с использованием доп потоков мы добиваемся "независания" программы в целом. Предположим можно прописывать количество записей, которое обработано или использовать какой нибудь bar для отображения процента завершенности...

[denisbrain]

Сообщение от derElektroBesen

Вполне нормальная)))
Предположим основному потоку необходимо просчитать для каждого I от 1 до миллиона некоторую формулу. Или там прочесть файл с данными, файл имеет большой объем, и тд и тп, но при этом с использованием доп потоков мы добиваемся "независания" программы в целом. Предположим можно прописывать количество записей, которое обработано или использовать какой нибудь bar для отображения процента завершенности...

а на несколько ехе шников задачу разбить не получается?

[derElektroBesen]

Парень! Задача абсолютно вменяемая! Или ты считаешь, что все программы работают на одном потоке?! Если бы это было действительно так, я думаю ты (Вы) бы повесился еще до изобретения фотошопа! Так что попрошу без сарказма!

[denisbrain]

procedure mymessga() message SX_TIMERMESSAGE;

[derElektroBesen]

И чего? =)
-----------
Правите Вы уже после поступления ответа))) Теряется смысл)
ProcessMessages тоже не совсем подходит... Мне именно необходима многопоточность, в целях изучения этого довольно интересного раздела...
-----------
Опять же дитя позднего редактирования сообщений:

Сообщение от denisbrain

что это чтука вообще делает?

Не важно
Все что Вам может понадобиться для понятия сути проблемы, лежит в теме. См выше.