Delphi±éÀúPanel×é¼þÉϵÄËùÓпؼþ
procedure frmMain.CLS; //Ö÷´°Ìå×Ô¶¨ÒåʼþCLS
var i:integer;
begin
for i:=0 to panel5.ControlCount -1 do
begin
if panel5.Controls[i] is TEdit then //Edit×é¼þ
begin
((panel5.Controls[i]) as TEdit).Text:='';
((panel5.Controls[i]) as TEdit).Enabled:=true;
end else if panel5.Controls[i] is TComboBox then //ComboBox×é¼þ
begin
((panel5.Controls[i]) as TComboBox).Text:='';
((panel5.Controls[i]) as TComboBox).Enabled:=true;
end else if panel5.Controls[i] is TDateTimePicker then //DateTimePicker×é¼þ
begin
((panel5.Controls[i]) as TDateTimePicker).Enabled:=true;
((panel5.Controls[i]) as TDateTimePicker).DateTime:=now();
end;
end;
end;
Õâ¸ö¹ý³ÌÖ÷ÒªÊÇÇå¿Õpanel5×é¼þEdit¡¢ComboBox×é¼þTextÄÚÈÝ¡¢°ÑDateTimePicker×é¼þÈÕÆÚÉèΪµ±Ç°ÈÕÆÚ£¬²¢Ê¹panel5ËùÓпؼþ¿ÉÓÃ
Ïà¹ØÎĵµ£º
1.ÒòΪKeyPreviewĬÈÏÊÇ False;ÎÒÃÇÕâÀïÐèÒªÏìÓ¦¼üÅÌʼþµÄ»°£¬ÐèÒª½«ÆäÐÞ¸ÄΪTrue£»
ËùÒÔKeyPreview:=True; Õâ¶ÔһЩ¿ì½Ý¼ü»áÓÐÓá£
ÔÚ´°ÌåÊôÐÔÉÏÐÞ¸ÄKeyPreview := True;
2.ÔÚ´°ÌåµÄFormKeyDownº¯ÊýÀïд£º
if KeyPreview then
Form½«ÏÈÏìÓ¦¼üÅÌʼþ£¨ÔÚTEditµÈ¿Ø¼þ֮ǰ£©
else
³ý·ÇFo ......
ÔÚÌÖÂÛÕâ¸ö»°Ìâ֮ǰ£¬±ØÐëҪ˵Ã÷µÄÊÇ£¬Èç¹ûÄã¸Õѧϰdelphi£¬Ç벻Ҫģ·Â£¬ÒòΪ̸²»ÉÏתÐÍ£»Èç¹ûÄãÓÃdelphiÒѾ³Éϰ¹ß£¬²¢ÇÒÊìϤhtmlÓïÑÔ¡¢ÓÐBS½á¹¹»ù´¡¡¢¶ÔJAVAÓ﷨ûÓÐÕϰ£¨Èç¹ûÄã¿´²»¶®¼òµ¥µÄ»ù´¡JAVA´úÂ룬½¨ÒéÄ㻹ÊǼÌÐøÄãµÄd°É£©£¬Ï£ÍûÕâ¶ÎÄÚÈݶÔÄãÓÐËù°ïÖú£¬´Ë»°Ìâ²»ÌÖÂÛ¾ßÌå¼¼Êõ£¬Ö»ËµËµÎÒµÄѧϰ²½ÖèºÍÐĵá£
1¡¢ ² ......
Êý×éÊÇ¿ÉÒÔͨ¹ýË÷ÒýÀ´ÒýÓõÄͬÀàÐÍÊý¾ÝµÄÁÐ±í¡£°´ÕÕ´æ´¢¿Õ¼äµÄ»ñÈ¡·½Ê½£¬Delphi
Ö§³ÖµÄÊý×éÀàÐÍÓÐÁ½ÖÖ£¬¼´¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é¡£Ëùν¾²Ì¬Êý×é¾ÍÊÇÔÚÉùÃ÷ʱ¾ÍÒѾȷ¶¨´óСµÄÊý×éÀàÐÍ£¬¶ø¶¯Ì¬Êý×éÊÇÖ¸Æä´óСÔÚÉùÃ÷ʱ²»ÄÜÈ·¶¨µÄÊý×飬¶¯Ì¬Êý×éµÄ´óСÔÚʹÓÃʱȷ¶¨¡£
ÉùÃ÷¾²Ì¬Êý×éµÄ·½Ê½·Ç³£¼òµ¥£¬Ö»ÒªÖ¸Ã÷Êý×鳤¶ÈºÍÊý¾ÝÀàÐÍ ......
1¡¢ ·ÅÒ»ÏÂmemo¿Ø¼þ¡¢Ò»¸öbutton¡¢opendialog
ÔÚbuttonµÄclickʼþÖÐ
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);
2¡¢Àļòµ¥µÄʰ¡
var
Mytxt : TStringList;
begin
MyText :=
TStringList('ÄãµÄÎı¾Îļþ¼°Â·¾¶');
&nbs ......
ºÜÔç×ö¹ýµÄÒ»¸ödelphiÏîÄ¿£¬°ÑÀïÃæÓõ½µÄ¼¼Êõ×ܽáһϣ¬Ö÷ÒªÊÇÕë¶ÔÏóÎÒÕâÑùµÄdelphiÐÂÊÖ£¬¼¼ÊõÉÏ×ö¸ö»ýÀÛ°É£¡
¼ÙÉèÎÒÃǵÄÊý¾Ý¿âÅäÖÃÎļþServerInfo.iniÄÚÈÝÈçÏ£º
[ServerInfo]
ServerIP=192.168.1.5
SQLDBName=Data
SQLUserID=sa
SQLPwd=
ÎÒÃǶ¨ÒåÒ»¸öÁ¬½ÓÊý¾Ý¿âµÄ¹ý ......