Application179 전체 컨트롤 속성 변경 for i := 0 To ComponentCount - 1 do begin if Components[i] is TLabel Then TLabel(Components[i]).Visible := False; end; 2008. 7. 24. 작업표시줄에서 표시 안하기 Application.Showmainform:=false; 써비 wrote: > Forms, > Unit1 in 'Unit1.pas' {Form1}, > Windows; > > {$R *.RES} > var > ExtendedStyle : Integer; > begin > Application.Initialize; > ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE); > SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW,$s:LF> AND NOT WS_EX_APPWINDOW); > Application.CreateForm(TForm1, Form1.. 2008. 7. 24. 파일 목록 구하기 procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + faHidden; if CheckBox3.Checked then FileAttrs := FileAttrs + faSysFile; if CheckBox4.Checked then FileAttrs := FileAttrs + faVolumeID; if CheckBox5.Checked.. 2008. 7. 24. 이미지 프린트 하기 이번에 올리는 자료는 지난번 이미지 프린트에대한 소스를 조금 수정했습니다... 바뀐부분만 간단히 설명드리겠습니다. 우선 Parameter가 추가 되었습니다... 만일 아래와 같이 호출한다면 ImagePrint(30, //용지에서 왼쪽의 기본 여백을 30mm로 한다는 것입니다. image1, //요건 그냥 TImage Object입니다. 50, //이미지를 용지에 출력할때 용지상의 폭입니다. //단위는 mm이구요.. 80, //요건 길이 입니다. False); //Stretching시 이미지 기준이면 True입니다. 별거 아니지만 고마움의 표시로 생각해 주세요.... procedure ImagePrint(tX: Integer; Ti: TImage; pX, pY: Integer; Balances: Boole.. 2008. 7. 24. 이전 1 ··· 40 41 42 43 44 45 다음