 | |
| | | | |
Гаврилов Сергей
дата публикации 26-11-2002 15:27 Многострочный Hint
Данный модуль является компонентом со стандартной процедурой установки. Работает в среде 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.
| |
Буду признателен за замечания.
Гаврилов Сергей
ноябрь 2002г.
[TControl] [Всплывающие подсказки (Hints)]
 Обсуждение материала [ 18-10-2007 05:35 ] 7 сообщений |
|
| | |  | | |
| |
Время на сайте: GMT минус 5 часов
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
Функция может не работать в некоторых версиях броузеров.
©
При использовании любых материалов «Королевства Delphi»
необходимо указывать источник информации.
Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
Все используемые на сайте торговые марки являются
собственностью их производителей.
