И още едно въпросче за TApplication
3 отговора
0 прегледа
И още едно въпросче за TApplication
В designtime когато обходя application.components ми връща не само прозорците от моя проект, а и тези от IDE-то на Delphi. Като си стартирам проекта - всичко е ок.
Това което правя не само че се ползва от различни потребители, а и на различни езици, та затова искам да си променям лесно нещата. Не успях да намеря сносен multilanguage компонент и си направих мой, но (както и при други подобни) трябва поне веднъж да си стартираш проекта, за да си напълниш речника...
Та, как в designtime да разбера кой прозорец е "мой" и кой не?
Това което правя не само че се ползва от различни потребители, а и на различни езици, та затова искам да си променям лесно нещата. Не успях да намеря сносен multilanguage компонент и си направих мой, но (както и при други подобни) трябва поне веднъж да си стартираш проекта, за да си напълниш речника...
Та, как в designtime да разбера кой прозорец е "мой" и кой не?
Re: И още едно въпросче за TApplication
Направи си една "базова" форма - твой наследник на TForm, като всички твои форми в приложението ти го наследяват него, а не директно TForm. По този начин ще можеш лесно да си ги различаваш, а и функциите за превода на интерфейса ще можеш да си ги сложиш там и всяка форма да си се превежда сама себе си.
Re: И още едно въпросче за TApplication
Мерси за идеята, не бях се сетил...
Малко work-around става, но ми върши даже по-добра работа... Жалко само, че компонентчето ми ще търси задължително TKikimorchoForm :)
Малко work-around става, но ми върши даже по-добра работа... Жалко само, че компонентчето ми ще търси задължително TKikimorchoForm :)
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;
и после:
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;