안녕하십니까?
Delphi의 Design Time에서 invisible Component(예:TQuery, TTable...)들은 해당 Component아래 Component Name이 보입니다(Environment Options..에서 "Show component caption"을 Check한 경우).
제가 하고 싶은 것은 Panel아래 그 Panel의 Name을 보여주고 싶은 것입니다. 물론 실행 파일에서도 보여야 되구요...
물론 Component를 만들어야 하는것은 아는데, 쩝..
어떻게 해야 할지 모르겠습니다.
아시는 분 없나요?
> 안녕하십니까?
>
> Delphi의 Design Time에서 invisible Component(예:TQuery, TTable...)들은 해당 Component아래 Component Name이 보입니다(Environment Options..에서 "Show component caption"을 Check한 경우).
>
> 제가 하고 싶은 것은 Panel아래 그 Panel의 Name을 보여주고 싶은 것입니다. 물론 실행 파일에서도 보여야 되구요...
>
> 물론 Component를 만들어야 하는것은 아는데, 쩝..
> 어떻게 해야 할지 모르겠습니다.
>
> 아시는 분 없나요?
>
>
>
실행시에 Panel 컴포넌트의 Name을 보여야 한다면
Name을 보일 Panel 컴포넌트 아래에 동적으로 Label을 만들어주면 되겠네요.
예를 들어 조금 써 보겠습니다.
외부변수로 TLabel형을 만들고,
var PLabel: TLabel;
폼이 생성될때 아래처럼..
procedure TForm1.FormCreate(...
begin
PLabel:= TLabel.Create(Self); //Label을 동적으로 생성하고
PLabel.Top:= Panel1.Top + Panel1.Height; // Panel아래에 위치
PLabel.Left:= Panel1.Left;
PLabel.Caption:= Panel1.Name; //Panel의 이름을 삽입하고,
InsertControl(PLabel);
end;
폼이 닫힐때
PLabel.Free;
해주시면 되겠네요.
바로 쓴거라 테스트는 못해 보았지만
잘 동작 될거 같습니다.
그럼..즐거운 프로그래밍 되시길~~~