طريقة برمجة معلومات حول البرنامج

ارجوكم ساعدوني

برغم من انني ممن ينادوا باعلاى صوتهم

حاول ثم حاول فالليوم خطاء وغدا صحيح .

انظر المرفق :

الكود :

ضع زر على الفورم الاساسي سميه ماشئت وفي الحدث OnClick ضع هذا الكود :

 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  With TForm2.Create(Application)do
  Try
  ShowModal
  Finally
  Free;
  end;
  end;

وهذا بعد ان كنت اظفت unit2 الى ال Uses للفورم الاساسي .

about.rar

والله المستعان

رحم الله والدك اخي الكريم

ولكن كيف اضيف المعلومات مثل الصورة والاميل

عموما اخواني انا اسف ان كنت قد اتعبتكم معي

السلام عليكــم ورحمـة الله وبركاتــه

اطلاقا لا تخجل من السؤل ولن نتعب من الاجابة اذا كانت موجودة طبعا

اخي وانما الاسئلة التي تسالها بسيطة جدا وقد اجبت عن مثل هذا السؤال في وقت قريب ابحث في المنتدى فقط

وفقنا الله واياكم

 Form2: TForm2;

implementation
 uses ShellApi;
{$R *.dfm}

procedure TForm2.Label2MouseEnter(Sender: TObject);
begin
Label2.Font.Color:=CLBlue;
end;

procedure TForm2.Label2MouseLeave(Sender: TObject);
begin
Label2.Font.Color:=CLBlack;
end;

procedure TForm2.Label3MouseEnter(Sender: TObject);
begin
Label3.Font.Color:=CLBlue;
end;

procedure TForm2.Label3MouseLeave(Sender: TObject);
begin
Label3.Font.Color:=CLBlack;
end;

procedure TForm2.Label2Click(Sender: TObject);
var
pEmail: PChar;
begin
pEmail:='mailto:myemail@email.com?subject=contactme&body=please contact me';
ShellExecute(0, 'open', pEmail, nil, nil, SW_SHOWNORMAL);
end;


end.

اذا لاتريد استخدام زر كما اشار الاخ محمد يمكنك استخدام الحدث OnClick للفورم نفسة

أي اذاكنت تريد الضغط حول البرنامج