حاولت اطبقها من هنا الكثير منها لم تعمل معي
http://wiki.freepascal.org/Dialog_Examples
مثلا هذه
QuestionDlg
Question dialog allows changing button captions and setting default and cancel buttons. Example:
case QuestionDlg ('Caption','Message',mtCustom,[mrYes,'Positive', mrNo, 'Negative', 'IsDefault'],'') of
mrYes: QuestionDlg ('Caption','So you mean „Yes“',mtCustom,[mrOK,'That is right'],'');
mrNo: QuestionDlg ('Caption','Oh, you mean „No“',mtCustom,[mrOK,'Exactly'],'');
mrCancel: QuestionDlg ('Caption','You canceled the dialog with ESC or close button.',mtCustom,[mrOK,'Exactly'],'');
end;
الغريب يعطيني الخطأ عند case
هل انا بحاجة لتحميل حزمة معينة واضيفها للبرنامج Package
ممكن احد يشوف لي حل؟
مع انه ما فيه استلطاف بيني وبين محرر الكود اللي فيها
بس احس ان لها مستقبل في البرمجة راح يفوق ميكروسوفت
http://wiki.freepascal.org/Dialog_Examples
مثلا هذه
QuestionDlg
Question dialog allows changing button captions and setting default and cancel buttons. Example:
case QuestionDlg ('Caption','Message',mtCustom,[mrYes,'Positive', mrNo, 'Negative', 'IsDefault'],'') of
mrYes: QuestionDlg ('Caption','So you mean „Yes“',mtCustom,[mrOK,'That is right'],'');
mrNo: QuestionDlg ('Caption','Oh, you mean „No“',mtCustom,[mrOK,'Exactly'],'');
mrCancel: QuestionDlg ('Caption','You canceled the dialog with ESC or close button.',mtCustom,[mrOK,'Exactly'],'');
end;
الغريب يعطيني الخطأ عند case
هل انا بحاجة لتحميل حزمة معينة واضيفها للبرنامج Package
ممكن احد يشوف لي حل؟
مع انه ما فيه استلطاف بيني وبين محرر الكود اللي فيها
بس احس ان لها مستقبل في البرمجة راح يفوق ميكروسوفت
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات