+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أحصل على أى مقبض لنافذة (/showthread.php?tid=5070)
الصفحات:
1
2
كيف أحصل على أى مقبض لنافذة - karika2 - 26-03-2013
كيف أحصل على أى مقبض لنافذة فى الدلفى ...؟
كيف أحصل على أى مقبض لنافذة - SMP3 - 26-03-2013
نعم ,استخدم FindWindow or FindWindowEx أو EnumWindows
كيف أحصل على أى مقبض لنافذة - karika2 - 26-03-2013
أخى العزيز اليك هذة الصورة توضيح أكثر
كود :
http://www6.0zz0.com/2013/03/26/14/863578310.jpgعندما أضغط على زر فى برنامجى يقوم بتنظيف Edit1.text فى البرنامج الاخر هل هذة الفكرة مستحيلة أم أن شاء الله سهلة.
كيف أحصل على أى مقبض لنافذة - SMP3 - 26-03-2013
بالطبع ليست مستحيلة !!
تفضل :
PHP كود :
var DLG :THandle;
begin
DLG :=FindWindow(0,'Play');
DLG:= FindWindowEx(DLG,0,'TEdit',0);
SendMessage(DLG,WM_SETTEXT,0,LParam(PChar('')));
end;
كيف أحصل على أى مقبض لنافذة - karika2 - 29-03-2013
أخى الكريم جربت الكود ولكن لم يصلح معى ممكن ترسلى المشروع أفضل .. او تحددلى ما هى الخطوات ربما أكون سهوت عن شئ ما.
كيف أحصل على أى مقبض لنافذة - SMP3 - 29-03-2013
Play تمثل عنوان النافذة
TEdit الكلاس الخاص ب مكون Edit الذي تستعمله
كيف أحصل على أى مقبض لنافذة - karika2 - 29-03-2013
اشكرك جزيلاّ أخى
من قبل كان عندى مشروع بالفيجوال بمجرد مرور الفارة أحصل على عنوان النافذة ولكن تم فرمتت الجهاز من كل شئ واعيده مرة أخرى بلغة الدلفى.
كيف أحصل على أى مقبض لنافذة - SMP3 - 29-03-2013
تفضل :
PHP كود :
procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint ;
hWin:THandle;
begin
GetCursorPos(p);
hWin:=WindowFromPoint(p);
Caption:=IntToHex(hWin,8);
end;
كيف أحصل على أى مقبض لنافذة - karika2 - 29-03-2013
اخى بخصوص دالة FindWindow يتم تعريفها فى الفيجولهكذا
كود :
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String , ByVal lpWindowName As String ) As Integerكود :
var dlg :thandle;
begin
dlg :=findwindow(0,'play');
dlg:= findwindowex(dlg,0,'tedit',0);
sendmessage(dlg,wm_settext,0,lparam(pchar('')));
end;كيف أحصل على أى مقبض لنافذة - SMP3 - 29-03-2013
karika2 كتب :بخصوص دالة FindWindow يتم تعريفها فى الفيجولمن المنتقلين حديثا للدلفي
.. أحسن مافعلت .. , كنت أيضا مبرمج vb لكني انتقلت للدلفي سريعا بالنسبة لسؤالك فلن تحتاج الى تعريف دوال Api في دلفي , فأغلبها معرفة في الوحدة Windows.pas
على غرار الفيبي و التي تتطلب تعريف بالدالة ..
إقتباس :الكود ضعه مثلا في حدث ButtonClick على سبيل المثالكود :var dlg :thandle; begin dlg :=findwindow(0,'play'); dlg:= findwindowex(dlg,0,'tedit',0); sendmessage(dlg,wm_settext,0,lparam(pchar(''))); end;
يجب التنويه أن الكلاس الخاص بالأداة Edit هو TEdit و سيختلف الكلاس من لغة برمجة لأخرى مثلا الدوت نت TextBox .. الخ , لذلك ممكن أن الكود لن يعمل معك اذا أرسلت له كلاس خاطئ ..
ان تكلما عن ال IDM فليس هناك صندوق نص Edit .. هناك ListView ===> Class :SysListView32