Замена в Run-Time

← →
Valera (2005-07-22 10:45) [0]

Доброго времени суток. Я создал наследника TEdit: TMyEdit = class(TEdit). Зарегистрировал в палитре все работает. Возможно ли при работающей программе (моей) заменить Edit-ы на мой TMyEdit. Я понимаю можно в design, но очень надо. Заранее благодарю.

← →
evvcom © (2005-07-22 11:09) [1]

> Возможно ли при работающей программе (моей) заменить Edit-ы
> на мой TMyEdit. Я понимаю можно в design, но очень надо

Хотелось бы узнать, почему в design-time не устраивает это сделать?

← →
Fay © (2005-07-22 13:13) [2]

2 Valera (22.07.05 10:45)
Замена - это что, где и когда?
Получите, блин, хрустальную сову досрочно 8)

← →
ЮЮ © (2005-07-25 03:19) [3]

Пробегмсь по Form.Controls и как найдешь TEdit, создавай TMyEdit с теми же свойствами, что и у "покойнмчка" (кроме Name) м затем убей его.

З.Ы. При условии, что в коде не используется код тмпа Edit1.<сыойство>, где Edit1 - компонет, положенный в дизайне, ибо ссылка будет битая. тогда придется

<запомнить св-ва Edit1>
Edit1.Free;
Edit1 := TMyEdit.Create(Self);
<востановить св-ва Edit1>
и так для каждого TEdit на форме.

Не проще сделать в IDE "заменить" "TEdit" на "TMyEdit" и тоже самое в dfm и обойтись без геморроя?

← →
Юрий Зотов © (2005-07-25 03:43) [4]

Существуют текстовые редакторы, позволяющие делать поиск и замену в файлах. Натравливаем такой редактор на *.pas и *.dfm (при выгруженной Delphi) и меняем строку "TEdit" на "TMyEdit" (как целое слово). Остается только перекомпилировать проект.

А если установить GExperts, то это вообще становится элементарной задачей в DesignTime.

var T: TEdit;
begin
T:=TMyEdit.Create(Edit1.Owner);
T.Assign (Edit1);
Edit1.Free;
end;

PS. В большинстве случаев этот вариант сработает, но учти, что будут вызовы метода Notification, и если, например, Edit1 - это для кого-то FocusControl, то получиться нехорошо.

Замена в Run-Time Найти похожие ветки