delphiÉÏϼüÇл»½¹µã
Çë½Ì¸÷λ´óÏÀ£º
DelphiÖÐÓÃÉÏϼü»ò»Ø³µ¼üÇл»ÊäÈë¿ò£º
ÔÚedit1µÄOnkeyPressʼþÀ
if (key in[#13,#38]) then
begin
edit2.SetFocus ;
end;
Ϊʲô°´»Ø³µ¼ü¿ÉÒÔ£¬¶øÉϼü²»¿ÉÒÔ£¿
=£¡£¡£¡£¡
Delphi(Pascal) code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key in [38,40] then
Edit2.SetFocus;
end;
Delphi(Pascal) code:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
self.Edit2.SetFocus;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=40 then
self.Edit2.SetFocus;
end;
ÓÃFormKeyDown¿ÉÒÔ,ÉèFormµÄKeyPreviewΪtrue
ÎÒÒ»Ö±ÓõijÌÐò:
ÉÏ/ϼü½øÈëÉÏ/Ï¿ؼþ,»Ø³µ½øÈëÏÂÒ»¸ö,ESC¹Ø±ÕForm
Delphi(Pascal) code:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_down,vk_up:if activecontrol.tag=0 then
selectnext(activecontrol,key=vk_down,true);
13: if activecont
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
var
FXmlDoc:IXMLDomDocument;
begin
ʹÓÃFXmlDoc.save('Îļþ·¾¶')£»
½á¹û·¢ÏÖ±£´æºóµÄ¸ÃÎļþÖÐÎÄÈ«²¿ÎªÂÒÂ룬ÈçºÎ½â¾ö
end£»
²Î¿¼Õâ¸ö
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......