Bitmap in ein TImage während Laufzeit

[devnull]

Hi,
was mach ich hier falsch ? Ich möchte während der Programmausführung in ein
existierendes TImage eine Bitmap laden und anzeigen:

Delphi-Quellcode:

var NImage : TImage;
begin
   NImage := FAnwendung.Image_rot.Create(Fanwendung);
   try
     NImage.Picture.LoadFromFile ('Bilder\sf_rot_gestrichen.bmp');
     NImage.Assign(NImage);
   finally
     NImage.Free;
   end;

"Image_rot" ist das TImage auf der Form.

devnull

[SirThornberry]

anstelle von
NImage.assign(nimmage)
lieber
image_rot.assign(nimmage) machen

oder noch besser
image_rot.picture.loadfromfile(ExtractFilepath(app lication.exename) + 'Bilder\sf_rot_gestrichen.bmp')
da spaarst du dir die ganzen teile um das erst in nen hilfstimage zu packen

außerdem könntest du statt dem hilfs timage ein hilfs tbitmap nehmen, spaart resourcen

[devnull]

geht jetzt. danke

[devnull]

wie kann ich das Bild wieder löschen, so, dass das tImage immer noch auf der Form ist und auf
mausklicks reagiert ?

[Luckie]

Zitat:

Zitat von devnull

geht jetzt. danke

Frag sich blos wie lange bei der relativen Pfadangabe. :roll:

[devnull]

wieso ? wenn man das programm aus dem verzeichnis startet, funktioniert es ? wie solls denn sonst gehn?

[Luckie]

Dann änder mal bei einer Verknüpfung das artbeitsverzeichnis oder lass sich das aktuelle Verzeichnis durch einen Open- oder SaveDialog ändern, dann geht es nicht mehr. Gib den absoluten Pfad an.

[devnull]

und wie kann ich aus dem timage das bild wieder löschen (also kein bild mehr),
so dass es trotzdem auf mausklicks reagiert ?????

damit kann man zwar das bild löschen, das timage reagiert auch noch auf mausklicks

Code:

  image_rot := nil;

aber wie kann ich dann später wieder bilder einfügen ?
erst

Delphi-Quellcode:

  image_rot.Create (Fanwendung);

und dann ?

devnull

[cyberkiller0072001]

wenn das picture einfarbig ist, kannst du mit der eigenschaft Timage.transparent arbeiten

[devnull]

nein, is nich einfarbig !