양식을 만들려고 시도합니다.

Question

제가 진행중인 프로젝트는 여러 가지 양식으로 구성되어 있습니다. 그들은 주로 mainform에서 호출됩니다. 응용 프로그램 이름은 모든 formcaptions에 있습니다.

이제 응용 프로그램의 다른 "버전"에는 캡션이 다른 응용 프로그램 이름으로 변경되어야합니다. 그러나 이것은 조건부입니다. 나는 formcreate에서

Screen.OnActiveFormChange := ScreenOnActiveFormChange; 

을 결합하고하는 절차를 만들고 있었다 해낸

.

procedure TFormMAIN.ScreenOnActiveFormChange(Sender: TObject); 
begin 
    if Newversion then begin 
    if assigned(screen.activeform) then begin 
     Screen.ActiveForm.Caption := SwapFormCaption(Screen.ActiveForm.Caption); 
    end; 
    end; 
end; 

이것은 95 %의 경우에 잘 작동합니다. 그러나 그 5 %에서 양식이 너무 빨리 보입니다. 캡션이 업데이트되고 창이 닫히기 전에 창이 그려집니다. 그러나 캡션에는 이미 새로운 가치가 있습니다. 해결 방법은 1 픽셀 씩 폼 높이를 높이거나 낮추고 올바르게 표시하는 것입니다. form.repaint가 여기 도움이되지 못했습니다. 이것은 일을 오히려 못생긴 방법입니다.

내가 정말로 원하는 것은 정품 인증 대신 하위 양식 생성을 가로채는 것입니다. 그것에 관한 자료를 찾으려고했지만 성공하지 못했습니다.

Answer 1

창 API를 사용해 보셨습니까?

SetWindowText(Screen.ActiveForm.Handle,PChar(SwapFormCaption(Screen.ActiveForm.Caption)); 

편집 : 1 개 제안 : 창 메뉴 바

DrawMenuBar(Screen.ActiveForm.Handle);