Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
18. Nov 2004
Indem du dir eine Ableitung von TIcon schreibst, die das kann...
Für die Methode LoadFromFile hab ich das mal gemacht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
18. Nov 2004
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:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
begin
try
Icon := TIcon.Create;
Icon.LoadFromFile('e:\telefonbilder\telefonrot.ico');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
18. Nov 2004
Hoppla, das war falsch, was ich erzählt hab... :oops:
Ein Blick in TCustomForm (dort gibt's ja auch ne Icon-Eigenschaft) zeigt:
procedure TTestCompo.SetIcon(Value: TIcon);
begin
FIcon.Assign(Value);
end;
constructor TTestCompo.Create(AOwner: TComponent);
begin