Pointer aus SendMessage nicht dereferenzierbar?

[erik-17]

Ok, danke für eure Antworten

Ich habs vorwiegend durch Luckie's Quellcode gelöst.

Die Lösung schaut nun so aus:

Delphi-Quellcode:

type
  PTimeBinar = ^TTimeBinar;
  TTimeBinar = record
         Stunden : array[1..5] of boolean;
         Minuten : array[1..6] of boolean;
         Sekunden : array[1..6] of boolean;
  end;

  TTimeThread = class(TThread)

  private
     TimeBinar : PTimeBinar;
  protected
    procedure Execute; override;
  end;

implementation
uses Unit1;

procedure TTimeThread.Execute;
begin
     TimeBinar := new(PTimeBinar);
     [...]
          SendMessage(Form1.Handle,WM_TIME_ANNOUNCING,0,LPARAM(TimeBinar));
end;

/// Quellcode der MainUnit:

procedure TForm1.OnTimeAnnounce(var Msg: TMessage);
var p : PTimeBinar;
begin
case Msg.WParam of
0 : begin
         p := PTimeBinar(Msg.LParam);
         TueEtwas(p);
    end;

Um das ganze Problem mal allgemein zu beschreiben: Ich will mir eine binäre Uhr bauen. Dazu lass ich einen Thread dauerhaft laufen, der mir die Zeit in die Binärfaktoren zerlegt und danach 100ms pausiert. Um dann nicht ständig mit einem Timer von der MainUnit aus die Werte auszulesen, sende ich aus dem Thread nach erfolgreicher Zerlegung die Message mit dem Pointer. Ist meiner Meinung nach viel eleganter