Alistair George wrote:
> Here is a little bit of code I wrote that may be useful, it does what you
> want anyway:
Thanks, I ended up using the following:
var
hwin: THintWindow;
begin
hwin := THintWindow.Create(Self);
hwin.Color := clInfoBk;
end;
and
begin
if hwin.Caption <> ml.Caption then
begin
TimerHwin.Enabled := False;
hwin.ActivateHint(
Rect(
P.X,
P.Y,
P.x + hwin.Canvas.TextWidth(ml.Caption) + 6,
P.Y + hwin.Canvas.TextHeight(ml.Caption)),ml.Caption);
TimerHwin.Enabled := True;
end;
end;
and
procedure TForm1.TimerHwinTimer(Sender: TObject);
begin
hwin.ReleaseHandle;
TimerHwin.Enabled := False;
end;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
