我想建立一個可拖拉的shape...怎樣做 |
|
尚未結案
|
|
jy02927731
一般會員   發表：3 回覆：4 積分：1 註冊：2007-06-03 發送簡訊給我 |
|
|
harpist
資深會員   發表：3 回覆：251 積分：430 註冊：2002-10-03 發送簡訊給我 |
把程式碼貼出來吧!不然實在很難理解什麼是"無法在它的事件裏面產生任何event"...
 ===================引 用 jy02927731 文 章=================== 當我new tshape後,建立一個新shape,但我無法在它的事件裏面產生任何event.....
------
~§~迷時師渡，悟了自渡~§~ |
|
jy02927731
一般會員 發表：3 回覆：4 積分：1 註冊：2007-06-03 發送簡訊給我 |
|
|
renard
一般會員 發表：3 回覆：43 積分：24 註冊：2007-06-29 發送簡訊給我 |
新建一個專案,From內沒有東西,只有一個create事件,
然後在H檔的published內自定函式Shape1MouseUp. __published: void __fastcall Shape1MouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y); void __fastcall TForm1::FormCreate(TObject *Sender) { TShape *Shape1=new TShape(this); Shape1->Height=100; Shape1->Width=100; Shape1->Top=0; Shape1->Left=0; Shape1->Parent=Form1; Shape1->Shape1MouseUp; } //--------------------------------------------------------------------------- void __fastcall TForm1::Shape1MouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y) { ((TShape*)Sender)->Left=((TShape*)Sender)->Left X; ((TShape*)Sender)->Top=((TShape*)Sender)->Top Y; } //--------------------------------------------------------------------------- |
|
jy02927731
一般會員 發表：3 回覆：4 積分：1 註冊：2007-06-03 發送簡訊給我 |
|
|
renard
一般會員 發表：3 回覆：43 積分：24 註冊：2007-06-29 發送簡訊給我 |
發表時間：2007-07-19 09:40:48
IP:125.31.xxx.xxx 訂閱
系統時間：2025-03-10 0:25:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |