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

Delete Delphi temporary file

Rem Delete Delphi temporary file
Rem ****************************
@echo Delete Delphi temporary file
@dir/w/s *.~*
@echo ÒÔÉÏΪµ±Ç°Ä¿Â¼¼°×ÓĿ¼ÁÙʱÎļþ,Çë°´ÈÎÒâ¼üÈ·ÈÏɾ³ý!
@pause
@for /r . %%a in (.) do @if exist "%%a\*.~*" del "%%a\*.~*"
@echo ɾ³ý³É¹¦!
@pause
Rem ****************************


Ïà¹ØÎĵµ£º

ÖÕÓڸ㶨ÁËDelphiµÄUnicodeÖ§³Ö(Tnt¿Ø¼þ)

Ô­À´ÊÇÒªÔÚFormCreateÖмÓÈëÒÔÏ´úÂë:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
  //Õâ¾äºÜ¹Ø¼ü.¶ÔÓÚÆ½Ì¨µÄÖ§³Ö.
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    Font.Name := 'MS Shell Dlg 2'
  else
    Font.Name := 'MS Shell Dlg';
......

Format¸ñʽ Delphi

Delphi formatµÄÓ÷¨
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·­Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬Á ......

Delphi~~

   ×î½üÒª×öÒ»¸öͼÊé¹ÜÀíϵͳ£¬²¢ÇÒÊÇÓÃDelphiÈí¼þ¿ª·¢£¬ºÜ¶à¶¼²»¶®£¬±¾À´ÊÇ¿ÉÒÔ´ÓÍøÉÏÏÂÔØ£¬Ñ§Ï°Ò»Ïµģ¬¿ÉÊDz»ÖªµÀÔõÃ´ÆÆ½âµÇ½ÃÜÂ룬ÔËÐÐʱû°ì·¨µÇ½½øÈ¥£¬5555~~ºÃºÃѧϰ£¬ÓиßÊÖÖ¸µã¾ÍºÃÁË…… ......

delphi·¢Ëͽ¹µãÒÆ¶¯ÏûÏ¢µÄº¯Êý¼°²ÎÊý


procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
     begin
     Key := #0;
     SendMessage(Handle, 48384, 9, 0);     
     end;
end; ......

delphi ¿ì½Ý¼ü

 Ctrl+PageUp      ½«¹â±êÒÆÖÁ±¾ÆÁµÄµÚÒ»ÐУ¬ÆÁÄ»²»¹ö¶¯¡£
 Ctrl+PageDown    ½«¹â±êÒÆÖÁ±¾ÆÁµÄ×îºóÒ»ÐУ¬ÆÁÄ»²»¹ö¶¯¡£
 Ctrl+↓          ÏòϹö¶¯ÆÁÄ»£¬¹â±ê¸úËæ¹ö¶¯²»³ö±¾ÆÁ¡£
 Ctrl+↑ &nb ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ