کامپوننتهای کاربردی

[Mahmood_M]

راستش ، شرمنده من کامپوننت زیاد ندارم ولی چندتا تا بع و کد به درد بخور می تونم بزارم ...
اگه موافق نیستید لطفا بهم بگید !!
1. نمایش یک فرم درون یک اسکرول باکس

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2.Parent := ScrollBox1;

  Form2.Show;

end;

2. نشون دادن هر نوع عکس بر روی TImage :

uses axCtrls

    ...procedure TForm1.Button1Click(Sender: TObject);

var

  OleGraphic: TOleGraphic;

  fs: TFileStream;

begin

  try

    OleGraphic := TOleGraphic.Create;

    fs         := TFileStream.Create('C:\...\test.gif', fmOpenRead or fmSharedenyNone);

    OleGraphic.LoadFromStream(fs);

    SampleImage.Picture.Assign(OleGraphic);

  finally

    fs.Free;

    OleGraphic.Free

  end;

end;

3. آیا پوشه مورد نظر خالی است ؟
اینم کدش :

function DirectoryIsEmpty(Directory: string): Boolean;

var

  SR: TSearchRec;

  i: Integer;

begin

  Result := False;

  FindFirst(IncludeTrailingPathDelimiter(Directory) + '*', faAnyFile, SR);

  for i := 1 to 2 do

    if (SR.Name = '.') or (SR.Name = '..') then

      Result := FindNext(SR) <> 0;

  FindClose(SR);

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

  if DirectoryIsEmpty('C:\test') then

    Label1.Caption := 'empty'

  else

    Label1.Caption := 'not empty';

end;