راستش ، شرمنده من کامپوننت زیاد ندارم ولی چندتا تا بع و کد به درد بخور می تونم بزارم ...
اگه موافق نیستید لطفا بهم بگید !!
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;
پاسخ با نقل قول
rotateimage
من که نتونستم استفاده کنم.
طریقه بکار گیری از چند فانکشن در یک فانکشن :
نوشته شده توسط zolghadri
