VCL 애플리케이션에서 TControl.StyleElements 사용/미사용

 

VCL 애플리케이션에서 TControl.StyleElements 사용/미사용

 

델파이 스타일 제외 시키기

 

VCL 애플리케이션 생성

 

Vcl.Controls.TControl.StyleElements 를 사용하려면 

VCL Forms Application 을 만들어야 합니다 . 

 

그렇게 하려면 다음 단계를 따르세요.

 

선택 파일> 새로 만들기> VCL Forms 응용 프로그램 - 델파이

VCL 양식 디자이너 를 열려면 프로젝트 관리자 에서

.pas 단위를 두 번 클릭 한 다음 코드 편집기의

아래쪽 가장자리에 있는 디자인 탭 을 클릭합니다 .

구성 요소 추가 및 설정 조정

애플리케이션을 실행하기 전에 다음을 수행해야 합니다.

 

드롭 이 TButton 로부터 도구 팔레트를 폼에.

양식의 아무 곳이나 클릭 하고 이벤트 탭 의

Object Inspector 로 이동하여 양식 에 대한

OnCreate 이벤트 핸들러를 추가합니다 .

 

TButton을 두 번 클릭 하고 버튼에 대한

OnClick 이벤트 핸들러를 추가 합니다.

더 눈에 띄는 효과를 보려면 Object Inspector 로

이동 하여 Font 속성을 확장 하고 버튼 글꼴의 크기를

확대 할 수 있습니다 .

다음으로, 코드 편집기 의 아래쪽 가장자리에 있는 

코드 탭으로 이동하고 델파이에서 단위 의 용도에

Vcl.Styles 및 Vcl.Themes 를 추가 합니다.

프로젝트 > 옵션 > 응용 프로그램 > 모양으로 이동하여 

거기에 있는 스타일을 확인하십시오.

 

 

코드 작성

OnCreate 이벤트 핸들러에 다음 코드를 추가 합니다.

 

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.StyleElements := []; //All StyleElements are disabled.
Button1.Font.Color := clGreen;
end;

void __fastcall TForm4::FormCreate(TObject *Sender)
{
Button1->StyleElements = TStyleElements();//All StyleElements are disabled.
Button1->Font->Color = clGreen;
}

 

Add the following code to the Button1Click event handler:

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.StyleElements := [seClient, seBorder, seFont];
  Button1.Font.Color := clBlue;
end;

 

void __fastcall TForm4::Button1Click(TObject *Sender)
{
Button1->StyleElements = TStyleElements(seFont + seClient + seBorder);
Button1->Font->Color = clBlue;
}

 

애플리케이션 실행

프로젝트를 실행 합니다. 프로젝트의 메인 창이 표시됩니다. 

버튼에 TForm1.FormCreate 메서드 에서 설정된 기본 스타일이 있는지 확인합니다 .

 

Button1.StyleElements := [];

 

버튼을 클릭한 후 현재 스타일 설정을 덮어쓸 수 없기 때문에 

Button1Click 메서드 에서 버튼 글꼴 색상 이 필요에 따라 

파란색 으로 변경되지 않습니다 .

 

기본 스타일 설정에도 동일하게 적용됩니다. 

구성 요소의 경우 이러한에만 양식 작성 방법의 실행시에 덮어 

쓸 수 StyleElements의 속성이 설정되어 seClient .