eventfrm.pas

企业进销存管理系统

        end;
        if (ssLeft in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssLeft';
            Added := true;
        end;
        if (ssRight in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssRight';
            Added := true;
        end;
        if (ssMiddle in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssMiddle';
            Added := true;
        end;
        if (ssDouble in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssDouble';
        end;

        Msg := Msg + '])';
    end;

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1MouseStatusChanged(Sender: TObject; OldStatus,
  NewStatus: TtsMouseStatus);
var
    Msg: string;
begin
    {OnKeyDown event}

    if not chkMouseStatus.checked then Exit;

    Msg := 'MouseStatusChanged';

    if chkShowArguments.Checked then
    begin
        case OldStatus of
            msNormal        : Msg := Msg + '(msNormal,';
            msRowSelect     : Msg := Msg + '(msRowSelect,';
            msColSelect     : Msg := Msg + '(msColSelect,';
            msCellSelect    : Msg := Msg + '(msCellSelect,';
            msAllRowSelect  : Msg := Msg + '(msAllRowSelect,';
            msRowResize     : Msg := Msg + '(msRowResize,';
            msColResize     : Msg := Msg + '(msColResize,';
            msHeadingResize : Msg := Msg + '(msHeadingResize,';
            msRowBarResize  : Msg := Msg + '(msRowBarResize,';
            msRowMove       : Msg := Msg + '(msRowMove,';
            msColMove       : Msg := Msg + '(msColMove,';
            msButtonDown    : Msg := Msg + '(msButtonDown,';
        end;
        case NewStatus of
            msNormal        : Msg := Msg + 'msNormal)';
            msRowSelect     : Msg := Msg + 'msRowSelect)';
            msColSelect     : Msg := Msg + 'msColSelect)';
            msCellSelect    : Msg := Msg + 'msCellSelect)';
            msAllRowSelect  : Msg := Msg + 'msAllRowSelect)';
            msRowResize     : Msg := Msg + 'msRowResize)';
            msColResize     : Msg := Msg + 'msColResize)';
            msHeadingResize : Msg := Msg + 'msHeadingResize)';
            msRowBarResize  : Msg := Msg + 'msRowBarResize)';
            msRowMove       : Msg := Msg + 'msRowMove)';
            msColMove       : Msg := Msg + 'msColMove)';
            msButtonDown    : Msg := Msg + 'msButtonDown)';
        end;
    end;

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1RowMoved(Sender: TObject; ToDisplayRow,
  Count: Longint; ByUser: Boolean);
var
    Msg: string;
begin
    {OnRowMoved event}

    Msg := 'RowMoved';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(ToDisplayRow) + ',' + IntToStr(Count) + ',' +
                BooleanToText(ByUser) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1RowResized(Sender: TObject; RowColnr: Longint);
var
    Msg: string;
begin
    {OnRowResized event}

    Msg := 'RowResized';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(RowColnr) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1SelectChanged(Sender: TObject;
  SelectType: TtsSelectType; ByUser: Boolean);
var
    Msg: string;
begin
    {OnSelectChanged event}

    if not chkSelectChanged.checked then Exit;

    Msg := 'SelectChanged';

    if chkShowArguments.Checked then
    begin
        case SelectType of
            stRowSelect : Msg := Msg + '(' + 'stRowSelect,';
            stColSelect : Msg := Msg + '(' + 'stColSelect,';
            stCellSelect: Msg := Msg + '(' + 'stCellSelect,';
        end;
        Msg := Msg + BooleanToText(ByUser) + ')';
    end;

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.chkSelectChangedClick(Sender: TObject);
begin
    tsGrid1.SetFocus;
end;

procedure TForm1.tsGrid1StartCellEdit(Sender: TObject; DataCol,
  DataRow: Longint; var Cancel: Boolean);
var
    Msg: string;
begin
    {OnStartCellEdit event}

    Msg := 'StartCellEdit';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataCol) + ',' + IntToStr(DataRow) + ',' +
                BooleanToText(Cancel) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1StartRowEdit(Sender: TObject; DataRow: Longint;
  var Cancel: Boolean);
var
    Msg: string;
begin
    {OnStartRowEdit event}

    Msg := 'StartRowEdit';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataRow) + ',' + BooleanToText(Cancel) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1TopLeftChanged(Sender: TObject; OldCol, OldRow,
  NewCol, NewRow: Longint; ByUser: Boolean);
var
    Msg: string;
begin
    {OnTopLeftChanged event}

    if not chkTopLeftChanged.checked then Exit;

    Msg := 'TopLeftChanged';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(OldCol) + ',' + IntToStr(OldRow) + ',' +
                IntToStr(NewCol) + ',' + IntToStr(NewRow) + ',' +
                BooleanToText(ByUser) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1UndoCellEdit(Sender: TObject; DataCol,
  DataRow: Longint; ByUser: Boolean; var Cancel: Boolean);
var
    Msg: string;
begin
    {OnUndoCellEdit event}

    Msg := 'UndoCellEdit';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataCol) + ',' + IntToStr(DataRow) + ',' +
                BooleanToText(ByUser) + ',' + BooleanToText(Cancel) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1UndoRowEdit(Sender: TObject; DataRow: Longint;
  ByUser: Boolean; var Cancel: Boolean);
var
    Msg: string;
begin
    {OnUndoRowEdit event}

    Msg := 'UndoRowEdit';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataRow) + ',' + BooleanToText(ByUser) + ',' +
                BooleanToText(Cancel) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.butInsertRowClick(Sender: TObject);
var
    InsertPos: Longint;
begin
    tsGrid1.ResetSelection;
    if tsGrid1.Rows > 0 then InsertPos := tsGrid1.DisplayRownr[tsGrid1.CurrentDataRow]
                        else InsertPos := 1;
    tsGrid1.InsertRow(InsertPos);
    tsGrid1.SetFocus;
end;

procedure TForm1.butInsertColClick(Sender: TObject);
var
    InsertPos: Longint;
begin
    tsGrid1.ResetSelection;
    if tsGrid1.Cols > 0 then InsertPos := tsGrid1.Col[tsGrid1.CurrentCell.DataCol].DisplayCol
                        else InsertPos := 1;
    tsGrid1.InsertCol(InsertPos);
    tsGrid1.SetFocus;
end;

procedure TForm1.butDeleteRowClick(Sender: TObject);
begin
    tsGrid1.ResetSelection;
    if tsGrid1.Rows > 0 then
        tsGrid1.DeleteRows(tsGrid1.Rows, tsGrid1.Rows);
    tsGrid1.SetFocus;
end;

procedure TForm1.butDeleteColClick(Sender: TObject);
begin
    tsGrid1.ResetSelection;
    if tsGrid1.Cols > 0 then
        tsGrid1.DeleteCols(tsGrid1.Cols, tsGrid1.Cols);
    tsGrid1.SetFocus;
end;

procedure TForm1.tsGrid1ColCountChanged(Sender: TObject; OldCount,
  NewCount: Longint);
var
    Msg: string;
begin
    {OnColCountChanged event}

    if csLoading in ComponentState then Exit;

    Msg := 'ColCountChanged';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(OldCount) + ',' + IntToStr(NewCount) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1DeleteCol(Sender: TObject; DataCol: Longint;
  ByUser: Boolean);
var
    Msg: string;
begin
    {OnDeleteCol event}

    Msg := 'DeleteCol';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataCol) + ',' + BooleanToText(ByUser) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1RowCountChanged(Sender: TObject; OldCount,
  NewCount: Longint);
var
    Msg: string;
begin
    {OnRowCountChanged event}

    if csLoading in ComponentState then Exit;

    Msg := 'RowCountChanged';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(OldCount) + ',' + IntToStr(NewCount) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1DeleteRow(Sender: TObject; DataRow: Longint;
  ByUser: Boolean);
var
    Msg: string;
begin
    {OnDeleteRow event}

    Msg := 'DeleteRow';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataRow) + ',' + BooleanToText(ByUser) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1InsertCol(Sender: TObject; DataCol: Longint;
  ByUser: Boolean);
var
    Msg: string;
begin
    {OnInsertCol event}

    Msg := 'InsertCol';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataCol) + ',' + BooleanToText(ByUser) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1InsertRow(Sender: TObject; DataRow: Longint;
  ByUser: Boolean);
var
    Msg: string;
begin
    {OnInsertRow event}

    Msg := 'InsertRow';

    if chkShowArguments.Checked then
        Msg := Msg + '(' + IntToStr(DataRow) + ',' + BooleanToText(ByUser) + ')';

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.chkMouseMessagesClick(Sender: TObject);
begin
    tsGrid1.SetFocus;
end;

procedure TForm1.tsGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
    Msg: string;
    Added: Boolean;
begin
    {OnMouseDown event}

    if not chkMouseMessages.Checked then Exit;

    Msg := 'MouseDown';

    if chkShowArguments.Checked then
    begin
        case Button of
            mbLeft  : Msg := Msg + '(mbLeft,[';
            mbRight : Msg := Msg + '(mbRight,[';
            mbMiddle: Msg := Msg + '(mbMiddle,[';
        end;

        Added := false;
        if (ssShift in Shift) then
        begin
            Msg := Msg + 'ssShift';
            Added := true;
        end;
        if (ssAlt in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssAlt';
            Added := true;
        end;
        if (ssCtrl in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssCtrl';
            Added := true;
        end;
        if (ssLeft in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssLeft';
            Added := true;
        end;
        if (ssRight in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssRight';
            Added := true;
        end;
        if (ssMiddle in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssMiddle';
            Added := true;
        end;
        if (ssDouble in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssDouble';
        end;

        Msg := Msg + '],' + IntToStr(X) + ',' + IntToStr(Y) + ')';
    end;

    memMessages.Lines.Add(Msg);
end;

procedure TForm1.tsGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
    Msg: string;
    Added: Boolean;
begin
    {OnMouseUp event}

    if not chkMouseMessages.Checked then Exit;

    Msg := 'MouseUp';

    if chkShowArguments.Checked then
    begin
        case Button of
            mbLeft  : Msg := Msg + '(mbLeft,[';
            mbRight : Msg := Msg + '(mbRight,[';
            mbMiddle: Msg := Msg + '(mbMiddle,[';
        end;

        Added := false;
        if (ssShift in Shift) then
        begin
            Msg := Msg + 'ssShift';
            Added := true;
        end;
        if (ssAlt in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssAlt';
            Added := true;
        end;
        if (ssCtrl in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssCtrl';
            Added := true;
        end;
        if (ssLeft in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssLeft';
            Added := true;
        end;
        if (ssRight in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssRight';
            Added := true;
        end;
        if (ssMiddle in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssMiddle';
            Added := true;
        end;
        if (ssDouble in Shift) then
        begin
            if Added then Msg := Msg + ',';
            Msg := Msg + 'ssDouble';
        end;

        Msg := Msg + '],' + IntToStr(X) + ',' + IntToStr(Y) + ')';
    end;

    memMessages.Lines.Add(Msg);
end;

end.