xjw100
 
灌水科科长 
  
UID 1476 
Digest Posts 
0 
Credits 134 
Posts 73 
点点分 134  
Reading Access 10 
Registered 2005-12-13 Location 桂林 
Status Offline
  
 | 
| 
 |  
| 
 桌面刷新的问题,我发现是用了LockWindowUpdate锁定窗口然后解锁引起桌面刷新的。 
procedure TCnCustomLangManager.TranslateForm(AForm: TCustomForm); 
begin 
  LockWindowUpdate(AForm.Handle); 
  try 
    if FUseDefaultFont and Assigned(FLanguageStorage) then 
    begin 
      with FLanguageStorage do 
      begin 
        if FontInited then 
        begin 
        {$IFDEF DEBUG} 
          CnDebugger.LogMsg('LangManager: FontInited. '); 
        {$ENDIF DEBUG} 
          if CurrentLanguageIndex <> -1 then 
          begin 
            AForm.Font.Name := DefaultFont.Name; 
            AForm.Font.Size := DefaultFont.Size; 
            AForm.Font.Charset := DefaultFont.Charset; 
          end; 
        end; 
      end; 
    end; 
    TranslateComponent(AForm, AForm.ClassName); 
  finally 
    LockWindowUpdate(0); 
  end; 
end; 
 |  
 
 |  
  |