Q&A

  • FixedCols를 눌렀을때 Column들이 모두 선택되게할려면..
엑셀처럼 FixedColumn을 선택하면 그줄에대한 Column들을 모두 선택하려면

어떻게해야하나요?

procedure TfMon_Swi.SwiGrdClick(Sender: TObject);

Var

P: TPoint;

begin

// 현재의 마우스 좌표를 클라이언트(StringGrid1)의 좌표로 바꾼다...

P := SwiGrd.ScreenToClient(Mouse.CursorPos);

// 행(ACol)과 열(ARow)의 좌표를 얻는다.

SwiGrd.MouseToCell(P.X, P.Y, ACol, ARow);

If ARow = 0 Then

If ACol <> 0 Then

Begin

SwiGrd.Selection.Left := ACol;

SwiGrd.Selection.Top := 1;

SwiGrd.Selection.Right := ACol;

SwiGrd.Selection.Bottom := RowCount-1;

End;

end;

이런식으로 값을 입력할려고 했었는데 에러가 뜨네요.

0  COMMENTS