Данный модуль является компонентом со стандартной
процедурой установки. Работает в среде Delphi 6.
После его регистрации перекрывается редактор свойства
Hint в TControl (т.е. во всех control-ах) во время Design-а.
При этом изменяется способ редактирования свойства Hint.
У него появляется кнопка "...", он становится многострочным
и > 255 символов.
Длинные хинты дольше читать, и, возможно, Вам потребуется
изменить свойства (пример):
Application.HintPause := 700;
Application.HintHidePause := 10000;
По умолчанию установлено 500мс и 2500мс
Текст модуля:
unit HintProperty;
interface
uses Windows, Messages, SysUtils, Classes,
designintf, DesignEditors, vcleditors, StdCtrls, StrEdit;
type
THintProperty = class(TStringListProperty)
protected
ss : TStringList;
function GetStrings: TStrings; override;
procedure SetStrings(const Value: TStrings); override;
end;
procedure Register;
implementation
uses Controls;
procedure Register;
begin
RegisterPropertyEditor(TypeInfo(string), TControl, 'Hint', THintProperty);
end;
function THintProperty.GetStrings: TStrings;
begin
ss := TStringList.Create;
ss.Text := GetStrValue;
Result := TStrings(ss);
end;
procedure THintProperty.SetStrings(const Value: TStrings);
var l : integer;
s : string;
begin
s := value.Text;
l := Length(s);
if (l > 0) then SetLength(s, l-2); // чтобы не добавляла в конце пустую строку
SetStrValue(s);
ss.Destroy;
end;
end.
Источник: www.delphikingdom.ru
|