Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TBitmap und hint (https://www.delphipraxis.net/98790-tbitmap-und-hint.html)

Christoph 1. Sep 2007 13:23


TBitmap und hint
 
Hallo,

ich möchte gerne einen hint bei MouseOver über einem bestimmten Bitmap erzeugen, finde aber keine Möglichkeit wie.

Der code sieht im Moment aus wie folgt (Ausgabe des 8. Bildes aus der ImageList):

Code:
  // Bild Nummer 8 ausgeben
  if a = 8 then
  begin
    Bild := TBitmap.Create;
    Form1.ImageListBilder.GetBitmap(8, Bild);
    Form1.Canvas.Draw(572, 178, Bild);
    Bild.Free;
  end;
Wenn ich nun über das ausgegebene Bild den Mauspfeil bewege, hätte ich gerne einen hint-Text, der die Bedeutung des Bildes beschreibt.
Ist das ohne größeren Aufwand möglich? Die OH schweigt dazu.

Danke im Voraus,
Christoph

alleinherrscher 1. Sep 2007 14:38

Re: TBitmap und hint
 
Zu zeichnest im augenblick das bild direkt auf die Canvas deiner Form. Nimm doch ein TImage, in dass du dein Bitmap lädst. Das is "sauberer" und hat die Eigenschaft "Hint" im ObjectInspector.

Grüße

Christoph 1. Sep 2007 16:55

Re: TBitmap und hint
 
Hallo,

schonmal herzlichen Dank für den Tipp.
Leider bekomme ich es nicht hin. Hier mein Versuch:

Delphi-Quellcode:
Bild := TBitmap.Create;
Image := TImage.Create(Form1);
Form1.ImageListBilder.GetBitmap(8, Bild);
Image.Picture.Assign(Bild);
Wie bekomme ich das Bild nun auf die Form1?

Delphi-Quellcode:
Image.Canvas.Draw(0, 0, Bild);
tut leider nicht.

Kannst Du nochmal draufschauen? Danke!

Christoph

patti 1. Sep 2007 17:49

Re: TBitmap und hint
 
Müsste mit

Delphi-Quellcode:
Image.Picture.Bitmap.Assign(Bild);
gehen (einfach noch ein Bitmap hinter das Picture ;-) ). Du kannst das TImage wie ein Label oder einen Button auch ganz "normal" erstellen (Reiter "Zusätzlich") und musst es nicht mit

Delphi-Quellcode:
Image := TImage.Create(Form1);
erst "createn". Du kannst dann im Objektinspektor die Einstellungen für den Hint vornehmen.

P@Tti

Robert Marquardt 1. Sep 2007 17:58

Re: TBitmap und hint
 
Warum kreierst du das TImage dynamisch? Wenn du das tust dann musst du noch Image.Parent auf Form1 setzen und die Position, sonst kann man die Komponente nicht sehen.

patti 1. Sep 2007 18:02

Re: TBitmap und hint
 
Außerdem musst du dann daran denken, es unbedingt wieder freizugeben!

P@Tti

Christoph 2. Sep 2007 20:58

Re: TBitmap und hint
 
Prima, herzlichen Dank. Das half!

Grüße,
Christoph


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz