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

delphi ´òÓ¡ÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÏÖÔÚÐèÒª´òÓ¡delphi´°ÌåÉÏËùÓеĶ«Î÷£¬ÎÒÏÈץͼÔÙ´òÓ¡£¬¿ÉÊÇ´òÓ¡²»³öÀ´£¬Çë´óÏÀÃÇ°ïæ¡£

Ö»ÊÇÎҵĴúÂ룺
procedure TForm1.FormCreate(Sender: TObject);
var
 cvsFullScreenCanvas:TCanvas;
  dc:HDC;
  bmpFullScreen:TBitmap;
  rectScreen:Trect;
begin
  bmpFullScreen:=TBitmap.Create;
  bmpFullScreen.Width:=screen.Width;
  bmpFullScreen.Height:=screen.Height;
  //ÉèÖÃBitMap¶ÔÏó

  DC:=GetDC(0);
  cvsFullScreenCanvas:=TCanvas.Create;
  cvsFullScreenCanvas.Handle:=DC;
  //ÉèÖÃCanvass¶ÔÏó

  bmpFullScreen.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),cvsFullScreenCanvas,Rect(0,0,Screen.Width,Screen.Height));

  cvsFullScreenCanvas.Free;
  
  ReleaseDC(0,DC);
  


  if printdialog1.Execute then
  begin
   
  printer.BeginDoc;
  printer.Canvas.Draw(0,0,bmpFucllScreen);
  printer.EndDoc;
   

  end;
 bmpFullScreen.Free;
delphiÓÐ×Ô´øµÄ´òÓ¡demo,Äã¿ÉÒÔ¿´Ò»ÏÂ

Ö±½ÓSelf.Print

1¡¢´úÂëûÓÐÎÊÌ⣬ֻÊDz»Òª·ÅÔÚFormµÄOnCreateʼþÖУ¬±ÈÈçÒƶ¯µ¥¶ÀµÄÒ»¸öButton.OnClickÖÐ
2¡¢printer.Canvas.Draw(0,0,bmpFucllScreen);
ÕâÒ»¾äÖÐÓÐÒ»¸ö±ÊÎó£¬bmpFucllScreenӦΪbmpFullScreen



»¹ÊÇÃ


Ïà¹ØÎÊ´ð£º

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

³õѧÕßÈçºÎѧϰdelphi? - Delphi / ·Ç¼¼ÊõÇø

1.ÎÒ²»»áÓ¢Óï,ÏÂÔØÁ˸ödelphi2010,´ò¿ªÒÔºóÀïÃæÈ«²¿ÊÇÓ¢Óï,Á¬°ïÖúÎļþÒ²ÊÇÓ¢Óï,ÓÐûÓкº»¯°æµÄ?
2.ÏÂÃæÊÇ×°delphi2010µÄʱºò×°½øÀ´µÄ,Âé·³½âÊÍÕâЩÊÂʲô
Embarcadero Delphi and C++ Builder 2010 Database Pack ......

delphiÊéд¸ñÔò? - Delphi / ·Ç¼¼ÊõÇø

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?
ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë
===================================================================== ......

delphi ûÓÐÖ´ÐнçÃæ²»ÏÔʾ - Delphi / ·Ç¼¼ÊõÇø

ÎÒÔÚÖ´ÐÐDelphi2010µÄʱºò£¬Ã»ÓгöÏÖÖ´ÐеĽçÃ棬Çó¸ßÊÖ°ï棬лл


End_rbody_65722921//-->
¸Ã»Ø¸´ÓÚ2010-05-26 08:24:26±»°æÖ÷ɾ³ý


¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TO ......

delphi ÐÂÔösheetÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÈçºÎʹÐÂÔöµÄsheetÔÚÇ°Ò»¸ösheetºó£¬excelĬÈÏÓÐ3¸ösheet,ÈçÎÒÐÂÔöÒ»¸ösheet4,ÔõÑùʹËüÊDzåÔÚsheet3ºóÄØ£¬¶ø²»ÊDzåÔÚsheet1Ç°£¿
ÓÒ¼ü²»ÐÐÂð£¿

Worksheets.Add ·½·¨ 
¸Ã·½·¨ÓÃÓÚн¨¹¤×÷±í¡£
Function Ad ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ