Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.11;
Скачать: CL | DM;

Вниз

Доступно ли новое имя для компоненты?   Найти похожие ветки 

 
Yegorchic ©   (2005-08-18 23:28) [0]

Здравствуйте! Подскажите, как определить, доступно ли какое-то имя для компоненты. Т.е. я измения имя компоненты в run-time, и мне надо проверить ,можно ли задать такое имя или нет (не занято ли оно или ещё что). Спасибо.


 
Defunct ©   (2005-08-18 23:35) [1]

1. try-except
2. пробежаться по списку всех компонент контейнера (Components[i])


 
Yegorchic ©   (2005-08-18 23:40) [2]

А... точно! Совсем забыл про Components[i]...Спасибо.


 
Leonid Troyanovsky ©   (2005-08-19 09:00) [3]


> Yegorchic ©   (18.08.05 23:28)  
> Здравствуйте! Подскажите, как определить, доступно ли какое-то
> имя для компоненты. Т.е. я измения имя компоненты в run-time,
> и мне надо проверить ,можно


VCL Reference
TComponent.ValidateRename

--
Regards, LVT.


 
Турист   (2005-08-19 22:37) [4]

>Leonid Troyanovsky ©   (19.08.05 09:00) [3]

procedure TComponent.ValidateRename(AComponent: TComponent;
 const CurName, NewName: string);
begin
 if (AComponent <> nil) and not SameText(CurName, NewName) and
   (AComponent.Owner = Self) and (FindComponent(NewName) <> nil) then
   raise EComponentError.CreateResFmt(@SDuplicateName, [NewName]);
 if (csDesigning in ComponentState) and (Owner <> nil) then
   Owner.ValidateRename(AComponent, CurName, NewName);
end;




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

Текущий архив: 2005.09.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
14-1124285829
Piter
2005-08-17 17:37
2005.09.11
Забавный эффект :)


2-1123506895
Shamansky
2005-08-08 17:14
2005.09.11
Подсчет заглавных букв


6-1116770820
Chery
2005-05-22 18:07
2005.09.11
Работа с Borland Socket по Интернету, переадресация.


3-1122888758
Андрей Жук
2005-08-01 13:32
2005.09.11
Нечеткий поиск для Firebird


14-1124089417
Petrovski
2005-08-15 11:03
2005.09.11
Развод на международном уровне?