請問一下  我的目的是想在一張圖片上圈選出一個矩形區域 我的程式碼如下 可是跑起來都沒動作  哪邊出現問題了嗎?

void __fastcall TForm1::img3MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
//選取矩形區域
 bool check=true;
 int x1,x2,y1,y2;
 if (check==true)
  {
   x1=X,y1=Y;
   check=false;
  }
  else if(check==false)
  {
  x2=X,y2=Y;
  check=true;
  img4->Canvas->Pen->Color=clPurple;
  img4->Canvas->Pen->Width=3;
  img4->Canvas->Pen->Style=bsSolid;
  img4->Canvas->Pen->Mode=7;
  img4->Canvas->Rectangle(x1,y1,x2,y2);
  }    }

引言: 請問一下 我的目的是想在一張圖片上圈選出一個矩形區域 我的程式碼如下 可是跑起來都沒動作 哪邊出現問題了嗎?

void __fastcall TForm1::img3MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
//選取矩形區域
 bool check=true;
 int x1,x2,y1,y2;
 if (check==true)
  {
   x1=X,y1=Y;
   check=false;
  }
  else if(check==false)
  {
  x2=X,y2=Y;
  check=true;
  img4->Canvas->Pen->Color=clPurple;
  img4->Canvas->Pen->Width=3;
  img4->Canvas->Pen->Style=bsSolid;
  img4->Canvas->Pen->Mode=7;
  img4->Canvas->Rectangle(x1,y1,x2,y2);
  }    }

因為每次都是true,永遠都不會是false,所以都畫不出來 小弟的作法 MouseDown 得到起始座標 MouseUp 得到結束座標 FYR

你好， 參考以下程式碼: < class="code"> bool check=false; int x1,x2,y1,y2; //------------------------------------------------------------------ void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { check=true; if(check) { x1=X Image1->Left; y1=Y Image1->Top; } } //------------------------------------------------------------------ void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(check) { x2=X Image1->Left; y2=Y Image1->Top; Canvas->Pen->Color=clPurple; Canvas->Pen->Width=3; Canvas->Pen->Style=bsSolid; Canvas->Pen->Mode=7; Canvas->Rectangle(x1,y1,x2,y2); } check=false; } 國泰平安

引言: 請問一下 我的目的是想在一張圖片上圈選出一個矩形區域 我的程式碼如下 可是跑起來都沒動作 哪邊出現問題了嗎?

void __fastcall TForm1::img3MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
//選取矩形區域
 bool check=true;
 int x1,x2,y1,y2;
 if (check==true)
  {
   x1=X,y1=Y;
   check=false;
  }
  else if(check==false)
  {
  x2=X,y2=Y;
  check=true;
  img4->Canvas->Pen->Color=clPurple;
  img4->Canvas->Pen->Width=3;
  img4->Canvas->Pen->Style=bsSolid;
  img4->Canvas->Pen->Mode=7;
  img4->Canvas->Rectangle(x1,y1,x2,y2);
  }    }

< face="Verdana, Arial, Helvetica"> jiaching 你好: 請參考以下的範例程式碼

感謝各位先進的熱烈回應  但是gemi0305比較符合我的需求 所以就給他了 還是感謝各位