"點"程式。滑鼠點下的地方沒有點，而點卻在其他地方，要如何修改 |
|
答題得分者是：g9412747
|
|
ttccdd
一般會員   發表：11 回覆：1 積分：2 註冊：2009-11-30 發送簡訊給我 |
void __fastcall TForm4::Image2MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y) { Image2->Canvas->Pen->Width=5; Image2->Canvas->Pen->Style=psSolid; Image2->Canvas->Pen->Color=clRed; Image2->Canvas->MoveTo(X,Y); Image2->Canvas->LineTo(X,Y); Label1->Caption=X; Label2->Caption=Y; } 這是我寫"點"的部分，可是為什麼在Image2裡，沒有辦法在我滑鼠點選的地方出現'點'，都出現在其他錯誤地方 程式哪裡有錯誤或是增加哪些程式，才有辦法滑鼠點下時，出現點 ，而不是點出現在錯的地方
------
50 mp6fm06 編輯記錄
taishyang 重新編輯於 2010-03-16 17:32:42， 註解 無‧
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
ttccdd
一般會員 發表：11 回覆：1 積分：2 註冊：2009-11-30 發送簡訊給我 |
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
老大仔
尊榮會員 發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
會不會是....
Label1和Label2的Caption是要代入字串的 而你的X跟Y都是數值 當然會錯... ===================引 用 ttccdd 文 章=================== void __fastcall TForm4::Image2MouseDown(TObject *Sender, TMouseButton Button, ?? TShiftState Shift, int X, int Y) { ?Image2->Canvas->Pen->Width=5; Image2->Canvas->Pen->Style=psSolid; ?Image2->Canvas->Pen->Color=clRed; ? Image2->Canvas->MoveTo(X,Y); ?? Image2->Canvas->LineTo(X,Y); ? Label1->Caption=X; ? Label2->Caption=Y; } 這是我寫"點"的部分，可是為什麼在Image2裡，沒有辦法在我滑鼠點選的地方出現'點'，都出現在其他錯誤地方 程式哪裡有錯誤或是增加哪些程式，才有辦法滑鼠點下時，出現點 ，而不是點出現在錯的地方
編輯記錄
老大仔 重新編輯於 2010-03-16 18:07:17， 註解 無‧
|
|
g9412747
初階會員 發表：3 回覆：28 積分：36 註冊：2009-02-25 發送簡訊給我 |
[code cpp] #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; POINT pt1; bool state = false; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { pt1.x = X; pt1.y = Y; state = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(state==true) { Image1->Canvas->Pen->Width=5; Image1->Canvas->Pen->Style=psSolid; Image1->Canvas->Pen->Color=clRed; Image1->Canvas->MoveTo(pt1.x,pt1.y); Image1->Canvas->LineTo(X,Y); //Label1->Caption=X; //Label2->Caption=Y; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { state = false; } //--------------------------------------------------------------------------- [/code] 因不確定你用途,因此提供一個code,請你參考看看是不是你想要的！ |
發表時間：2010-03-16 17:31:37
IP:163.21.xxx.xxx 訂閱
系統時間：2024-04-25 20:48:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |