delphi4arab منتديات دلفي للعرب

السلام عليكم
حاليا أبرمج برنامج لتسيير محل تجاري، لدي فكرة أريد تجسيدها
فمثلا في خانة البحث إذا اراد المستعمل ان يبحث عن اسم سلعة، اريد حينما يخبره البرنامج انه لا يوجد هذه السلعة تظهر له رسالة تخبره إذا اراد ان يضيف هذه السلعة الى قاعدة البيانات؟ وإذا إختار "ok" يقوم بإضافته بشكل عادي
وشكرا مسبقا

السلام عليكم
بالطبع تستطيع فعل ذلك بكل سهوله عبر استخدام [size=small]messagedlg[/size]

كود :
var
  buttonSelected : Integer;
begin
  // Show a custom dialog
  buttonSelected := messagedlg('Custom dialog',mtCustom, 
                              [mbYes,mbAll,mbCancel], 0);

  // Show the button type selected
  if buttonSelected = mrYes    then ShowMessage('Yes pressed');
  if buttonSelected = mrAll    then ShowMessage('All pressed');
  if buttonSelected = mrCancel then ShowMessage('Cancel pressed');
end;
[code]

[/code]

السلام عليكم
اخي Effector لم أفهم الكود جيدا
إذا كان ممكن الشرح

hamadabdd

Effector

hamadabdd