TBitmap und hint

[Christoph]

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]

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]

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?

Image.Canvas.Draw(0, 0, Bild); tut leider nicht.

Kannst Du nochmal draufschauen? Danke!

Christoph

[patti]

Müsste mit

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

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

P@Tti

[Robert Marquardt]

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]

Außerdem musst du dann daran denken, es unbedingt wieder freizugeben!

P@Tti

[Christoph]

Prima, herzlichen Dank. Das half!

Grüße,
Christoph