+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إضافة رابط موقع (/showthread.php?tid=7719)
الصفحات:
1
2
إضافة رابط موقع - محمد2016 - 14-04-2016
السلام عليكم ورحمة الله تعالى وبركاته
إخواني الكرام في منتدى دلفي العرب
أولا : مبتدئ في الدلفي وضيف جديد عليكم
بعد عدة محاولات فاشلة وبحوث ، لم أستطع إضافة رابط يحولك إلى موقع في فورم دلفي
لا أدري ما هو المشكل بالظبط
علما أنني أستخدم دلفي 10.
![[صورة: e2r0.jpg]](http://www.zupimages.net/up/16/15/e2r0.jpg)
قمت سابقا بالإطلاع على هذا الموضوع لكن لم أجد اللغز
هل يمكن الشرح على زر فقط يقوم بتحويلك للموقع المقصود.
شكرا وبارك الله فيكم مسبقا
RE: إضافة رابط موقع - محمد عبد العزيز - 14-04-2016
وعليكم السلام ورحمة الله وبركاته
ما المشكل ؟ رسالة الخطأ ؟ ما حدث/ لم يحدث ؟
RE: إضافة رابط موقع - محمد2016 - 14-04-2016
(14-04-2016, 11:30 AM)B.M.AbdelAziZ كتب : وعليكم السلام ورحمة الله وبركاتهرسالة الخطأ : erreur 6
ما المشكل ؟ رسالة الخطأ ؟ ما حدث/ لم يحدث ؟
RE: إضافة رابط موقع - محمد عبد العزيز - 14-04-2016
ما اصدار النظام ؟ 10 ؟
RE: إضافة رابط موقع - محمد2016 - 14-04-2016
(14-04-2016, 11:34 AM)B.M.AbdelAziZ كتب : ما اصدار النظام ؟ 10 ؟
ويندوز 10
البرنامج : الإصدار الأخير (Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753)
RE: إضافة رابط موقع - محمد عبد العزيز - 14-04-2016
ما الامر الذي استخدمته (الكود الذي كتبته في دلفي)
RE: إضافة رابط موقع - محمد2016 - 14-04-2016
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
Uses
ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.google.com/',nil,nil, SW_SHOWNORMAL) ;
end;
end.
RE: إضافة رابط موقع - محمد عبد العزيز - 14-04-2016
تستخدم Firemonkey !
الا تعرف ShellExecute هي API خاصة بWindows فقط !
RE: إضافة رابط موقع - محمد2016 - 14-04-2016
هل أقوم باستيرادها من المكونات (components)
أو هي موجودة سابقا في دلفي 10
إذا كان يجب استيرادها أو موجودة أظن ليس مهما ، المهم هو أين أجدها في أي فئة؟
RE: إضافة رابط موقع - محمد عبد العزيز - 14-04-2016
أولا يجب ان تفهم اين تضع قدمك
ShellExecute هي دالة من دوال Windows اي انها معرفة/تعمل يه فقط
عندما تختار مشروع بFiremonkey فيمكنك انتاج تطبيق يعمل على انطمة مجتلفة غير windows وبها ShellExecute لا تعني شيئ! ومنه خطأ