안녕하세요
DBgrid에서 제목 한번 클릭은 속성을 줄 수 있는데....
더블클릭은 속성을 어떻게 줘야 되나요?
제가 하려구 하는건 DBgrid에서 제목을 한번 클릭하면 제목별로 정렬하구
제목을 더블클릭하면 그 칼럼이 안보이게 하려구 하거던요...ㅜㅜ
예를 들면 제목(3)을 더블클릭하면 아래와 같이 보이게 하려구요.
1 2 3 4 5 6
aa bb cc dd ee ff
aa bb cc dd ee ff
|
1 2 4 5 6
aa bb dd ee ff
aa bb dd ee ff
그럼 좋은 하루되세요....^^
var
Form1: TForm1;
TitleColumn: TColumn;
implementation
var
TitleColumn :TColumn
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if TitleColumn <> Nil then
begin
Showmessage('타이틀을 눌렀네요');
//TitleColumn을 이용하여 여기에 코딩
end;
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
TitleColumn := Column;
end;
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (TitleColumn <> nil) and (20 < y) then TitleColumn := Nil;
// 20은 타이틀의 Height
end;