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Ö¸Õë¼òµ¥ÈëÃÅ:
¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 ......
¶ÔÏó¿Õ¼ä
ÄÚ´æ½á¹¹
¶ÔÏóµÄÄÚ´æ½á¹¹Êǹ̶¨µÄ£¬¶ÔÏó´´½¨Íê³Éºó¾ÍÎÞ·¨¸Ä±ä¡£ËüÖ÷Òª´æ´¢Á˶ÔÏóÖ±ÊôÀàµÄµØÖ·£¨µÈ¼ÛÓÚÀàµÄVMT£©£¬¶ÔÏó±¾ÉíµÄ³ÉÔ±Êý¾Ý£¬¶ÔÏóµÄ½Ó¿Ú·½·¨±íµØÖ·¡£½á¹¹ÈçͼËùʾ£º
˵Ã÷£ºÈôÀàδÉùÃ÷½Ó¿Ú£¬Ôò¶ÔÏó¿Õ¼ä²»´æ´¢½Ó¿Ú·½·¨±íµØÖ·¡£
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼äµÄ¹Øϵ
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼ä£º
ʾÀý£º·ÖÎö¶ÔÏóµÄ» ......
±¾Êéͨ¹ýµäÐ͵ÄʵÀý£¬ÏµÍ³µØ½éÉÜÁËDelphiµäÐÍ×é¼þµÄ»ù±¾Ê¹Ó÷½·¨ºÍһЩʹÓü¼ÇÉ¡£Ã¿Ò»¸öʵÀý¶¼ÌṩÁ˳ÌÐòµÄÔ´´úÂë¡¢²Ù×÷²½Ö裬²¢ÇÒÔÚһЩÌØÊâµÄʵÀýÖÐ×¢Ã÷ÁË֪ʶµã¡£Á¦Õùʹ¶ÁÕßͨ¹ýÔĶÁʵÀýºó£¬¿ÉÒԽϺõØÕÆÎÕÿһ¸ö֪ʶµã¡£ ±¾Êé·ÖΪÎåÕ£¬ÄÚÈÝÓÉdzÈëÉî¡¢ÑÐò½¥½ø£¬ÊÊÓÃÓÚ³õ¼¶Óû§ºÍԺУʦÉúѧϰ²Î¿¼¡£ ÏÂÔØÔĶÁ±ßÓñßѧD ......
delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1'); {Ìí¼Ó}
List.Add('Strings2');
List.Exch ......