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 £ ......
Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿
¾ÍÊÇֻдһ¸ö·½·¨
È»ºóȥʵÏÖÕâ¸ö·½·¨£¿
ÈçºÎ¿ÉÒԵĻ°¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;
interface
uses SysUtils, Classe ......
ÈçÌ⣬ÓÐ2Äê¾ÑéµÄÅóÓÑ£¬·¢µ½ÎÒµÄÓÊÏ䣺19618033@qq.com¡£
½ØÖ¹10ÔÂ28ÈÕ¡£
´ó¸ç£¬×ܵĸø¸öµ¥Î»½éÉÜɶµÄ°É
ÒýÓÃ
´ó¸ç£¬×ܵĸø¸öµ¥Î»½éÉÜɶµÄ°É
×¥À͹¤»¹ÒªÊ²Ã´½éÉÜ°¡£¡
Ŷ ÉϵÛ
kampan,ÉúÁËÒ² ......
Ϊʲô´íÎó
procedure TForm1.btn1Click(Sender: TObject);
var
xml:TXMLDocument;
node:IXMLNode;
begin
xml:=TXMLDocu ......