جهت پيغام فارسي پس از فشردن دكمه هاي DBNavigator

[mahdisam]

من مي خوام پس از فشردن دكمه Delete از DBNavigator به من پيغام فارسي حذف آن را بده .

[shahrokhkian]

روی BeforeAction این کد را بنویس

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if Button=nbDelete then
ShowMessage('پیغام موردنظر شما');
end;
موفق باشید.

[tefos666]

سلام - یه dbnavigator رو فرمت بزار و visible اون رو false کن حالا یه دکمه هم رو فرمت بزار و روش دابل کلیک کن و این کد رو بنویس



if messagedlg('آیا مطمئن هستید ؟ ', mtinformation , [mbok,mbno],0)=mryes then
dbnavigator1.btnclick(nbdelete);


ضمنا خاصیت show delete خود navigator رو هم false کن تا پیام حذف خود دلفی رو نده