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

السلام عليكم ورحمه الله وبركاته

كيفيه تغير label علي form عن طريق الهاندل

جربت داله sendmessage ولم تصلح
جربت داله أخري SetWindowText ولم تصلح
مثال عندي form1 فيه label1

كود :
label1.caption = 'delphi4arab'

قيمة handle ال label1 كمثال 659878 كيف تغيره من رقم الهاندل ؟

السلام عليكم

PHP كود :
Function _SetWindowText(NewStr:String): Boolean;
Begin
 Result:= SetWindowText(FindWindowEx(FindWindow(Nil
                       ,'Calculatrice'){Window Caption}
                       ,0,'Button'{ClassName},'Inv'),Pchar(NewStr));
End; 

النتيجة (...)
راجع الـ System class مثلا في حالة الـ Label ا, ClassName = Static , بالتوفيق,,

السلام عليكم ورحمه الله وبركاته

المشكلة يا غالي ان
اسم الكلاس الاساسي التكست متغير

وفي كلاسات كتييير بنفس الاسم وlabel1

رقم متغير تعداد رقمي لأسفل

50
49
48
47
46

Class Name = Static
الأن نأتي للتصنيف حسب الـ Caption

PHP كود :
Procedure _SetWindowText(NewStr,OldStr:String);
Begin
 SetWindowText(FindWindowEx(FindWindow(Nil
                 ,'Calculatrice'){Window Caption}
                 ,0,'Static'{ClassName},OldStr),Pchar(NewStr));
End; 

_SetWindowText('Delphi4Arab','Label1');
_SetWindowText('Delphi4Arab','Label2');
_SetWindowText('Delphi4Arab','Label3');
... 

php3man

TF6M

php3man

TF6M