ورود

View Full Version : سوال: حذف كردن فيلدي با انتخاب روي DBGride با دكمه Delet كيبورد


mahdisam
پنج شنبه 24 اردیبهشت 1388, 09:03 صبح
من مي خوام بدون اينكه از باتن استفاده كنم و يا از دكمه هاي navigator استفاده كنم بر روي دي بي گريد فيلد دلخواه را انتخاب كنم و با دكمه Delete روي كيبورد آن را حذف كنم و قبل آن از من تأييد و يا عدم تأييد حذف آن فيلد را به من بدهد .
خيلي ممنون مي شم كه كد آن را بنويسيد .

خدا خيرتون بده
يك در دنيا و صد در آخرت به شما عنايت بفرمايد .
سعید صابری
پنج شنبه 24 اردیبهشت 1388, 09:52 صبح
سلام
dbgrid خودش دارد كليد shift +delete پيغام تاييد هم ازت م پرسه اما اگه مي خواي از كليد DELETE استفاده كنيد در رويداد KeyDown از Dbgride كد زير بنويس در ضمن نگفته بودي كانكشنت به ديتابيس چيه من با adtable برات نوشتم

if key = VK_DELETE then
if MessageDlg('','',mbOKCancel,0)=ID_OK then
ADOTable1.Delete
Modernidea
جمعه 25 اردیبهشت 1388, 11:02 صبح
همینه که گفته شد درسته ولی یه مشکل کوچیکی داشت که درستش کردم.

if key = VK_DELETE then
if MessageDlg('آیا این رکورد حذف شود؟',mtWarning,mbOKCancel,0)=1 then
Ado1.Delete;

البته این پیغام دارای کلید هایی با متن انگلسی است که اگر لازم باشه میتونی یونت پیغام فارسی رو در برنامت اظافه کنی و آن را فراخوانی کنی.
توضیح بیشتر خواسی درخدمتم.
--یاهوو--
babak_delphi
جمعه 25 اردیبهشت 1388, 21:31 عصر
البته این کد رکورد جاری را حذف می کند نه محتوای فیلد جاری را.