15:05 2002-05-09
鼠标双击数据区域
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
canshow:=true;
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if canshow=true then
messagebox(handle,'Cell','Cell',0);
end;
procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canshow:=false;
end;