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

السلام عليكم
هذا كود سورس إخواني لتغييرإسم زر إبدأ و إيقاف تشغيله و إعادة تشغيله

وعليكم السلام ورحمة الله
مثال رائع أخي
كان يقوم باستبدال الحرف الأول فقط، استبدلت PAnsiChar بـ PChar في السطر:

كود :
SetWindowText(Handle2, PChar(Edit1.Text));

والآن يعمل بشكل عاد.
شكر على المثال، في انتظار المزيد بالتوفيق.

بارك الله فيك أخي

شكرا أخي على السورس
ولقد ارفقت لك سورس جميل جدا
يقوم بنفس العمل

او من هنا

كود :
hxxp://www.mediafire.com/?a99vbs07zbmb97h

paix144