if ToolButton1.Down then
begin
Edit1.Cursor:=crArrow;
Edit1.Hint:=Edit1.Text;
end
else
begin
Edit1.Cursor:=crDefault;
Edit1.Hint:='';
end;
转载于:https://www.cnblogs.com/huking/archive/2010/03/24/1694263.html