كيف يمكن تصميم فورم اتصل بنا

[hadji.samir]

السلام عليكم

كيف يمكن تصميم فورم اتصل بنا و تخويت على البرنامج من حيث رايك

وشكرا

[مبرمج مبتدأ]

أنا في العادة اقوم بإدراج فورم و أضع فيه اللازم ثم أضع أيقونة ( في الفورم 1) و أكتب فيها إتصل بنا و الكود المكتوب فيها هو :

[COLOR="Red"]Form3.show;
[/COLOR]
إفتراضا ان الفورم الذي أدرجته رقمه 3

[hadji.samir]

اعني الكود

[onexite]

سؤالك تم طرحه اكثر من مرة
اذا استخدمت برتكول smtp فهذا شيشكل تهديدا لحسابك سيتم معرفة كلمة المرور واسم المستخدم
لذلك من الافضل التشفير لاكن صدقني حتى التشفير لن ينفع
الطريقة الثانية استخدم هذه الطريقة بالرغم انها غير محمية من السبام كما يدعي صاحب الخدمة
http://www.delphi4arab.net/forum/showthr...p?tid=6826

PHP كود :

procedure TArabform.btn1Click(Sender: TObject);
begin
form2.ShowModal;
end;

procedure TArabform.btn2Click(Sender: TObject);
var email:TStringList;
begin

  email:=TStringList.Create;

try
idhtp1.Request.UserAgent:='Mozilla/5.0 (X11; U; Linux amd64; rv:5.0) Gecko/20100101 Firefox/5.0 (Debian)'  ;

email.Add('Form='+edt1.Text) ;
email.Add('Subject='+edt2.Text);
email.Add('Message_Mail='+smemo1.Text);
email.Add('To=userdz');
try
idhtp1.Post('http://userdz.arabform.com/mail.php?id=userdz',email) ;
except
  on E: EIdHTTPProtocolException do
   stsbr1.Panels[0].text:=e.Message;
end;
  stsbr1.Panels[0].text:=idhtp1.ResponseText;
finally
  email.Free
end;
end; 


لا تنسى تغيير userdz باسم التسجيل خاصتك
بالتوفيق