| ²é¿´: 332 | »Ø¸´: 0 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
sdlj8051½ð³æ (ÖøÃûдÊÖ)
|
[½»Á÷]
[תÌù]ANTI-DEDEµÄ¼¸¸ö·½·¨
|
||
|
DEDE¶ÔÓÚDELPHI³ÌÐòµÄÍþвÊǺܴóµÄ£¬ÔõÑùANTI-DEDEÄØ£¿ ·½·¨Ò»£ºÔÚFORMÉÏʹÓÃÒ»¸öFRAME£¬·Àֹͨ¹ýDEDEµÄDFM EDITORÖ±½ÓÌøµ½º¯Êý»ò¹ý³ÌÀï¡£ ĿǰDEDE²¢²»ÄܺܺõØÖ§³ÖFRAME£¬ËùÒÔ¼ÓÉÏÒ»¸öFRAME£¬Ëû¾ÍÎÞ·¨Éú³ÉFORMµÄͼÐνçÃæ£¬ÏÖÔÚ¿ÉÒÔÀûÓÃDEDEµÄÕâ¸öȱÏÝ¡£ ÀàËÆµÄȱÏÝ£¬Èç¹û¸ÐÐËȤ¿ÉÒÔ×Ô¼ºÕÒ£¬±ÈÈ磺 ÔÚFORMÀïµÄij¸ö¿Ø¼þÀïʹÓÃÖÐÎÄ×Ö£¬ºÃÏñÓеÄDEDE¾ÍÎÞ·¨Õý³£ÏÔʾÕâ¸öFORM£¬ÖîÈç´ËÀà¡£ ·½·¨¶þ£ºÒþ²ØÄãµÄ¹ý³Ì»òº¯Êý£º ÓÐЩÈËÔÚ·ÖÎöDELPHIдµÄ³ÌÐòʱ£¬ÓÐʱ»á·¢ÏÖÔÚ·´±àÒëºóFORMµÄʼþÁбíÀᄍȻÊǿյģ¬ÕâÊÇÔõôʵÏÖµÄÄØ£¿ DEDEʹÓÃDELPHIµÄRTTLÔÀí£¬ËùÒÔ¿ÉÒÔÇáÒ×µØÁгöËùÓÐPUBLISHEDÏÂÃæµÄº¯Êý¼°¹ý³ÌÃû--×¢ÒâÊǹý³ÌÃû£¬ËùÒÔͨ¹ýDEDE¿ÉÒÔÇáËɵØÕÒµ½º¯Êý»ò¹ý³ÌµÄÈë¿Ú¡£ Èç¹ûÄãÕæµÄÏë×èÖ¹DEDE¼òµ¥×¼È·µØÌøµ½º¯Êý»ò¹ý³ÌÀ¿ÉÒÔ³¢ÊÔÏÂÃæµÄ·½·¨£º ²»ÒªÓÃDELPHI×Ô¶¯Éú³Éʼþ£¬»òÕßÊÇ×îºó×Ô¼ºÊÖ¹¤É¾³ýÔÚÊôÐÔ¿òÀï¶ÔÕâЩʼþÒýÓ㬸ÄΪ¶¯Ì¬Éú³Éʼþ¡£ µ« ×¢Ò⣺Õâ±È½ÏÀÛ£¬ÒªÐ´Ð©¶¯Ì¬´úÂë¡£ÊDz»ÊÇÒªÕæµÄÕâÑù×ö£¬Äã×Ô¼º¿¼ÂǺᣠ°ÑPRIVATEÉÏÃæµÄº¯Êý»ò¹ý³ÌÒÆ¶¯µ½PRIVATEÀïÃæ¶¨Òå¡£ ÕâÑù×÷µÄºÃ´¦ÊÇ£º DEDEÎÞ·¨Ö±½ÓÁгöʵÃûµÄ¹ý³Ì»òº¯Êý£»µ«Ä³Ð©°æ±¾ÈÔ¿ÉÒÔÁгöÈ«²¿Ëæ»úÃüÃûµÄʼþ£¬µ«ÕâʱDEDE¿ÉÒÔÌṩµÄ°ïÖú¾ÍÓÐÏÞÁË£» ÓÉÓÚʼþÊǶ¯Ì¬Éú³É£¬ËùÒÔÏëͨ¹ý²éÕÒFORMÀïµÄÀàËÆOnClickʼþ¾ÍÕÒµ½Èë¿ÚµØÖ·µÄŬÁ¦»¯ÎªÅÝÓ°£¬»òÕß˵Ôö¼ÓÁËÄѶȡ£ Èç¹ûÄãµÄÒ»¸öFORM¶¼ÊÇÀûÓÃÉÏÃæµÄ·½·¨Éú³ÉµÄ--±ÈÈçÁ¬FORMCREATEÄã¶¼×Ô¶¨Ò壬ÄÇDEDEÔÚÏÔʾʼþÀ¸Àï»áÏÔʾ¿Õ¡£ ȱµã£º ÊÖ¹¤¶à£»±ØÐëɾ³ýÊôÐÔ¿òÀïÉú³ÉµÄʼþ´úÂ룬±È½ÏÀÛ£¬Å¼¶ûÍæÍæ»¹¿ÉÒÔ¡£ ¼òµ¥µÄÀý×Ó£º //========================================================= unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; private { Private declarations } //£¡£¡£¡ procedure yourFormCreate; procedure yourFormClose(Sender: TObject; var Action: TCloseAction); procedure yourFormDestroy(Sender: TObject); procedure yourButton1Click(Sender: TObject); public { Public declarations } constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation {$R *.dfm} constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); yourFormCreate; end; procedure TForm1.yourFormCreate; begin //!!!!!!! OnClose := yourFormClose; OnDestroy := yourFormDestroy; Button1.OnClick := yourButton1Click; end; procedure TForm1.yourFormClose(Sender: TObject; var Action: TCloseAction); begin showmessage('yourFormClose'); close; end; procedure TForm1.yourFormDestroy(Sender: TObject); begin showmessage('yourFormDestroy'); end; procedure TForm1.yourButton1Click(Sender: TObject); begin showmessage('yourButton1Click'); end; end. //========================================================= ÒÔÉÏÊÇÎÒÊÔ³öÀ´µÄ£¬»¶Ó´ó¼ÒÅê»÷²»µ±Ö®´¦£¬Ð»Ð»£¡ н¨¹¤³Ì,Ö»Ìí¼ÓÒ»¸öButton1£¬´ó¼Ò°ÑÒÔÉÏ´úÂë¸´ÖÆµ½UNIT1.pasÀ½ÓמͱàÒ룬ȻºóÓÃDEDEÔØÈ룬¿´¿´¿ÉÒÔ¿´µ½Ê²Ã´£¿£¿ºÇºÇ£¬ÔÚDEDEÀï²é¿´FORM1µÄʼþÁбíÊÇ¡°¿Õ¡±µÄ£¡ ×¢Ò⣺Óë·½·¨Ò»½áºÏÆðÀ´£¬»á¸üÓÐЧµØ×èÖ¹ËûÈËÈ¡µÃʼþÈë¿Úµã¡£·½·¨Ò»×Ô¼ºÈ¥ÊÔ°É£¬¾Í²»Ìù´úÂëÁË¡£ [ Last edited by sdlj8051 on 2006-10-6 at 12:33 ] |
» ²ÂÄãϲ»¶
¡¾¿¼Ñе÷¼Á¡¿»¯Ñ§×¨Òµ 281·Ö£¬Ò»Ö¾Ô¸ËÄ´¨´óѧ£¬³ÏÐÄÇóµ÷¼Á
ÒѾÓÐ12È˻ظ´
Ò»Ö¾Ô¸ºÓ±±¹¤Òµ´óѧ0817»¯¹¤278·ÖÇóµ÷¼Á
ÒѾÓÐ12È˻ظ´
²ÄÁϵ÷¼Á
ÒѾÓÐ5È˻ظ´
081700 µ÷¼Á 267·Ö
ÒѾÓÐ8È˻ظ´
Çë½ÌÏ´ó¼Ò 2026Äê¹ú¼Ò»ù½ðÉêÇëÊÇ˫äÉóÂð£¿
ÒѾÓÐ5È˻ظ´
276Çóµ÷¼Á¡£ÓаëÄêµç³ØºÍ°ëÄê¸ß·Ö×Óʵϰ¾Àú
ÒѾÓÐ10È˻ظ´
Ò»Ö¾Ô¸ÄϺ½²ÄÁÏר317·ÖÇóµ÷¼Á
ÒѾÓÐ4È˻ظ´
Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
ÉúÎïѧѧ˶Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
284Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´













»Ø¸´´ËÂ¥