关于转转问题！ ( 积分: 50 )

sunshinebbs · 2005-12-15

我有4个Tedit edit1.text := '131638'; //句柄 edit2.text := 'WM_LBUTTONDOWN'; //msg edit3.text := '0'; //WPARAM edit4.text := '0'; //LPARAM 如何转换到如下合法格式： SendMessage(edit1.Text, edit2.Text, edit3.text,edit4.Text);

sunshinebbs · 2005-12-15

我有4个Tedit edit1.text := '131638'; //句柄 edit2.text := 'WM_LBUTTONDOWN'; //msg edit3.text := '0'; //WPARAM edit4.text := '0'; //LPARAM 如何转换到如下合法格式： SendMessage(edit1.Text, edit2.Text, edit3.text,edit4.Text);

plenilune168 · 2005-12-15

不知你是不是这个意思 var WM:UINT; begin  if edit2.text='WM_LBUTTONDOWN' then WM:=WM_LBUTTONDOWN;  if edit2.text='WM_RBUTTONDOWN' then WM:=WM_RBUTTONDOWN;  SendMessage(StrToInt(edit1.Text), WM, StrToInt(edit3.text),StrToInt(edit4.Text)); end;

sunshinebbs · 2005-12-16

plenilune168 大虾，正是这个意思，但能不能直接转换'WM_LBUTTONDOWN' 而不用判断if edit2.text='WM_LBUTTONDOWN'，有这样的函数的吗？ edit3.text 用strtoint转换等

plenilune168 · 2005-12-16

没有现成的，要自己写： function StrToWinMessage(s:string):integer; begin  if s='WM_MOUSEFIRST' then Result:=$0200;  if s='WM_MOUSEMOVE'  then Result:=$0200;  if s='WM_LBUTTONDOWN' then Result:=$0201;  if s='WM_LBUTTONUP' then Result:=$0202;  if s='WM_LBUTTONDBLCLK' then Result:=$0203;  if s='WM_RBUTTONDOWN' then Result:=$0204;  if s='WM_RBUTTONUP' then Result:=$0205;  if s='WM_RBUTTONDBLCLK' then Result:=$0206;  if s='WM_MBUTTONDOWN' then Result:=$0207;  if s='WM_MBUTTONUP' then Result:=$0208;  if s='WM_MBUTTONDBLCLK' then Result:=$0209;  if s='WM_MOUSEWHEEL' then Result:=$020A;  if s='WM_MOUSELAST' then Result:=$020A; end;

sunshinebbs · 2005-12-16

//---------------------------------Str转换Cardinal------------------------------ function StrToCardinal(str: string): cardinal; begin  if str = 'BM_CLICK' then Result := BM_CLICK;  if str = 'BM_GETCHECK' then Result := BM_GETCHECK;  if str = 'BM_GETIMAGE' then Result := BM_GETIMAGE;  if str = 'BM_GETSTATE' then Result := BM_GETSTATE;  if str = 'BM_SETCHECK' then Result := BM_SETCHECK;  if str = 'BM_SETIMAGE' then Result := BM_SETIMAGE;  if str = 'BM_SETSTATE' then Result := BM_SETSTATE;  if str = 'BM_SETSTYLE' then Result := BM_SETSTYLE;  if str = 'CB_ADDSTRING' then Result := CB_ADDSTRING;  if str = 'CB_DELETESTRING' then Result := CB_DELETESTRING;  if str = 'CB_DIR' then Result := CB_DIR;  if str = 'CB_FINDSTRING' then Result := CB_FINDSTRING;  if str = 'CB_FINDSTRINGEXACT' then Result := CB_FINDSTRINGEXACT;  if str = 'CB_GETCOUNT' then Result := CB_GETCOUNT;  if str = 'CB_GETCURSEL' then Result := CB_GETCURSEL;  if str = 'CB_GETDROPPEDCONTROLRECT' then Result := CB_GETDROPPEDCONTROLRECT;  if str = 'CB_GETDROPPEDSTATE' then Result := CB_GETDROPPEDSTATE;  if str = 'CB_GETDROPPEDWIDTH' then Result := CB_GETDROPPEDWIDTH;  if str = 'CB_GETEDITSEL' then Result := CB_GETEDITSEL;  if str = 'CB_GETEXTENDEDUI' then Result := CB_GETEXTENDEDUI;  if str = 'CB_GETHORIZONTALEXTENT' then Result := CB_GETHORIZONTALEXTENT;  if str = 'CB_GETITEMDATA' then Result := CB_GETITEMDATA;  if str = 'CB_GETITEMHEIGHT' then Result := CB_GETITEMHEIGHT;  if str = 'CB_GETLBTEXT' then Result := CB_GETLBTEXT;  if str = 'CB_GETLBTEXTLEN' then Result := CB_GETLBTEXTLEN;  if str = 'CB_GETLOCALE' then Result := CB_GETLOCALE;  if str = 'CB_GETTOPINDEX' then Result := CB_GETTOPINDEX;  if str = 'CB_INITSTORAGE' then Result := CB_INITSTORAGE;  if str = 'CB_INSERTSTRING' then Result := CB_INSERTSTRING;  if str = 'CB_LIMITTEXT' then Result := CB_LIMITTEXT;  if str = 'CB_MSGMAX' then Result := CB_MSGMAX;  if str = 'CB_RESETCONTENT' then Result := CB_RESETCONTENT;  if str = 'CB_SELECTSTRING' then Result := CB_SELECTSTRING;  if str = 'CB_SETCURSEL' then Result := CB_SETCURSEL;  if str = 'CB_SETDROPPEDWIDTH' then Result := CB_SETDROPPEDWIDTH;  if str = 'CB_SETEDITSEL' then Result := CB_SETEDITSEL;  if str = 'CB_SETEXTENDEDUI' then Result := CB_SETEXTENDEDUI;  if str = 'CB_SETHORIZONTALEXTENT' then Result := CB_SETHORIZONTALEXTENT;  if str = 'CB_SETITEMDATA' then Result := CB_SETITEMDATA;  if str = 'CB_SETITEMHEIGHT' then Result := CB_SETITEMHEIGHT;  if str = 'CB_SETLOCALE' then Result := CB_SETLOCALE;  if str = 'CB_SETTOPINDEX' then Result := CB_SETTOPINDEX;  if str = 'CB_SHOWDROPDOWN' then Result := CB_SHOWDROPDOWN;  if str = 'DM_GETDEFID' then Result := DM_GETDEFID;  if str = 'DM_REPOSITION' then Result := DM_REPOSITION;  if str = 'DM_SETDEFID' then Result := DM_SETDEFID;  if str = 'EM_CANUNDO' then Result := EM_CANUNDO;  if str = 'EM_CHARFROMPOS' then Result := EM_CHARFROMPOS;  if str = 'EM_EMPTYUNDOBUFFER' then Result := EM_EMPTYUNDOBUFFER;  if str = 'EM_FMTLINES' then Result := EM_FMTLINES;  if str = 'EM_GETFIRSTVISIBLELINE' then Result := EM_GETFIRSTVISIBLELINE;  if str = 'EM_GETHANDLE' then Result := EM_GETHANDLE;  if str = 'EM_GETLIMITTEXT' then Result := EM_GETLIMITTEXT;  if str = 'EM_GETLINE' then Result := EM_GETLINE;  if str = 'EM_GETLINECOUNT' then Result := EM_GETLINECOUNT;  if str = 'EM_GETMARGINS' then Result := EM_GETMARGINS;  if str = 'EM_GETMODIFY' then Result := EM_GETMODIFY;  if str = 'EM_GETPASSWORDCHAR' then Result := EM_GETPASSWORDCHAR;  if str = 'EM_GETRECT' then Result := EM_GETRECT;  if str = 'EM_GETSEL' then Result := EM_GETSEL;  if str = 'EM_GETTHUMB' then Result := EM_GETTHUMB;  if str = 'EM_GETWORDBREAKPROC' then Result := EM_GETWORDBREAKPROC;  if str = 'EM_LIMITTEXT' then Result := EM_LIMITTEXT;  if str = 'EM_LINEFROMCHAR' then Result := EM_LINEFROMCHAR;  if str = 'EM_LINEINDEX' then Result := EM_LINEINDEX;  if str = 'EM_LINELENGTH' then Result := EM_LINELENGTH;  if str = 'EM_LINESCROLL' then Result := EM_LINESCROLL;  if str = 'EM_POSFROMCHAR' then Result := EM_POSFROMCHAR;  if str = 'EM_REPLACESEL' then Result := EM_REPLACESEL;  if str = 'EM_SCROLL' then Result := EM_SCROLL;  if str = 'EM_SCROLLCARET' then Result := EM_SCROLLCARET;  if str = 'EM_SETHANDLE' then Result := EM_SETHANDLE;  if str = 'EM_SETLIMITTEXT' then Result := EM_SETLIMITTEXT;  if str = 'EM_SETMARGINS' then Result := EM_SETMARGINS;  if str = 'EM_SETMODIFY' then Result := EM_SETMODIFY;  if str = 'EM_SETPASSWORDCHAR' then Result := EM_SETPASSWORDCHAR;  if str = 'EM_SETREADONLY' then Result := EM_SETREADONLY;  if str = 'EM_SETRECT' then Result := EM_SETRECT;  if str = 'EM_SETRECTNP' then Result := EM_SETRECTNP;  if str = 'EM_SETSEL' then Result := EM_SETSEL;  if str = 'EM_SETTABSTOPS' then Result := EM_SETTABSTOPS;  if str = 'EM_SETWORDBREAKPROC' then Result := EM_SETWORDBREAKPROC;  if str = 'EM_UNDO' then Result := EM_UNDO;  if str = 'LB_ADDFILE' then Result := LB_ADDFILE;  if str = 'LB_ADDSTRING' then Result := LB_ADDSTRING;  if str = 'LB_DELETESTRING' then Result := LB_DELETESTRING;  if str = 'LB_DIR' then Result := LB_DIR;  if str = 'LB_FINDSTRING' then Result := LB_FINDSTRING;  if str = 'LB_FINDSTRINGEXACT' then Result := LB_FINDSTRINGEXACT;  if str = 'LB_GETANCHORINDEX' then Result := LB_GETANCHORINDEX;  if str = 'LB_GETCARETINDEX' then Result := LB_GETCARETINDEX;  if str = 'LB_GETCOUNT' then Result := LB_GETCOUNT;  if str = 'LB_GETCURSEL' then Result := LB_GETCURSEL;  if str = 'LB_GETHORIZONTALEXTENT' then Result := LB_GETHORIZONTALEXTENT;  if str = 'LB_GETITEMDATA' then Result := LB_GETITEMDATA;  if str = 'LB_GETITEMHEIGHT' then Result := LB_GETITEMHEIGHT;  if str = 'LB_GETITEMRECT' then Result := LB_GETITEMRECT;  if str = 'LB_GETLOCALE' then Result := LB_GETLOCALE;  if str = 'LB_GETSEL' then Result := LB_GETSEL;  if str = 'LB_GETSELCOUNT' then Result := LB_GETSELCOUNT;  if str = 'LB_GETSELITEMS' then Result := LB_GETSELITEMS;  if str = 'LB_GETTEXT' then Result := LB_GETTEXT;  if str = 'LB_GETTEXTLEN' then Result := LB_GETTEXTLEN;  if str = 'LB_GETTOPINDEX' then Result := LB_GETTOPINDEX;  if str = 'LB_INITSTORAGE' then Result := LB_INITSTORAGE;  if str = 'LB_INSERTSTRING' then Result := LB_INSERTSTRING;  if str = 'LB_ITEMFROMPOINT' then Result := LB_ITEMFROMPOINT;  if str = 'LB_MSGMAX' then Result := LB_MSGMAX;  if str = 'LB_RESETCONTENT' then Result := LB_RESETCONTENT;  if str = 'LB_SELECTSTRING' then Result := LB_SELECTSTRING;  if str = 'LB_SELITEMRANGE' then Result := LB_SELITEMRANGE;  if str = 'LB_SELITEMRANGEEX' then Result := LB_SELITEMRANGEEX;  if str = 'LB_SETANCHORINDEX' then Result := LB_SETANCHORINDEX;  if str = 'LB_SETCARETINDEX' then Result := LB_SETCARETINDEX;  if str = 'LB_SETCOLUMNWIDTH' then Result := LB_SETCOLUMNWIDTH;  if str = 'LB_SETCOUNT' then Result := LB_SETCOUNT;  if str = 'LB_SETCURSEL' then Result := LB_SETCURSEL;  if str = 'LB_SETHORIZONTALEXTENT' then Result := LB_SETHORIZONTALEXTENT;  if str = 'LB_SETITEMDATA' then Result := LB_SETITEMDATA;  if str = 'LB_SETITEMHEIGHT' then Result := LB_SETITEMHEIGHT;  if str = 'LB_SETLOCALE' then Result := LB_SETLOCALE;  if str = 'LB_SETSEL' then Result := LB_SETSEL;  if str = 'LB_SETTABSTOPS' then Result := LB_SETTABSTOPS;  if str = 'LB_SETTOPINDEX' then Result := LB_SETTOPINDEX;  if str = 'SBM_ENABLE_ARROWS' then Result := SBM_ENABLE_ARROWS;  if str = 'SBM_GETPOS' then Result := SBM_GETPOS;  if str = 'SBM_GETRANGE' then Result := SBM_GETRANGE;  if str = 'SBM_GETSCROLLINFO' then Result := SBM_GETSCROLLINFO;  if str = 'SBM_SETPOS' then Result := SBM_SETPOS;  if str = 'SBM_SETRANGE' then Result := SBM_SETRANGE;  if str = 'SBM_SETRANGEREDRAW' then Result := SBM_SETRANGEREDRAW;  if str = 'SBM_SETSCROLLINFO' then Result := SBM_SETSCROLLINFO;  if str = 'STM_GETICON' then Result := STM_GETICON;  if str = 'STM_GETIMAGE' then Result := STM_GETIMAGE;  if str = 'STM_MSGMAX' then Result := STM_MSGMAX;  if str = 'STM_SETICON' then Result := STM_SETICON;  if str = 'STM_SETIMAGE' then Result := STM_SETIMAGE;  if str = 'WM_ACTIVATE' then Result := WM_ACTIVATE;  if str = 'WM_ACTIVATEAPP' then Result := WM_ACTIVATEAPP;  if str = 'WM_APP' then Result := WM_APP;  if str = 'WM_ASKCBFORMATNAME' then Result := WM_ASKCBFORMATNAME;  if str = 'WM_CANCELJOURNAL' then Result := WM_CANCELJOURNAL;  if str = 'WM_CANCELMODE' then Result := WM_CANCELMODE;  if str = 'WM_CAPTURECHANGED' then Result := WM_CAPTURECHANGED;  if str = 'WM_CHANGECBCHAIN' then Result := WM_CHANGECBCHAIN;  if str = 'WM_CHAR' then Result := WM_CHAR;  if str = 'WM_CHARTOITEM' then Result := WM_CHARTOITEM;  if str = 'WM_CHILDACTIVATE' then Result := WM_CHILDACTIVATE;  if str = 'WM_CLEAR' then Result := WM_CLEAR;  if str = 'WM_CLOSE' then Result := WM_CLOSE;  if str = 'WM_COALESCE_FIRST' then Result := WM_COALESCE_FIRST;  if str = 'WM_COALESCE_LAST' then Result := WM_COALESCE_LAST;  if str = 'WM_COMMAND' then Result := WM_COMMAND;  if str = 'WM_COMMNOTIFY' then Result := WM_COMMNOTIFY;  if str = 'WM_COMPACTING' then Result := WM_COMPACTING;  if str = 'WM_COMPAREITEM' then Result := WM_COMPAREITEM;  if str = 'WM_CONTEXTMENU' then Result := WM_CONTEXTMENU;  if str = 'WM_COPY' then Result := WM_COPY;  if str = 'WM_COPYDATA' then Result := WM_COPYDATA;  if str = 'WM_CREATE' then Result := WM_CREATE;  if str = 'WM_CTLCOLOR' then Result := WM_CTLCOLOR;  if str = 'WM_CTLCOLORBTN' then Result := WM_CTLCOLORBTN;  if str = 'WM_CTLCOLORDLG' then Result := WM_CTLCOLORDLG;  if str = 'WM_CTLCOLOREDIT' then Result := WM_CTLCOLOREDIT;  if str = 'WM_CTLCOLORLISTBOX' then Result := WM_CTLCOLORLISTBOX;  if str = 'WM_CTLCOLORMSGBOX' then Result := WM_CTLCOLORMSGBOX;  if str = 'WM_CTLCOLORSCROLLBAR' then Result := WM_CTLCOLORSCROLLBAR;  if str = 'WM_CTLCOLORSTATIC' then Result := WM_CTLCOLORSTATIC;  if str = 'WM_CUT' then Result := WM_CUT;  if str = 'WM_DDE_ACK' then Result := WM_DDE_ACK;  if str = 'WM_DDE_ADVISE' then Result := WM_DDE_ADVISE;  if str = 'WM_DDE_DATA' then Result := WM_DDE_DATA;  if str = 'WM_DDE_EXECUTE' then Result := WM_DDE_EXECUTE;  if str = 'WM_DDE_FIRST' then Result := WM_DDE_FIRST;  if str = 'WM_DDE_INITIATE' then Result := WM_DDE_INITIATE;  if str = 'WM_DDE_LAST' then Result := WM_DDE_LAST;  if str = 'WM_DDE_POKE' then Result := WM_DDE_POKE;  if str = 'WM_DDE_REQUEST' then Result := WM_DDE_REQUEST;  if str = 'WM_DDE_TERMINATE' then Result := WM_DDE_TERMINATE;  if str = 'WM_DDE_UNADVISE' then Result := WM_DDE_UNADVISE;  if str = 'WM_DEADCHAR' then Result := WM_DEADCHAR;  if str = 'WM_DELETEITEM' then Result := WM_DELETEITEM;  if str = 'WM_DESTROY' then Result := WM_DESTROY;  if str = 'WM_DESTROYCLIPBOARD' then Result := WM_DESTROYCLIPBOARD;  if str = 'WM_DEVICECHANGE' then Result := WM_DEVICECHANGE;  if str = 'WM_DEVMODECHANGE' then Result := WM_DEVMODECHANGE;  if str = 'WM_DISPLAYCHANGE' then Result := WM_DISPLAYCHANGE;  if str = 'WM_DRAWCLIPBOARD' then Result := WM_DRAWCLIPBOARD;  if str = 'WM_DRAWITEM' then Result := WM_DRAWITEM;  if str = 'WM_DROPFILES' then Result := WM_DROPFILES;  if str = 'WM_ENABLE' then Result := WM_ENABLE;  if str = 'WM_ENDSESSION' then Result := WM_ENDSESSION;  if str = 'WM_ENTERIDLE' then Result := WM_ENTERIDLE;  if str = 'WM_ENTERMENULOOP' then Result := WM_ENTERMENULOOP;  if str = 'WM_ENTERSIZEMOVE' then Result := WM_ENTERSIZEMOVE;  if str = 'WM_ERASEBKGND' then Result := WM_ERASEBKGND;  if str = 'WM_EXITMENULOOP' then Result := WM_EXITMENULOOP;  if str = 'WM_EXITSIZEMOVE' then Result := WM_EXITSIZEMOVE;  if str = 'WM_FONTCHANGE' then Result := WM_FONTCHANGE;  if str = 'WM_GETDLGCODE' then Result := WM_GETDLGCODE;  if str = 'WM_GETFONT' then Result := WM_GETFONT;  if str = 'WM_GETHOTKEY' then Result := WM_GETHOTKEY;  if str = 'WM_GETICON' then Result := WM_GETICON;  if str = 'WM_GETMINMAXINFO' then Result := WM_GETMINMAXINFO;  if str = 'WM_GETTEXT' then Result := WM_GETTEXT;  if str = 'WM_GETTEXTLENGTH' then Result := WM_GETTEXTLENGTH;  if str = 'WM_HANDHELDFIRST' then Result := WM_HANDHELDFIRST;  if str = 'WM_HANDHELDLAST' then Result := WM_HANDHELDLAST;  if str = 'WM_HELP' then Result := WM_HELP;  if str = 'WM_HOTKEY' then Result := WM_HOTKEY;  if str = 'WM_HSCROLL' then Result := WM_HSCROLL;  if str = 'WM_HSCROLLCLIPBOARD' then Result := WM_HSCROLLCLIPBOARD;  if str = 'WM_ICONERASEBKGND' then Result := WM_ICONERASEBKGND;  if str = 'WM_IME_CHAR' then Result := WM_IME_CHAR;  if str = 'WM_IME_COMPOSITION' then Result := WM_IME_COMPOSITION;  if str = 'WM_IME_COMPOSITIONFULL' then Result := WM_IME_COMPOSITIONFULL;  if str = 'WM_IME_CONTROL' then Result := WM_IME_CONTROL;  if str = 'WM_IME_ENDCOMPOSITION' then Result := WM_IME_ENDCOMPOSITION;  if str = 'WM_IME_KEYDOWN' then Result := WM_IME_KEYDOWN;  if str = 'WM_IME_KEYLAST' then Result := WM_IME_KEYLAST;  if str = 'WM_IME_KEYUP' then Result := WM_IME_KEYUP;  if str = 'WM_IME_NOTIFY' then Result := WM_IME_NOTIFY;  if str = 'WM_IME_SELECT' then Result := WM_IME_SELECT;  if str = 'WM_IME_SETCONTEXT' then Result := WM_IME_SETCONTEXT;  if str = 'WM_IME_STARTCOMPOSITION' then Result := WM_IME_STARTCOMPOSITION;  if str = 'WM_INITDIALOG' then Result := WM_INITDIALOG;  if str = 'WM_INITMENU' then Result := WM_INITMENU;  if str = 'WM_INITMENUPOPUP' then Result := WM_INITMENUPOPUP;  if str = 'WM_INPUTLANGCHANGE' then Result := WM_INPUTLANGCHANGE;  if str = 'WM_INPUTLANGCHANGEREQUEST' then Result := WM_INPUTLANGCHANGEREQUEST;  if str = 'WM_KEYDOWN' then Result := WM_KEYDOWN;  if str = 'WM_KEYFIRST' then Result := WM_KEYFIRST;  if str = 'WM_KEYLAST' then Result := WM_KEYLAST;  if str = 'WM_KEYUP' then Result := WM_KEYUP;  if str = 'WM_KILLFOCUS' then Result := WM_KILLFOCUS;  if str = 'WM_LBUTTONDBLCLK' then Result := WM_LBUTTONDBLCLK;  if str = 'WM_LBUTTONDOWN' then Result := WM_LBUTTONDOWN;  if str = 'WM_LBUTTONUP' then Result := WM_LBUTTONUP;  if str = 'WM_MBUTTONDBLCLK' then Result := WM_MBUTTONDBLCLK;  if str = 'WM_MBUTTONDOWN' then Result := WM_MBUTTONDOWN;  if str = 'WM_MBUTTONUP' then Result := WM_MBUTTONUP;  if str = 'WM_MDIACTIVATE' then Result := WM_MDIACTIVATE;  if str = 'WM_MDICASCADE' then Result := WM_MDICASCADE;  if str = 'WM_MDICREATE' then Result := WM_MDICREATE;  if str = 'WM_MDIDESTROY' then Result := WM_MDIDESTROY;  if str = 'WM_MDIGETACTIVE' then Result := WM_MDIGETACTIVE;  if str = 'WM_MDIICONARRANGE' then Result := WM_MDIICONARRANGE;  if str = 'WM_MDIMAXIMIZE' then Result := WM_MDIMAXIMIZE;  if str = 'WM_MDINEXT' then Result := WM_MDINEXT;  if str = 'WM_MDIREFRESHMENU' then Result := WM_MDIREFRESHMENU;  if str = 'WM_MDIRESTORE' then Result := WM_MDIRESTORE;  if str = 'WM_MDISETMENU' then Result := WM_MDISETMENU;  if str = 'WM_MDITILE' then Result := WM_MDITILE;  if str = 'WM_MEASUREITEM' then Result := WM_MEASUREITEM;  if str = 'WM_MENUCHAR' then Result := WM_MENUCHAR;  if str = 'WM_MENUSELECT' then Result := WM_MENUSELECT;  if str = 'WM_MOUSEACTIVATE' then Result := WM_MOUSEACTIVATE;  if str = 'WM_MOUSEFIRST' then Result := WM_MOUSEFIRST;  if str = 'WM_MOUSEHOVER' then Result := WM_MOUSEHOVER;  if str = 'WM_MOUSELAST' then Result := WM_MOUSELAST;  if str = 'WM_MOUSELEAVE' then Result := WM_MOUSELEAVE;  if str = 'WM_MOUSEMOVE' then Result := WM_MOUSEMOVE;  if str = 'WM_MOUSEWHEEL' then Result := WM_MOUSEWHEEL;  if str = 'WM_MOVE' then Result := WM_MOVE;  if str = 'WM_MOVING' then Result := WM_MOVING;  if str = 'WM_NCACTIVATE' then Result := WM_NCACTIVATE;  if str = 'WM_NCCALCSIZE' then Result := WM_NCCALCSIZE;  if str = 'WM_NCCREATE' then Result := WM_NCCREATE;  if str = 'WM_NCDESTROY' then Result := WM_NCDESTROY;  if str = 'WM_NCHITTEST' then Result := WM_NCHITTEST;  if str = 'WM_NCLBUTTONDBLCLK' then Result := WM_NCLBUTTONDBLCLK;  if str = 'WM_NCLBUTTONDOWN' then Result := WM_NCLBUTTONDOWN;  if str = 'WM_NCLBUTTONUP' then Result := WM_NCLBUTTONUP;  if str = 'WM_NCMBUTTONDBLCLK' then Result := WM_NCMBUTTONDBLCLK;  if str = 'WM_NCMBUTTONDOWN' then Result := WM_NCMBUTTONDOWN;  if str = 'WM_NCMBUTTONUP' then Result := WM_NCMBUTTONUP;  if str = 'WM_NCMOUSEMOVE' then Result := WM_NCMOUSEMOVE;  if str = 'WM_NCPAINT' then Result := WM_NCPAINT;  if str = 'WM_NCRBUTTONDBLCLK' then Result := WM_NCRBUTTONDBLCLK;  if str = 'WM_NCRBUTTONDOWN' then Result := WM_NCRBUTTONDOWN;  if str = 'WM_NCRBUTTONUP' then Result := WM_NCRBUTTONUP;  if str = 'WM_NEXTDLGCTL' then Result := WM_NEXTDLGCTL;  if str = 'WM_NEXTMENU' then Result := WM_NEXTMENU;  if str = 'WM_NOTIFY' then Result := WM_NOTIFY;  if str = 'WM_NOTIFYFORMAT' then Result := WM_NOTIFYFORMAT;  if str = 'WM_NULL' then Result := WM_NULL;  if str = 'WM_PAINT' then Result := WM_PAINT;  if str = 'WM_PAINTCLIPBOARD' then Result := WM_PAINTCLIPBOARD;  if str = 'WM_PAINTICON' then Result := WM_PAINTICON;  if str = 'WM_PALETTECHANGED' then Result := WM_PALETTECHANGED;  if str = 'WM_PALETTEISCHANGING' then Result := WM_PALETTEISCHANGING;  if str = 'WM_PARENTNOTIFY' then Result := WM_PARENTNOTIFY;  if str = 'WM_PASTE' then Result := WM_PASTE;  if str = 'WM_PENWINFIRST' then Result := WM_PENWINFIRST;  if str = 'WM_PENWINLAST' then Result := WM_PENWINLAST;  if str = 'WM_POWER' then Result := WM_POWER;  if str = 'WM_POWERBROADCAST' then Result := WM_POWERBROADCAST;  if str = 'WM_PRINT' then Result := WM_PRINT;  if str = 'WM_PRINTCLIENT' then Result := WM_PRINTCLIENT;  if str = 'WM_QUERYDRAGICON' then Result := WM_QUERYDRAGICON;  if str = 'WM_QUERYENDSESSION' then Result := WM_QUERYENDSESSION;  if str = 'WM_QUERYNEWPALETTE' then Result := WM_QUERYNEWPALETTE;  if str = 'WM_QUERYOPEN' then Result := WM_QUERYOPEN;  if str = 'WM_QUEUESYNC' then Result := WM_QUEUESYNC;  if str = 'WM_QUIT' then Result := WM_QUIT;  if str = 'WM_RBUTTONDBLCLK' then Result := WM_RBUTTONDBLCLK;  if str = 'WM_RBUTTONDOWN' then Result := WM_RBUTTONDOWN;  if str = 'WM_RBUTTONUP' then Result := WM_RBUTTONUP;  if str = 'WM_RENDERALLFORMATS' then Result := WM_RENDERALLFORMATS;  if str = 'WM_RENDERFORMAT' then Result := WM_RENDERFORMAT;  if str = 'WM_SETCURSOR' then Result := WM_SETCURSOR;  if str = 'WM_SETFOCUS' then Result := WM_SETFOCUS;  if str = 'WM_SETFONT' then Result := WM_SETFONT;  if str = 'WM_SETHOTKEY' then Result := WM_SETHOTKEY;  if str = 'WM_SETICON' then Result := WM_SETICON;  if str = 'WM_SETREDRAW' then Result := WM_SETREDRAW;  if str = 'WM_SETTEXT' then Result := WM_SETTEXT;  if str = 'WM_SETTINGCHANGE' then Result := WM_SETTINGCHANGE;  if str = 'WM_SHOWWINDOW' then Result := WM_SHOWWINDOW;  if str = 'WM_SIZE' then Result := WM_SIZE;  if str = 'WM_SIZECLIPBOARD' then Result := WM_SIZECLIPBOARD;  if str = 'WM_SIZING' then Result := WM_SIZING;  if str = 'WM_SPOOLERSTATUS' then Result := WM_SPOOLERSTATUS;  if str = 'WM_STYLECHANGED' then Result := WM_STYLECHANGED;  if str = 'WM_STYLECHANGING' then Result := WM_STYLECHANGING;  if str = 'WM_SYSCHAR' then Result := WM_SYSCHAR;  if str = 'WM_SYSCOLORCHANGE' then Result := WM_SYSCOLORCHANGE;  if str = 'WM_SYSCOMMAND' then Result := WM_SYSCOMMAND;  if str = 'WM_SYSDEADCHAR' then Result := WM_SYSDEADCHAR;  if str = 'WM_SYSKEYDOWN' then Result := WM_SYSKEYDOWN;  if str = 'WM_SYSKEYUP' then Result := WM_SYSKEYUP;  if str = 'WM_SYSTEMERROR' then Result := WM_SYSTEMERROR;  if str = 'WM_TCARD' then Result := WM_TCARD;  if str = 'WM_TIMECHANGE' then Result := WM_TIMECHANGE;  if str = 'WM_TIMER' then Result := WM_TIMER;  if str = 'WM_UNDO' then Result := WM_UNDO;  if str = 'WM_USER' then Result := WM_USER;  if str = 'WM_USERCHANGED' then Result := WM_USERCHANGED;  if str = 'WM_VKEYTOITEM' then Result := WM_VKEYTOITEM;  if str = 'WM_VSCROLL' then Result := WM_VSCROLL;  if str = 'WM_VSCROLLCLIPBOARD' then Result := WM_VSCROLLCLIPBOARD;  if str = 'WM_WINDOWPOSCHANGED' then Result := WM_WINDOWPOSCHANGED;  if str = 'WM_WINDOWPOSCHANGING' then Result := WM_WINDOWPOSCHANGING;  if str = 'WM_WININICHANGE' then Result := WM_WININICHANGE; end; 运行后出现错误: [Warning] Unit1.pas(625): Return value of function 'Tmainform.StrToCardinal' might be undefined

sunshinebbs · 2005-12-16

接受答案

关于转转问题！ ( 积分: 50 )

sunshinebbs

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

Similar threads