Hi leute,
ich habe mir ein nachfahre von TSTatusbar erstellt, in dessen Constuctor erzeuge ich eine Thread für die Satutsanzeigen, diesem Thread möchte ich das handle meines TStatusbar Nachfahren übergeben und genau hier bekomme ich eine Exception.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| constructor SysInfStatusbar.Create(AOwner: TComponent);
var pan : TStatusPanel;
i : 1..3;
MemStat : TMemoryStatus;
begin
inherited Create(AOwner);
for i:=1 to 3 do
begin
pan := self.Panels.Add;
pan.Width := 150;
end;
flist := Tstringlist.create;
GlobalMemoryStatus(MemStat);
maxmemory := MemStat.dwTotalPhys;
fChecker := TthrCheck.Create(false,handle,CPUUsage_MsgID, CPUSpeed_MsgID, MemoryState_MsgID, ActiveProccess_MsgID);
end; |
woran liegt es, hat Statusbar.handle in diesem moment noch keinen wert ??? (ParentHandle ist nämlich auch = 0)
Ich brauche das Handle da mein Thread im Execute die nachrichten an den Nachfahren sendet (WndProc, zum setzen der infos).
Moderiert von 
Tino: Code- durch Delphi-Tags ersetzt.
