Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / ·Ç¼¼ÊõÇø

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

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

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

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

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

delphi IDEµÄÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÎÒÊÇÐÂÊÖÏ£Íû´ó¼ÒôÅç¡£¡£
¾ÍÊÇÏëÎÊһϠ¹ØÓÚIDEµÄÎÊÌâ··
ÕÒÁ˺þ㬾ÍÊÇûÕÒÈ«¡£
Ï£Íû´ó¸çÃÇÌṩһϹþ¡£¡£¡£¡£
лл··
ÄãÏëÎÊIDEµÄʲôÎÊÌâ

¿ÉÒÔ¾ßÌ嵽ʲôÎÊÌâÂï


ÏÖÔÚµÄͬѧÌáÎ ......

ÇóÖúXMLÎļþ±£´æÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

RXmlDoc := System.xml.XmlDocument.Create;
  sxml := copy(sRsult, ir + 8, length(sRsult));
  sxml := System.Text.Encoding.GetEncoding('gb2312').GetString(Convert.fromB ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ