수고 많으십니다.
날씨가 점점 더워지는거 같네요
프로그램 한개 만들라고 하는데 잘 안되서  이렇게 글올립니다.

품에 페이지컨트롤위에 스피드버튼을 SbPumok10~ 이런식으로 만들어
폼이 열릴때 글을 찍어 줄려고 하는데 안되네요

또 MskPrdDt라는 마스크에디터에 오늘 날짜를 넣을려고 하니깐
안되요 꼭 옆에 date time picker에서 선택해줘야 나오더라구요

위 두가지를 폼이 생성될때 자동으로 나오게 하고 싶은데.. 안되네요
아직 초보라서 질문이 좀 애매한가요?? -.-;;
하튼 빨리 알았으면 좋겠어요


procedure TFj000.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  MskPrdDt.Text := formatdatetime('yyyymmdd',now); <-- 이부분
  Dtpdate.date := now;

  PageControl1.ActivePageIndex := 0;
  for i := 0 to ComponentCount-1 do
    begin
    if Components[i] is TSPeedButton then
      case TSPeedButton(Components[i]).GroupIndex of
        1 : TSPeedButton(Components[i]).Font.Color := clBlue;
        2 : TSPeedButton(Components[i]).Font.Color := clNavy;
        3 : TSPeedButton(Components[i]).Font.Color := clMaroon;
        4 : TSPeedButton(Components[i]).Font.Color := clMaroon;
      end;
    end;

  // 냉동-동아
  SbPumok10.Caption := '머리'    + #13 + '6-1160-00'; <-- 이부분
  SbPumok11.Caption := '어깨'    + #13 + '6-1170-00'; <-- 이부분
  SbPumok12.Caption := '팔'       + #13 + '6-1360-00'; <-- 이부분
  SbPumok13.Caption := '다리'    + #13 + '6-1370-00'; <-- 이부분