Jump to content

Локализация серверной части


pmalut

Recommended Posts

Конечно, это же dfm

 

uniGUIServerForm.dfm

 

Или так

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
var i,j:integer;
begin
 for I := 0 to Screen.FormCount-1 do
  begin
   for j:=0 to Screen.Forms.ComponentCount-1 do
    begin
      if GetPropInfo(Screen.Forms.Components[j],'Caption')<>nil then
       SetStrProp(Screen.Forms.Components[j],'Caption','Тест');
    end;
 
  end;
 
end;
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...