+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تغير اسم الlabel على form عن طريق handle (/showthread.php?tid=2711)
كيف تغير اسم الlabel على form عن طريق handle - php3man - 15-01-2011
السلام عليكم ورحمه الله وبركاته
كيفيه تغير label علي form عن طريق الهاندل
جربت داله sendmessage ولم تصلح
جربت داله أخري SetWindowText ولم تصلح
مثال عندي form1 فيه label1
كود :
label1.caption = 'delphi4arab'قيمة handle ال label1 كمثال 659878 كيف تغيره من رقم الهاندل ؟
كيف تغير اسم الlabel على form عن طريق handle - TF6M - 15-01-2011
السلام عليكم
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 , بالتوفيق,,
كيف تغير اسم الlabel على form عن طريق handle - php3man - 15-01-2011
السلام عليكم ورحمه الله وبركاته
المشكلة يا غالي ان
اسم الكلاس الاساسي التكست متغير
وفي كلاسات كتييير بنفس الاسم وlabel1
رقم متغير تعداد رقمي لأسفل
50
49
48
47
46
كيف تغير اسم الlabel على form عن طريق handle - TF6M - 15-01-2011
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');
...