+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تعدد وحدات الادخال في consol (/showthread.php?tid=3311)
تعدد وحدات الادخال في consol - abdelmalek - 25-07-2011
السلام عليكم ورحمة الله وبركاته
كيف يمكنني إنشاء مربعات الادخال على البرامج التي تعمل تحت نظام الدوس ؟
مع العلم اني استعمل Lazarus في بناء التطبيقات التي تعمل تحتى نظام الدوس .
لحضو الصورة التالية :
كود :
http://hh7.net/Jul5/hh7.net_13116016631.jpgاود ان انشئ اكتر من مربع اخضر فكيف لي هدا ؟
مع العلم ان كود سورس البرنامج الضاهر في الصورة هو :
PHP كود :
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes,Crt
{ you can add units after this };
{$R *.res}
begin
Window(4,4,10,5);
TextBackground(Green);
ClrScr;
Readln;
end.
بارك الله فيكم وجزاكم خيرا
في امان الله ,,