Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

Õâ¸öSQLÓï¾äÓÐʲôÎÊÌâ? - Delphi / ·Ç¼¼ÊõÇø

select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )

¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö

Mark!!!!!!

se ......

DELPHI DLLʵ²Î´«´°Ìå

//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

¹ØÓÚDelphi IXMLDOMNodeList ±£´æ

var
FXmlDoc:IXMLDomDocument;
begin
ʹÓÃFXmlDoc.save('Îļþ·¾¶')£»
½á¹û·¢ÏÖ±£´æºóµÄ¸ÃÎļþÖÐÎÄÈ«²¿ÎªÂÒÂ룬ÈçºÎ½â¾ö
end£»
²Î¿¼Õâ¸ö
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ