델파이 강좌 기초 #4 (VCL 다루기)

VCL 기초 1

오늘 가장 많이 보게 될 Object inspector 

각 VCL 컴포넌트들의 속성을 관리하고 Events도 관리합니다. 

 

스크린샷에 Caption 프로퍼티가 Form1 인데 이걸 "메인폼" 으로 변경하면 

Form1 의 타이틀이 "메인폼" 으로 변경 되었습니다. 

각종 프로퍼티를 변경하면 다양한 효과들이 있으니 참조하시길 바랍니다. 

 

Pallate 에서 TEdit, TLabel, TButton 폼위에 올려주고 

TEdit 프로퍼티중 Text 를 빈값으로 값을 지우고

TLabel 은 AutoSize 를 False 로 만들고 Caption 값을 지웁니다. 

그리고 TButton 의 Caption 은 "라벨에 값넣기" 라고 디자인 합니다. 

 

그리고 TButton 을 더블클릭해서 Button1Click 이벤트를 코드에 추가하고 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := Edit1.Text;
end;

 

폼위에 올라간 TEdit 의 Name 이 Edit1 이고 TLabel 의 Name은 Label1 입니다. 

버튼을 클릭했을때 Edit1 의 Text를 Label1 Caption 에 넣으면 입력한 값이 Label 에 들어갑니다. 

 

Delphi 에선 값을 할당할때 := 연산자를 사용합니다. 

 

실행 결과

에디트 박스에 값을 입력하고 버튼을 클릭하면 

 

VCL 기초 2

이번에는 폼 디자이너에다 

TCombobox 를 올립니다. 

 

그리고 Combobox 를 선택하고 

Object Inspector 에서 Items 를 선택합니다. 

(TStrings) 라는 글자가 보이는데 옆에 "..." 버튼을 클릭합니다. 

 

그럼 String List Editor 라고 팝업이 뜨는데 

위처럼 입력하고 OK 버튼을 클릭합니다. 

 

그리고 실행을 하면 

콤보박스에 값이 들어가 있습니다. 

 

종료하고 콤보박스의 값이 변경될때 발생되는 이벤트에 코딩을 해주려고합니다. 

Object Inspector 두번째 Events 탭에서 

위 이미지처럼 OnChange 를 선택하고 빈칸을 더블 클릭하면 

ComboBox1Change 이벤트가 생기고 

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

end;

위 코드가 추가 됩니다. 

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  SelValue : String;
begin
  SelValue := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  ShowMessage(SelValue);
end;

 

위 코드를 설명하면 

var 로 시작 되는 부분이 Object Pascal 에서 변수를 선언하는 부분입니다. 

SelValue 라는 String (문자열) 변수를 선언해주고 

SelValue 에 콤보박스의 선택한 값을 넣어 줍니다. 

그리고 ShowMessage(SelValue) 메세지 박스에 콤보박스 선택한 값이 표시됩니다. 

 

실행결과

콤보박스의 값이 변경되면 메세지가 발생됩니다.