السحب و الإفلات

اسئلة رائعة وتدل على انك محترف او تسير للاحتراف........ يكفي انها عن API

بالنسبة للسحب والافلات ويسمى drag &drop اذا لم اخطئ في الاملاء ..

للاسف لم اتعامل معه ولو توفرت لي فرصة غدا .. فاني سأضع مثال على ذلك ...

اما بالنسبة للقائمة فهي مشكلة غريبة ... ما اعرفه ان اونها يتغير حسب الوان النظام system color

لكن ممكن تضيف الملف حتى اعرفه اكثر ..

اما بالنسبة لـ toolbar فسأبحث عن الدالة التي ستغير الاتجاه ..

اعرف اني لم اجب على اي سؤال لكن ..

ارفق الملف .

وسأجاوب عن اسئلتك غدا ان شاء الله .. لكن ان وجدت شي ..

-------------

رأيت صورة برنامجك ..يبدو انك متمكن من api فلماذا لا اراك كثيرا في المنتدى .. اتمنى ان تضيف مواضيع عن api خلال هالعطلة ان شاء الله ..

الفكرة بسيطة، عليك التعامل مع windows message وهي wm_DropFiles

و اثنين من Windows API وهما

DragQueryFile و DragAcceptFiles

بالنسبة للمشكلة الثانية والثالثة إستخدم ال ActionMainMenuBar و ActionToolBar مع ActionManager وسوف تصبح القوائم مثل office XP

هذا مثال للأخ عروة لكن بدلفي، يمكنك مشاهدة القوائم وtoolbar

/index.php?showtopic=66730

شكرا لكم و لردكم

أنا لست محترف أبدا

أنا جاهل كثييييييييييير و بدي فت خبز كثييييييييير

إن شالله بعد الإختبارات سيكون لنا جلسات كثيرة

شكرا لكم

إذا أردت مثال بدلفي سوف أعطيك اياه، ويمكنك تحويله لسي++ بيلدر، للأسف لم اعمل من قبل على سي++ بيلدر ولا املكه

اعتذر عن عدم احضار الامثلة التي وعدتك بها ..

لقيت املثلة كثيرة لكن معقده زيادة عن اللزوم ..

هذا بلغة الدلفي

استقبال الملفات عن طريق السحب والإفلات Drag and Drop
يمكنك استقبال الملفات المسحوبة بخاصية السحب والإفلات Drag and Drop في برامجك كما يلي: 



قم بإنشاء برنامج جديد. 
ضع عنصر TMemo على الشاشة. 
استخدم النص التالي: 
·                unit Unit1;
·                 
·                interface
·                 
·                uses
·                  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
·                  Dialogs, StdCtrls;
·                 
·                Type
·                  TForm1 = class(TForm)
·                    Memo1: TMemo;
·                    Procedure FormCreate(Sender: TObject);
·                  Private
·                    Procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;
·                    { Private declarations }
·                  public
·                    { Public declarations }
·                  end;
·                 
·                var
·                  Form1: TForm1;
·                 
·                Implementation
·                 
·                {$R *.DFM}
·                 
·                uses ShellApi;
·                 
·                procedure TForm1.FormCreate(Sender: TObject);
·                begin
·                  DragAcceptFiles(Form1.Handle, True);
·                end;
·                 
·                procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
·                var
·                  NumFiles : longint;
·                  i : longint;
·                  buffer : array[0..255] of char;
·                 
·                begin
·                  NumFiles := DragQueryFile(Message.Drop, -1, nil, 0);
·                  //
·                  for i := 0 to (NumFiles - 1) do
·                  begin
·                    DragQueryFile(Message.Drop, @buffer, sizeof(buffer));
·                    Form1.Memo1.Lines.Add(buffer);
·                  end;
·                end;
·                 
end.

آمل أن يفيد

أخي الشمري لا تعب حالك

أشكركم جدا

أنا كنت بشتغل على باسكال مش ديلفي

لكن هذا الكلام صار له سنة

بحاول حللل الكود

شكرا لكم