Скачать: CL | DM;

Мгновенное изменение   Найти похожие ветки 

← →
capkoh ©   (2005-08-30 14:20) [0]

Как можно сделать реальное изменение текстового свойства, как Text в TEdit? Т.е. текст на компоненте изменяется сразу же при введении очередного символа в поле свойства.

Посмотрел как сделано в TControl:

property Caption: TCaption read GetText write SetText stored IsCaptionStored;

procedure TControl.SetText(const Value: TCaption);
begin
 if GetText <> Value then SetTextBuf(PChar(Value));
end;

procedure TControl.SetTextBuf(Buffer: PChar);
begin
 Perform(WM_SETTEXT, 0, Longint(Buffer));
 Perform(CM_TEXTCHANGED, 0, 0);
end;

Но, ведь, SetText будет выполняться не сразу при вводе текста...

---

← →
Юрий Зотов ©   (2005-08-30 15:03) [1]

Это делается не самим компонентом, а редактором свойства (что и естественно, потому что этот механизм относится исключительно к design-time). Если метод GetAttributes редактора свойства включает флаг paAutoUpdate, то при каждом изменении свойства сразу же и автоматически вызывается его метод SetValue.

Для строкового свойства можно и не писать свой редактор, а просто объявить свойство с типом TCaption (а не просто string). Тогда автоматически подключится уже готовый редактор TCaptionProperty (что и использовано в TControl для свойства Caption).

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c