cabi1205 wrote:

> aStringGrid,b_StringGrid에 동시 이벤트를 주고 싶습니다.

> 예를 들어 aStringGrid에 SelectCell이벤트를 일으키면 b_StringGrid에도 똑같은 SelectCell를 일으켜 같은 Row로 이동시키고 싶고 Scroll를 했을 때도 마찬가지로 할수 있겠끔 하고 싶거든요..

> 방법을 좀......



하이염~



델세상(http://www.freechal.com/delphiworld)의 조규춘입니다.



우선 질문을 잘 못이해 한다구 생각하면 미안하지만...



각각의 이벤트에.. 임의로 만든 함수를 실행시키는 거여요~





대강...

:

:

:





procedure TForm1.EqualEvent(Acol, Arow : Integer);

begin

caption := StringGrid1.Cells[Acol, Arow] +'/'+ StringGrid2.Cells[Acol, Arow];

end;



procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

begin

// 프로시져 호출...

EqualEvent(Acol, Arow);

end;



procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

begin

EqualEvent(Acol, Arow);

end;



end.



만약 질문과 조금은 벗어나면 이야기 해주시구요...