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

delphiÖÐimageµÄͼƬ´¦Àí

ÓÐÈý¸ö°´Å¥"·Å´ó"£¬¡°ËõС¡±£¬¡°Òƶ¯¡±
µ±µã»÷¡°·Å´ó¡±»ò¡°ËõС¡±ÊÇͼƬÔÚ·Å´ó»òËõСµÄʱºòͼƬÓëͼƬ֮¼äµÄ¼ä¾à²»±ä£¬ÔÚµã»÷¡°Òƶ¯¡±Ö®ºóÊó±ê¿ÉÒÔÈÎÒâÒÆ¶¯Í¼Æ¬£¬ÎÒ¸ÕѧdelphiÀÏʦ¸øÎÒ²¼ÖÃÁËÕâ¸öÈÎÎñ£¬ÎÒ²»ÖªµÀÈçºÎÏÂÊÖ£¬Çë¸÷λ°ï°ïæ°¡£¬ÔÚÕâÏÈлÁË£¡

¼ä¾à²»±ä£¬¾ÍÊÇÖØÐÂÉèÖÃimageµÄ×ø±êλÖÃ
ÒÆ¶¯Í¼Æ¬£¬¾ÍÊÇÔÚÊó±êʼþÖÐÈ¥´¦Àí£¨mousedown£¬mousemove£¬mouseup£©£¬ÈÃimageËæ×ÅÊó±êÒÆ¶¯

²»ÊÇÕâÑùµÄ£¬ÓÐÁ½ÕÅͼƬimage1,image2£¬µã»÷¡°·Å´ó¡±°´Å¥Ê±£¬Á½ÕÅͼƬͬʱ·Å´ó£¬µ«ÊÇËûÃÇÔ­Óеļä¾à²»±ä£¬Í϶¯¾ÍÊÇÊó±êÀ­×ÅÍ¼Æ¬Ëæ±ãÒÆ¶¯°¡

Ë­ÄÜ×ö¹ýͼƬÓõ½×ø±êµÄÊÂÀý¸øÎÒ¿´¿´°¡

//ÒÆ¶¯
procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    Image2.Top := Image2.Top + y;
    Image2.Left := Image2.Left + x;
  end;
end;

ѧϰһÏÂ

¸ßÊÖÃǸøÔÚϵã˼·°¡

.....


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ