И още едно въпросче за TApplication

3 отговора 0 прегледа
#1

И още едно въпросче за TApplication

В designtime когато обходя application.components ми връща не само прозорците от моя проект, а и тези от IDE-то на Delphi. Като си стартирам проекта - всичко е ок.
Това което правя не само че се ползва от различни потребители, а и на различни езици, та затова искам да си променям лесно нещата. Не успях да намеря сносен multilanguage компонент и си направих мой, но (както и при други подобни) трябва поне веднъж да си стартираш проекта, за да си напълниш речника...
Та, как в designtime да разбера кой прозорец е "мой" и кой не?

Отговор
в отговор на Kikimorcho #2

Re: И още едно въпросче за TApplication

Направи си една "базова" форма - твой наследник на TForm, като всички твои форми в приложението ти го наследяват него, а не директно TForm. По този начин ще можеш лесно да си ги различаваш, а и функциите за превода на интерфейса ще можеш да си ги сложиш там и всяка форма да си се превежда сама себе си.

Отговор
в отговор на andrew_nikoloff #3

Re: И още едно въпросче за TApplication

Мерси за идеята, не бях се сетил...
Малко work-around става, но ми върши даже по-добра работа... Жалко само, че компонентчето ми ще търси задължително TKikimorchoForm :)

Отговор
в отговор на Kikimorcho #4

Re: И още едно въпросче за TApplication

що не си имплементираш IKikimorchoForm = interface
и после:

for I := 0 to Screen.FormCount - 1 do
If Supports(Screen.Forms, IKikimorchoForm) then
begin
(Screen.Forms as IKikimorchoForm).Pravitova;
....
(Screen.Forms as IKikimorchoForm).PraviOnova;
end;

Отговор