Hi,
den Event onMouseDown und onMouseUp deines Formulars könntest du folgenden Code hinzufügen:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FormHinweis.Left:= mouse.CursorPos.X;
FormHinweis.Top:= mouse.CursorPos.Y;
FormHinweis.Show
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if FormHinweis.Showing then
FormHinweis.Close
end;
Es wird also ein 2. Formular geöffnet, wo du vorher noch den BorderStyle auf bsNone sowie AlphaBlend auf true setzt und AlphaBlendValue einen Wert zuweist.
Für variable Texte kannst du ja ein TLabel oder TMemo nehmen und diese gegebenfalls dynamisch erstellen.