delphi4arab منتديات دلفي للعرب

نسخة كاملة : إضافة رابط موقع
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله تعالى وبركاته

إخواني الكرام في منتدى دلفي العرب
أولا : مبتدئ في الدلفي وضيف جديد عليكم
بعد عدة محاولات فاشلة وبحوث ، لم أستطع إضافة رابط يحولك إلى موقع في فورم دلفي
لا أدري ما هو المشكل بالظبط
علما أنني أستخدم دلفي 10.
[صورة: e2r0.jpg]
قمت سابقا بالإطلاع على هذا الموضوع لكن لم أجد اللغز
هل يمكن الشرح على زر فقط يقوم بتحويلك للموقع المقصود.
شكرا وبارك الله فيكم مسبقا
وعليكم السلام ورحمة الله وبركاته
ما المشكل ؟ رسالة الخطأ ؟ ما حدث/ لم يحدث ؟
(14-04-2016, 11:30 AM)B.M.AbdelAziZ كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
ما المشكل ؟ رسالة الخطأ ؟ ما حدث/ لم يحدث ؟
رسالة الخطأ : erreur 6
ما اصدار النظام ؟ 10 ؟
(14-04-2016, 11:34 AM)B.M.AbdelAziZ كتب : [ -> ]ما اصدار النظام ؟ 10 ؟


ويندوز 10

البرنامج : الإصدار الأخير (Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753)


ما الامر الذي استخدمته (الكود الذي كتبته في دلفي)
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.
تستخدم Firemonkey !
الا تعرف ShellExecute هي API خاصة بWindows فقط !
هل أقوم باستيرادها من المكونات (components)
أو هي موجودة سابقا في دلفي 10
إذا كان يجب استيرادها أو موجودة أظن ليس مهما ، المهم هو أين أجدها في أي فئة؟
أولا يجب ان تفهم اين تضع قدمك
ShellExecute هي دالة من دوال Windows اي انها معرفة/تعمل يه فقط

عندما تختار مشروع بFiremonkey فيمكنك انتاج تطبيق يعمل على انطمة مجتلفة غير windows وبها ShellExecute لا تعني شيئ! ومنه خطأ
الصفحات : 1 2