Probleme mit Property einer Komponente

[Stevie]

Hi Helmi,

hab ich's überlesen, oder hast du noch nicht erklärt, an welcher Stelle du das Durchlaufen der SetIcon-Methode erwartest?
Zur Design-Zeit, wenn du's über den OI änderst?

P.S.: So muss es gemacht werden

Delphi-Quellcode:

procedure TTestCompo.SetIcon(Value: TIcon);
begin
  if Value <> FIcon then
    FIcon := Value;
end;

constructor TTestCompo.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // Wenn hier schon ein Icon-Objekt erstellt werden soll 
  // und die Set-Methode aufgerufen werden soll, dann:
  // Ansonsten hat das hier nix zu suchen!
  SetIcon(TIcon.Create);
end;

[Helmi]

hallo

sorry, hab das ganz vergessen zu erwähnen

das soll durchlaufen werden zur designzeit
und zur laufzeit wenn ich ein anderes Icon auswähle

[Stevie]

Hoppla, das war falsch, was ich erzählt hab...

Ein Blick in TCustomForm (dort gibt's ja auch ne Icon-Eigenschaft) zeigt:

Delphi-Quellcode:

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

constructor TTestCompo.Create(AOwner: TComponent);
begin
  inherited;
  FIcon := TIcon.Create;
end;

destructor TTestCompo.Destroy;
begin
  FreeAndNil(FIcon);
  inherited;
end;

Ich hab's getestet und es funktioniert!

MfG

Edit: Copy&Paste-Fehler behoben...

[Helmi]

aber das ist ja das gleiche was ich bereits schon der testcombo drin hatte oder?

ausserdem bei

Code:

destructor TTestCompo.Create(AOwner: TComponent);
begin
  FreeAndNil(FIcon);
  inherited;
end;

ist das create nicht falsch?
muss das ned destroy heissen?

[Stevie]

Zitat von Helmi:

aber das ist ja das gleiche was ich bereits schon der testcombo drin hatte oder?

ausserdem bei

Code:

destructor TTestCompo.Create(AOwner: TComponent);
begin
  FreeAndNil(FIcon);
  inherited;
end;

ist das create nicht falsch?
muss das ned destroy heissen?

Ach Shit Copy&Waste!!

Kommt die Meldung nicht, wenn du im OI ein Icon angibst???

[Helmi]

wenn ich im OI ein Icon eingib dann ja

aber (das hab ich vielleicht vergessen zu sagen) ich will auch zur Laufzeit das Icon ändern

und dazu brauch ich die SetIcon

[jim_raynor]

Zur Laufzeit kannst du doch einfach eine Zuweisung machen: Icon := NeuesIcon

Dann wird auch SetIcon aufgerufen. Also wo ist das Problem?


P.S: Ich glaube ihr merkt schon das ich diesen Smiley ( ) liebe

[Helmi]

es wird eben nicht die SetIcon aufgerufen sonst würde ja die Showmessage angezeigt werden

anbei mal mein beispielprogramm

es muss nur ein anderes Icon benutzt werden (bei euch)

[Stevie]

Ist doch klar! Weil hier nicht das Icon-Objekt geändert wird, sondern dieses Objekt nur ein anderes Icon lädt.

So würde es gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Icon: TIcon;
begin
  try
    Icon := TIcon.Create;
    Icon.LoadFromFile('e:\telefonbilder\telefonrot.ico');
    TestCompo1.Icon := Icon;
  finally
    FreeAndNil(Icon);
  end;
end;

[Helmi]

ach so

mit SetIcon reagier ich wenn sich das object ändert, aber da ich nur das Icon des Objects ändere wird SetIcon nicht ausgelöst

jetzt hab ich´s auch verstanden

gibt es ne möglichkeit auf das neue Icon (also die Datei) zu reagieren?