بعض افكر الجميل في دلفي

كيفية ادخال الصورة من السكنر عن طريق الدلفي

اذهب الى component ثم الى import activX control

ثم ومن القائمة اختر ادات تحكم بإلتقاط الصور ، تجد ( Timgscan)

اضغط install

ثم اذهب في قائمة ادوات دلفي الى ActivX

نزلها على الفورة ، اضغط عليها ضغطتين سريعتين

ستجد-- scan to : اجعلها -- display and file

و file type أجعل امتدادها Bmp ستطيع قراءة الصورة من خلال دلفي ..

ضع Image وحدد خاصية الستريتش streatch الى true

ضع زر ..button واكتب تحته

ImgScan1.Image:='c:\tmp.bmp';

ImgScan1.StartScan ;

Image1.Picture.LoadFromFile('c:\tmp.bmp');;

-----------------------

:rolleyes:

يقبل الارقم فقط والايقبل الحروف

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #18]) then
    Key := #13;
end;

وهذا يقبل الحروف الكبير

If not (Key in ['A'..'Z', #18]) then
    Key := #13;
end;

وهذا يقبل الحروف الصغير

If not (Key in [' a'..'z', #18]) then
    Key := #13;
end;

--------------------------------------

:rolleyes:

تحريك الفورم

type
  TForm1 = class(TForm)

    procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if  M.Result = htClient then
    M.Result := htCaption;
end;

end.

---------------------------------------

تهية القرص المرن A

const
  SHFMT_ID_DEFAULT = $FFFF;
  SHFMT_OPT_QUICKFORMAT = 0;
  SHFMT_OPT_FULLFORMAT = 1;
  SHFMT_OPT_SYSONLY = 2;

  SHFMT_ERROR = -1;
  SHFMT_CANCEL = -2;
  SHFMT_NOFORMAT = -3;


var
  Form1: TForm1;

implementation

{$R *.dfm}
function SHFormatDrive(hWnd : HWND; Drive : Word;  fmtID : Word; Options :
Word) : Longint; stdcall;
 external 'Shell32.dll' name 'SHFormatDrive';

procedure DiskFormat(Drive:Char);
var
  RetCode : Integer;
begin
  retCode:= SHFormatDrive(GetDesktopwindow,
            Ord(Upcase(Drive))-Ord('A'),
            SHFMT_ID_DEFAULT,
            SHFMT_OPT_QUICKFORMAT);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DiskFormat('A');
end;__________________

تحريك Label من اليمن الي اليسر

if Label1.Left<600 then
begin
Label1.Left:=Label1.Left+1;
end
else
Label1.Left:=-214

ارجو ان ينال اعجبكوم

موفق بارك الله فيك سيف الدين ;)

________________________________________________________________________________________

ملحوظة: رجاءا جمع هذه الحيل كلها في مشاركة واحدة قد قام مشرفنا العزيز عروة بتثبيثه: أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي :)

(h)

نعم يا سيف مشاركاتك رائعه ...

ولكن من الجيد جدا وجودها مع المشاركه المخصصه حيث سيسهل على الأخوة إيجادها .. لو تكرمت ووضعتها سيكون ممتاز جدا

نعم لقد وضعتها في المكان المخصصة

وبارك الله فيكوم

أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي

:D

مشكور على هذا المجهود

:)