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

Delphi×ÔÊÊÓ¦·Ö±æÂÊ£¨±È½ÏÍêÃÀµÄÒ»¸ö·½·¨£©

procedure TfrmMain.FormCreate(Sender: TObject); //Ö÷´°ÌåFormCreateʼþ
var FWidth:integer;
begin
  if (screen.Width <> 1024) then  //¼ÙÉèÄãÉè¼Æ³ÌÐòʱµÄ·Ö±æÂÊΪ1024
  begin
    FWidth:=width;
    scaled:=true;
    Font.Size:=(Width div FWidth)*Font.Size;
    scaleby(screen.Width,1024);
    Height:=longint(Height)*longint(Screen.Height) DIV 768;
    Width:=longint(Width)*longint(Screen.Width) DIV 1024;
  end;
end;
ÕâÊÇÒÔÇ°ÏîÄ¿ÓùýµÄÒ»¶Î×ÔÊÊÓ¦·Ö±æÂʵĴúÂ룬Ч¹û»¹²»´í£¬²»¹ý×ÖÌå×îºÃµ÷ÕûΪËÎÌå¡£


Ïà¹ØÎĵµ£º

delphiÖ¸Õë¼òµ¥ÈëÃÅ

delphiÖ¸Õë¼òµ¥ÈëÃÅ:  
   
  ¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º  
  1         var  
  2             X,   Y:   Integer;       //   X   and   Y   ÕûÊýÀàÐÍ  
  3 ......

Delphi ÀàÓë¶ÔÏóÄÚ´æ½á¹¹Ç³Îö(ÏÂ)

¶ÔÏó¿Õ¼ä
ÄÚ´æ½á¹¹
¶ÔÏóµÄÄÚ´æ½á¹¹Êǹ̶¨µÄ£¬¶ÔÏó´´½¨Íê³Éºó¾ÍÎÞ·¨¸Ä±ä¡£ËüÖ÷Òª´æ´¢Á˶ÔÏóÖ±ÊôÀàµÄµØÖ·£¨µÈ¼ÛÓÚÀàµÄVMT£©£¬¶ÔÏó±¾ÉíµÄ³ÉÔ±Êý¾Ý£¬¶ÔÏóµÄ½Ó¿Ú·½·¨±íµØÖ·¡£½á¹¹ÈçͼËùʾ£º
˵Ã÷£ºÈôÀàδÉùÃ÷½Ó¿Ú£¬Ôò¶ÔÏó¿Õ¼ä²»´æ´¢½Ó¿Ú·½·¨±íµØÖ·¡£
 
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼äµÄ¹Øϵ
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼ä£º
ʾÀý£º·ÖÎö¶ÔÏóµÄ» ......

±ßÓñßѧDelphi±à³Ì

±¾Êéͨ¹ýµäÐ͵ÄʵÀý£¬ÏµÍ³µØ½éÉÜÁËDelphiµäÐÍ×é¼þµÄ»ù±¾Ê¹Ó÷½·¨ºÍһЩʹÓü¼ÇÉ¡£Ã¿Ò»¸öʵÀý¶¼ÌṩÁ˳ÌÐòµÄÔ´´úÂë¡¢²Ù×÷²½Ö裬²¢ÇÒÔÚһЩÌØÊâµÄʵÀýÖÐ×¢Ã÷ÁË֪ʶµã¡£Á¦Õùʹ¶ÁÕßͨ¹ýÔĶÁʵÀýºó£¬¿ÉÒԽϺõØÕÆÎÕÿһ¸ö֪ʶµã¡£ ±¾Êé·ÖΪÎåÕ£¬ÄÚÈÝÓÉdzÈëÉѭÐò½¥½ø£¬ÊÊÓÃÓÚ³õ¼¶Óû§ºÍԺУʦÉúѧϰ²Î¿¼¡£ ÏÂÔØÔĶÁ±ßÓñßѧD ......

delphi TStringList Ó÷¨Ïê½â

delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {Ìí¼Ó}
  List.Add('Strings2');
  List.Exch ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ