CreateEditor

← →
Polevi © (2004-08-02 12:24) [0]

необходимо изменить поведение Inplace editor"a в TValueListEditor

function TValueListEditor.CreateEditor: TInplaceEdit;
begin
FEditList := TInplaceEditList.Create(Self);
EditList.DropDownRows := FDropDownRows;
EditList.OnEditButtonClick := FOnEditButtonClick;
EditList.OnGetPickListitems := EditListGetItems;
Result := FEditList;
end;

FEditList в private
property EditList: TInplaceEditList read FEditList;

ваши предложения, господа
мне кроме хакерства ничего в голову не лезет

← →
Sandman25 © (2004-08-02 12:28) [1]

protected
function CreateEditor: TInplaceEdit; override;

← →
Polevi © (2004-08-02 12:32) [2]

спасибо, друг
а что делать с полем FEditList будем

← →
Sandman25 © (2004-08-02 12:39) [3]

Насколько я разобрался, можно обойтись и без него.
Только надо будет перекрывать еще кучу методов, использующих FEditList.
Например, чтобы
function GetEditStyle(ACol, ARow: Longint): TEditStyle; override;
использовала уже Ваше поле, а не унаследованный FEditList

← →
Polevi © (2004-08-02 12:40) [4]

это вам кажется нормальным ?

← →
Polevi © (2004-08-02 12:41) [5]

procedure TValueListEditor.SetDropDownRows(const Value: Integer);
begin
FDropDownRows := Value;
if Assigned(EditList) then
EditList.DropDownRows := Value;
end;

что в этом месте прикажете перекрывать ?

[4] Polevi © (02.08.04 12:40)

Да, вполне. Бывает, что приходится целую иерархию заводить.

[5] Polevi © (02.08.04 12:41)

Ничего :)

function TValueListEditor.CreateEditor: TInplaceEdit;
begin
FEditList := TInplaceEditList.Create(Self);
EditList.DropDownRows := FDropDownRows;
...
property DropDownRows: Integer read FDropDownRows write SetDropDownRows default 8;

Если перекрыт CreateEditor, причем без вызова inherited, то SetDropDownRows не используется.

с бубном я плясать умею, не надо меня учить :)
просто если мой пост увидит вася из борланда, который написал этот sealed class - пусть ему будет стыдно :-)

Понятно :)

CreateEditor Найти похожие ветки