1
|
الانتقال إلى السطر الثاني أو الثالث حسب المكان
|
2
|
الانتقال إلى آخر سطر
|
3
|
هذا الزر يسمح لك بإضافة سطر جديد يحتوي
|
4
|
هذا الزر لحذف سطر
بالكامل
|
5
|
التعديل على الملف
|
7
|
حفض جميع التعديلات التي تم إجرائها
|
7
|
عدم حفظ التعديلات
|
procedure
TForm1.FormCreate(Sender: TObject);
var
Splash: Boolean;
begin
Inifile :=
TIniFile.Create(Changefileext(application.exename,' .ini '));
with Inifile do
try
Splash:=
ReadBool('ShowSplash','LastChoice', True);
Checkbox1.Checked
:= Splash;
if Splash then
begin
Sleep(1000);
Form2.Close;
Form2.Release;
end;
finally
Free;
End;
End;
|
procedure TForm1.FormClose(Sender:
TObject; var
Action: TCloseAction);
var
Splash: Boolean;
begin
Inifile := TIniFile.Create(Changefileext(application.exename,
'.ini'));
Splash := Checkbox1.Checked;
with Inifile do
try
WriteBool('ShowSplash','LastChoice', Splash);
finally
Free;
end;
end;
|
var
Form2: TForm2;
Splash:
Boolean;
Inifile: TIniFile;
implementation
|
initialization
Inifile := TIniFile.Create(Changefileext(application.exename, '.ini'));
with Inifile do
try
Splash:=
ReadBool('ShowSplash','LastChoice', True);
finally
Free;
end;
if Splash then
begin
Form2 :=
TForm2.Create(nil);
Form2.Show;
Form2.Update;
end;
|
الخطوة
|
شرح
|
1
|
إنشاء النموذج الأول و
إذا كان مشروعكم اكتمل فلا داعي لعمل هاذا النموذج بل إضافة الأكواد إليه
|
2
|
اضفنا الوحدة Inifiles
للتعامل مع ملفات .ini
|
3
|
وضعنا المتغير inifile:
tinifile لكي يمكن استخدامه في
جميع إجراءات و توابع هذه الوحدة فقط
|
4
|
الربط بين النموذجين
" الذي تظهر فيه الشاشة الترحيبية و النموذج الذي نعتبره الأساسي"
|
5
|
checkbox1 من أجل حفظ خيار
المستخدم إذا كان يريد ان تظهر الشاشة مرة أخرى و مكون Label1 لكي نظهر فيه محتوى الترحيب و يمكن
استبداله بأي مكون آخر مثلا مكون الصورة
|
6
|
عند إنشاء النموذج
يتم عمل ملف Ini حيث يكون في مسار البرنامج الرئيس بالإضافة لأخد اسمه و بعدها
جعلنا قيمة المتغير Splash مساوية لقيمة checkbox1 و بعدها قلنا بأنه بعد مدة تقدر ب1000 يقوم
البرنامج بالخروج و تحديث النموذج 2
|
7
|
عندما
يخرج النموذج 1 يحفظ لنا قيمة checkbox1
|
8
|
أضفنا
الوحدة IniFiles للتعامل مع ملفات ini
|
9
|
عرفنا
المتغيرين لنتعامل معهما في البرنامج
|
10
|
Splash متغير يأخذ القيمة صح و التي مفادها أن
تظهر لنا الشاشة الترحيبية
|