원래 클래스를 수정하지 않고 코드를 클래스에 삽입하는 방법은 무엇입니까?

Question

필자는 Delphi 시각적 컨트롤의 모서리를 둥글게 만드는 루틴을 만들었습니다.

지금 내가 뭘 원하는 TMemo, TEdit 및 TPanel 같은 모든 시각적 객체가 양식 작성에 그들 모두를위한 함수를 호출하지 않고 둥글게되어 제공되도록한다.

은 어떻게 (양식 장치) 내 코드에서 이러한 클래스 각각에 대한 작성 방법의 확장, 그래서 그들이 클래스와 다른 단위의 정상적인 동작의 이름을 유지해야합니까?

procedure RoundCornersOf(Control: TWinControl) ; 
var 
    R: TRect; 
    Rgn: HRGN; 
begin 
    with Control do 
    begin 
    R := ClientRect; 
    rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ; 
    Perform(EM_GETRECT, 0, lParam(@r)) ; 
    InflateRect(r, - 4, - 4) ; 
    Perform(EM_SETRECTNP, 0, lParam(@r)) ; 
    SetWindowRgn(Handle, rgn, True) ; 
    Invalidate; 
    end; 
end; 

Answer 1

은 구조 또는 해킹, 런타임에 클래스를 수정 예를 Replacing a component class in delphi 및 Changing component class at run-time on demand에 대한보고가 존재한다. 그러나 내가 이해하는대로, 발생하는 모든 컨트롤 유형에 대해 별도의 유형을 선언해야합니다.

대안은 Controls 및 ControlCount 속성을 사용하여 폼의 생성 후 모든 컨트롤을 통해 횡단하는 것입니다

public 
    procedure AfterConstruction; override; 
    end; 

procedure ModifyControls(Window: TWinControl); 
var 
    I: Integer; 
begin 
    for I := 0 to Window.ControlCount - 1 do 
    if Window.Controls[I] is TWinControl then 
    begin 
     ModifyControls(TWinControl(Window.Controls[I])); 
     RoundCorners(TWinControl(Window.Controls[I])); 
    end; 
end; 

procedure TForm1.AfterConstruction; 
begin 
    inherited AfterConstruction; 
    ModifyControls(Self); 
end; 

그러나 당신이 생각하는 것 다음 추가를 어떻게 제어 레크리에이션, 조심. 예를 들어, 편집의 BorderStyle 속성을 변경하면 편집을 다시 작성하여 수정 내용을 취소 할 수 있습니다. 이 경우 수정을 다시 실행하여 모두 추적 할 수 있도록하십시오.