+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اثبت هذا المكون في دلفي 7 U_Usb (/showthread.php?tid=6522)
كيف اثبت هذا المكون في دلفي 7 U_Usb - amine0209 - 31-10-2014
السلام عليكم و رحمة الله و بركاته
لقد حملت unit لمكون يكشف ادخال وا خراج usb لكني لم استطع تثبيته
كيف اثبت هذا المكون في دلفي 7 U_Usb - بن دهيبة - 31-10-2014
وعليكم السلام ورحمة الله تعالى وبركاته.
كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,u_usb;
type
TForm1 = class(TForm)
procedure usbin(sender:tobject);
procedure usbout(sender:tobject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
test: tcomponentusb;
implementation
{$R *.dfm}
procedure TForm1.usbin(sender: tobject);
begin
showmessage('تم ادخال الفلاش ديسك');
end;
procedure TForm1.usbout(sender: tobject);
begin
showmessage('تم اخراج الفلاش ديسك');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
test:=tcomponentusb.create(self);
test.OnUSBArrival:=usbin;
test.OnUSBRemove:=usbout;
end;
end.كيف اثبت هذا المكون في دلفي 7 U_Usb - amine0209 - 31-10-2014
شكرا جزيلا يا اخي بارك الله فيك
كيف اثبت هذا المكون في دلفي 7 U_Usb - bassem_43 - 04-11-2014
اخي بن دهبية ما رايك باضافة تعليمة هدم في الحدث
إقتباس :procedure tform1.formcreate(sender: Tobject);
begin
test:=tcomponentusb.create(self);
test.onusbarrival:=usbin;
test.onusbremove:=usbout;
test.destroycomponents;
end