delphi ×ÔÔöedit¿Ø¼þ
³ýÁË×ÔÔöEDIT¿Ø¼þ£¬»¹ÓÐͨ¹ýÁ½¸öRadiobuttonÀ´¿ØÖÆËùÓÐ×ÔÔöµÄEdit¿Ø¼þµÄReadonlyÊôÐÔ£¬°ÝÍиßÊÖÃÇÌæÎÒÕâ¸ö²ËÄñ½â´ð£¬²»Éõ¸Ð¼¤
sorry, Do not understand what you said!
×Ô¼ºÏȶ¥Ï£¬ºÇºÇ
ÎÒ°Ñ´úÂë·¢¸øÄ㣬Äã°ïÎÒ¿´¿´°¡Õâ¶Î´úÂëÊÇformcreatʼþµÄ£º Et : array of TEdit;£¨ÔÚÈ«¾ÖÖÐÉùÃ÷µÄ£©
setlength(Et,200);
for k := 1 to 7 do
begin
for j := 0 to 12 do
begin
Et[k + 7*j] := TEdit.Create(self);
Et[k + 7*j].Parent := self.GroupBox1;
Eh := 21;
Ew := 80;
Et[k + 7*j].Width := 80;
Et[k + 7*j].Left := 2 + 80*(k-1);
Et[k + 7*j].Top
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
ÎÊÌâ1¡£delphiÖÐÎÒÉèÖÃÁ˶à¸öcheckbox(checkbox1,checkbox2,checkbox3)£¬ÔõôÉèÖÃÖ»ÄÜÑ¡checkbox2¡£
ÎÊÌâ2¡£ÎÒ¸ù¾ÝÑ¡ÔñÔËÐÐÍêºó£¬ÔÙÏëÑ¡Ôñ±ðµÄcheckbox3ʱÔõôȡÏûÔÀ´µÄÑ¡Ôñcheckbox2.
1¡¢µ¥Ñ¡½¨Òé¸ÄÓà ......
Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿
¾ÍÊÇֻдһ¸ö·½·¨
È»ºóȥʵÏÖÕâ¸ö·½·¨£¿
ÈçºÎ¿ÉÒԵϰ¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;
interface
uses SysUtils, Classe ......