Hint anzeigen bei OnClick

[ConstantGardener]

Hallo Blue_StarHH,

die Anzeige sollte auch so gelingen...

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
var p : TPoint;
begin
 Panel1.Hint:='Hint anzeigen';
 p:=Mouse.CursorPos;
 p.x:=p.x+8;
 Application.ActivateHint (p);
end;