Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

– Mike Scott

Хитрость вызова редактора свойств

Я пишу редактор для свойства TStrings. В зависимости от значений других свойств, я хотел бы показывать или свой редактор свойства, или редактор свойства TStringListProperty, заданный по умолчанию, но я не знаю как передавать управление TStringListProperty...

Сделайте ваш редактор свойства наследником TStringListProperty (добавьте STREDIT в список используемых модулей) и согласно вашим обстоятельствам вызывайте метод предка Edit:

Unit MyEditor;

interface

uses STREDIT;

type TMyStringListProperty = class(TStringListProperty)

 procedure Edit; override;

end;

implementation

procedure TMyStringListProperty.Edit;

begin

 if {

какие-то условия } then { что-то делаем }

 else inherited Edit;

end;

end.

– Pat Ritchey

Как убрать публичное свойство компонента/формы из списка видимых/редактируемых свойств в Инспекторе Обьектов?

Nomadic советует:

Из TForm property не убиpал, но из TWinControl было дело. А дело было так:

interface

type TMyComp = class(TWinControl)

 …

end;

procedure Register;

implementation

procedure Register;

begin

 RegisterComponents('MyPage', [TMyComp]);

 RegisterPropertyEditor(TypeInfo(String),TMyComp,'Hint',nil);

end;

[ и т.д.]

Тепеpь property 'Hint' в Object Inspector не видно. Рад, если чем-то помог. Если будут глюки, умоляю сообщить. Такой подход у меня сплошь и pядом.

Свойство FileName в невизуальном компоненте

Следующий код взят из dsgnintf.pas (иногда стоит покопаться в файлах!) для свойства TMPLayer.filename,

с помощью C.Calvert…

В заголовке модуля компонента…

TFileNameProperty = class(TStringProperty)

public

 function getattributes: TPropertyattributes; override;

 procedure Edit; override;

end;

добавьте функцию регистрации…

RegisterPropertyEditor(Typeinfo(String), TMyComponent, 'Filename', TFileNameProperty);

и код…

function TFileNameProperty.GetAttributes;

begin

 Result := [paDialog];

end;

Procedure TFilenameProperty.edit;

var

 MFileOpen: TOpenDialog;

begin

 MFileOpen := TOpenDialog.Create(Application);

 MFileOpen.Filename := GetValue;

 MFileOpen.Filter := 'Правильный тип файлов|*.*'; (* Поместите здесь ваш собственный фильтр...*)

 MFileOpen.Options := MFileOpen.Options + [ofPathMustExist,ofFileMustExist];

 try

if MFileOpen.Execute then SetValue(MFileOpen.Filename);

 finally

MFileOpen.Free;

 end;

end;

Записи

Пример переменной записи

В Delphi 2.0 я пытаюсь прочесть текстовый файл и получаю проблему. Текстовый файл, который я хочу прочесть, имеет записи фиксированной длины, но в самих записях могут располагаться различные типы с различной длиной, и оканчиваться в различных позициях, в зависимости от типа.

Файл выглядит примерно так:

TFH.......<First record type, первый тип записи>

TBH.......<Second record type, второй тип записи>

TAB........<Third record type, третий тип записи>

TAA........<Fourth record type, четвертый тип записи>

Вы можете поймать больше одного зайца в случае объявления переменной записи, но если сделаете это правильно.

Type

 TDataTag = Array [1..3] of Char;