Delphi에서 VCL로 속성을 노출하는 VCL

Question

EnumAllWindowsOnActivateHint는 TApplication을위한 속성이며 도움에 따라 C++ Builder - Codegear 2007에 공개되어야합니다.

내 어려움은이 응용 프로그램을 C++에 노출 시키거나 그렇지 않으면 true로 설정해야한다는 것입니다.

그래서 이러한 목표를 달성하기 위해 다른 도로가있다, 나는 아마 시도하고 한 가지 잘못했는지 : Forms.pas에 EnumAllWindowsOnActivateHint 노출

1. . 그러나이 변경 사항을 응용 프로그램/VCL에 포함시키는 데 어려움을 겪고 있습니다. 나는 VCL을 다시 컴파일 할 때 읽은 모든 것을 시도했다. 아무것도 효과가 없습니다.
2. 수있는 델파이 코드를 C++에서 속성에 액세스 할 수 있습니다.
3. 다른 건 없나요?

최신 버전의 Codegear로 업그레이드 할 수 없습니다.이 경우 응용 프로그램이 의존하는 RTTI 동작이 중단됩니다.

제안 사항? 솔루션?

Answer 1

TApplication::EnumAllWindowsOnActivateHint 진짜 C++로 소개되지 않았다 - C에서 ++ 빌더 2007, 그것은 대신 Class Helper의 속성으로 구현 된 2009 년 C++ 빌더까지 접근 특성 :

TApplicationHelper = class helper for TApplication 
private 
    procedure SetEnumAllWindowsOnActivateHint(Flag: Boolean); 
    function GetEnumAllWindowsOnActivateHint: Boolean; 
    ... 
public 
    property EnumAllWindowsOnActivateHint: Boolean read GetEnumAllWindowsOnActivateHint write SetEnumAllWindowsOnActivateHint; 
    ... 
end; 

Class Helpers이 있습니다 C++에서 액세스 할 수없는 Delphi 관련 기능. 따라서 해결 방법을 사용해야합니다. EnumAllWindowsOnActivateHint 속성에 액세스 C 스타일의 기능을 노출하는 별도의 일단의 .pas 파일을 만든 다음 C++ 프로젝트에 그 일단의 .pas 파일을 추가 :

AppHelperAccess.pas :

unit AppHelperAccess; 

interface 

function Application_GetEnumAllWindowsOnActivateHint: Boolean; 
procedure Application_SetEnumAllWindowsOnActivateHint(Flag: Boolean); 

implementation 

uses 
    Forms; 

function Application_GetEnumAllWindowsOnActivateHint: Boolean; 
begin 
    Result := Application.EnumAllWindowsOnActivateHint; 
end; 

procedure Application_SetEnumAllWindowsOnActivateHint(Flag: Boolean); 
begin 
    Application.EnumAllWindowsOnActivateHint := Flag; 
end; 

end. 

가 컴파일됩니다

, C++ .hpp 헤더 파일이 생성되어 C++ 코드가 함수를 호출하는 데 사용할 수 있습니다. 예 :

#include "AppHelperAccess.hpp" 

void EnableEnumAllWindowsOnActivateHint() 
{ 
    Application_SetEnumAllWindowsOnActivateHint(true); 
} 

void DisableEnumAllWindowsOnActivateHint() 
{ 
    Application_SetEnumAllWindowsOnActivateHint(false); 
} 

void ToggleEnumAllWindowsOnActivateHint() 
{ 
    bool flag = Application_GetEnumAllWindowsOnActivateHint(); 
    Application_SetEnumAllWindowsOnActivateHint(!flag); 
}