03-06-2011, 07:15 PM
إقتباس :اخي kachwahed الهدف تعليمي ومنه نحاول الاعتماد على انفسنا ما امكنأحب الحلول الجاهزة

حسنا، كاقتراح لمحاولة تصحيح الخلل دعم Unicode
إدراج مكتبات Tnt لاستخدامها بدلا من المكونات الأصلية
بشي مثل:
PHP كود :
{$DEFINE Tnt}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls
{$IFDEF Tnt}
, TntStdCtrls, TntDialogs
{$ENDIF}
;
type
{$IFDEF Tnt}
TLabel = class(TTntLabel)
end;
TEdit = class(TTntEdit)
end;
TMemo = class(TTntMemo)
end;
{$ENDIF}
شيء آخر، استدعاء توابع W عوضا ANSI حيثما وجد تابع API
PHP كود :
MessageBoxW(Handle, PWideChar('MessageBoxW: ' +Edit1.Text), 'Title', MB_OK +
MB_ICONINFORMATION);
طبعا، هذا بفرض استخدام دلفي 7 للتوليف.

