各位,您好: 請問 因為需要顯示的結果太多了,所以我拉了兩個StringGrid來顯示資料. 但是我希望第一個StringGrid選中第幾列時,第二個StringGrid也會自動移到那一列..不知各位先進有什麼好方法嗎?謝謝!

引言: 各位,您好: 請問 因為需要顯示的結果太多了,所以我拉了兩個StringGrid來顯示資料. 但是我希望第一個StringGrid選中第幾列時,第二個StringGrid也會自動移到那一列..不知各位先進有什麼好方法嗎?謝謝!

palw你好： class="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { StringGrid1->RowCount=10; //測試環境給定 - StringGrid1 StringGrid1->ColCount=10; int cnt=0; for (int i=0;i<10;i ) { for (int j=0;j<10;j ) StringGrid1->Cells[j][i]=cnt ; } StringGrid2->RowCount=10; //測試環境給定 - StringGrid2 StringGrid2->ColCount=10; cnt=0; for (int i=0;i<10;i ) { for (int j=0;j<10;j ) StringGrid2->Cells[j][i]=cnt ; } } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect) { TGridRect myRect; myRect.Left = ACol; myRect.Top = ARow; myRect.Right = ACol; myRect.Bottom = ARow; StringGrid2->Selection=myRect; //設定StringGrid2被選擇的Cells StringGrid2->TopRow=StringGrid1->TopRow; //設定StringGrid2現在的最上一行 } //---------------------------------------------------------------------------

Dear m8815010 , 您好 :       您的方式很棒,已經很接近是我想做的效果..可能是原理我還不是很清楚吧..還有個問題想請教您,因為我想做到整列選擇的功能.而且非只有一個欄位被選取..感謝您...

您好..我已經推敲出來了... TGridRect myRect; myRect.Left = 8;//因為StringGrid總共有8欄 myRect.Top = ARow; myRect.Bottom = ARow; StringGrid2->Selection=myRect; //設定StringGrid2被選擇的Cells StringGrid2->TopRow=StringGrid1->TopRow; //設定StringGrid2現在的最上一行 雖然是比較笨的方法..但我大概了解該怎麼做了..Thank you

引言: 您好..我已經推敲出來了... TGridRect myRect; myRect.Left = 8;//因為StringGrid總共有8欄 myRect.Top = ARow; myRect.Bottom = ARow; StringGrid2->Selection=myRect; //設定StringGrid2被選擇的Cells StringGrid2->TopRow=StringGrid1->TopRow; //設定StringGrid2現在的最上一行 雖然是比較笨的方法..但我大概了解該怎麼做了..Thank you

palw你好< >： 哦，你要的是這樣的話，那這樣改也許應該完善些< >：

 TGridRect myRect;
 myRect.Left   = 1;    //總是固定整列全選(假設default有10列)
 myRect.Top    = ARow;
 myRect.Right  = 10;   //總是固定整列全選
 myRect.Bottom = ARow;     StringGrid2->Selection=myRect;             //設定StringGrid2被選擇的Cells
 StringGrid2->TopRow=StringGrid1->TopRow;   //設定StringGrid2現在的最上一行

另外剛剛在想這樣的效果，我以為你是要這種的： < class="code"> ~~ TForm1 *Form1; bool If_Sel=false; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { StringGrid1->RowCount=10; //測試環境給定 - StringGrid1 StringGrid1->ColCount=10; int cnt=0; for (int i=0;i<10;i ) { for (int j=0;j<10;j ) StringGrid1->Cells[j][i]=cnt ; } StringGrid2->RowCount=10; //測試環境給定 - StringGrid2 StringGrid2->ColCount=10; cnt=0; for (int i=0;i<10;i ) { for (int j=0;j<10;j ) StringGrid2->Cells[j][i]=cnt ; } } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect) { If_Sel=true; StringGrid2->TopRow=StringGrid1->TopRow; //設定StringGrid2現在的最上一行 } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if (If_Sel) { StringGrid2->TopRow=StringGrid1->TopRow; StringGrid2->Selection=StringGrid1->Selection; } } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { If_Sel=false; }

非常感謝您!