الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

رسائل في دلفي


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
لا توجد ردود على هذا الموضوع

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 42 المشاركات
  • البلد: Country Flag

رسائل في دلفي

ضع على النموذج أو الفورم 2 أزرار

انقر على الفورم واكتب تالي :

procedure TForm1.FormCreate(Sender: TObject); // .......
begin
Form1.Position := poScreenCenter; // ........
Form1.Height := 200; //........
Form1.Width := 350; // ........
Form1.Caption := 'رســـــالـة'; // ............

Form1.Button1.Left := 30; // ........
Form1.Button1.Top := 50;// ...........
Form1.Button1.Height := 30; // .....
Form1.Button1.Width := 90; //
Form1.Button1.Caption := 'انقر هنا'; // .....

Form1.Button2.Left := 205; // .......
Form1.Button2.Top := 100; // ...........
Form1.Button2.Height := 30; // ........
Form1.Button2.Width := 105; // .......
Form1.Button2.Caption := 'خروج '; // .........

end; // ....

// انقر على زر الاول
procedure TForm1.Button1Click(Sender: TObject); // .....
begin // ....
// اكتب تالي
// عند نقر تظهر رسالة
ShowMessage('السلام عليكم '); // ...
end; // ....
// ......
// انقر على زر الثاني
procedure TForm1.Button2Click(Sender: TObject); // .....
begin // ...
// اكتب تالي
Close; // .......
end; // ....
 

 

 

 

 


:D

دلفي تعليم

http://delph.forumalgerie.net

 





عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين