Probleme mit Property einer Komponente

[Stevie]

Indem du dir eine Ableitung von TIcon schreibst, die das kann...

Für die Methode LoadFromFile hab ich das mal gemacht.

[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

[Stevie]

Nun ja...
SendMessage(Handle, WM_SETICON, 1, GetIconHandle); ist halt was anderes, als
SendMessage(IconData.hIcon, WM_SETICON, 1, FIcon.Handle); Oben wird an das Fenster eine Nachricht geschickt (Handle ist dasselbe wie Self.Handle) und bei dir an das Icon-Handle!
Wenn, dann müsstest du an dein Componente die Nachricht schicken, allerdings müsste die dafür ein Hanlde besitzen, was imho erst in TWinControl implementiert ist.