fontdialog 및 RichEdit을 사용하여 활성 컨트롤 변경

Question

나는 Delphi v7에서 Delphi XE2로 마이그레이션했습니다. 두 개의 dbrichedit 및 dbedit 컨트롤을 사용하여 fontdialog를 사용하려고합니다. 이 작업을 수행하는 데 사용한 코드는 Delphi v7에서 제대로 작동하지만 XE2에서는 작동하지 않습니다. 나는 그것이 간과 한 간단한 것임에 틀림 없다고 생각합니다. 나는 일주일 이상 문제를 해결하기 위해 노력해 왔지만 생각하기에는 너무 가깝다.

텍스트를 조작하기 위해 button을 사용하여 fontdialog 및 apply 이벤트를 실행했습니다.

코드 :

if ActiveControl is TDBEdit then 
    with ActiveControl as 
    TdbEdit do 
    Font.Assign(TFontDialog(Sender).Font) 
else if ActiveControl is TDBRichEdit then 
    with ActiveControl as TDBRichEdit do 
    SelAttributes.Assign(TFontDialog(Sender).Font) 

아무런 변화가 없습니다.

간과 한 form1에 대한 속성이 있습니까?

Answer 1

Vcl.Dialogs.TFontDialog.OnApply 이벤트가 발생하면 ActiveControl이 현재 활성화 된 컨트롤 (이 경우 누른 키)을 반환하기 때문에 변수에 ActiveControl 속성의 값을 저장해야합니다. 이 샘플 FontDialogOnApply (Delphi)을 확인하십시오.