DBR Delphi-Ecke

// Getestet mit D2010 unter W7

// siehe auch Balloon-Tooltips erstellen

// Wenn "TBalloon" zu Ihrer Delphi-Version gehört, kann man diese
// Komponente verschieden einsetzen, beispielsweise als Hint.
// Dazu setzen Sie eine TImagelist auf die Form und fügen ihr
// mindestens ein Bild zu (für unsere Beispiele drei). Dann setzen
// Sie ein "TBalloonHint" (für unsere Beispiele zwei) auf die Form.
// Um Balloonhints anzuzeigen gehen Sie folgendermaßen vor:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
// --- kann alles im Objektinspektor eingestellt werden --- 
  Panel1.Customhint := BalloonHint1; 
  Panel1.ShowHint := true; 
  Panel1.Hint := 'Überschrift|Text|0'; 
  BalloonHint1.Delay := 500; 
  BalloonHint1.Images := ImageList1; 
  BalloonHint1.HideAfter := -1; 
 
  Panel2.Customhint := BalloonHint1; 
  Panel2.ShowHint := true; 
  Panel2.Hint := 'Test|Werte wie Panel1|1'; 
// --------------------------------------------------------- 
end;

// Beachtenn Sie, dass Titel, Text und Icon immer durch ein
// Pipe-Symbol getrennt werden.

// Wenn ein Tooltip bei einem Ereignis (z.B. Button-Klick)
// angezeigt werden soll, können Sie so vorgehen:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  PT: TPoint; 
begin 
  BalloonHint2.Title := 'Aber Hallo,'; 
  BalloonHint2.Description := 'Sie sollten doch hier nicht klicken!'; 
  BalloonHint2.Images := ImageList1; 
  BalloonHint2.ImageIndex := 2; 
  PT.X := Button1.Width div 2; 
  PT.Y := Button1.Height; 
  BalloonHint2.Delay := 0; 
  BalloonHint2.HideAfter := 2000; 
  BalloonHint2.ShowHint(Button1.ClientToScreen(PT)); 
end;