Probleme mit Property einer Komponente

[Helmi]

Hallo,

Jetzt muss ich nochmal dieses Thema aufgreifen, da ich wieder mit TIcons rumspiele.

Ich hab mir mal das Icon-Laden vom TForm angeschaut und musste feststellen, dass beim LoadFromFile vom TIcon das neue Icon sofort angezeigt wird und nicht wie durch das Umladen eines Extra-Icons (siehe paar Thread weiter oben).

In der Forms.pas ist folgendes drin (ich hoffe dass darf man hier veröffentlichen):

Code:

protected
  property Icon: TIcon read FIcon write SetIcon stored IsIconStored;

procedure TCustomForm.OnCreate....
begin
FIcon.OnChange := IconChanged;
end;

procedure TCustomForm.SetIcon(Value: TIcon);
begin
  FIcon.Assign(Value);
end;

procedure TCustomForm.IconChanged(Sender: TObject);
begin
  if NewStyleControls then
  begin
    if HandleAllocated and (BorderStyle <> bsDialog) then
      SendMessage(Handle, WM_SETICON, 1, GetIconHandle);
  end else
    if IsIconic(Handle) then Invalidate;
end;

Ich habe jetzt gleiche jetzt mal in meiner Komponente drin, nur das IconChanged hab ich wie folgt geändert:

Code:

  SendMessage(IconData.hIcon, WM_SETICON, 1, FIcon.Handle);

Nur leider wird das Icon nicht geändert.
Was macht TForm was ich nicht mach?

mfg
Helmi