ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

scorpos 2003/09/02(ｿｽｿｽ) 11:57:37

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。

ｿｽｿｽｿｽｿｽﾍタｿｽCｿｽgｿｽｿｽｿｽﾌ通ゑｿｽｿｽ
StringGridｿｽﾌ固抵ｿｽｿｽﾉコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
Gridｿｽﾌ行ｿｽﾍ難ｿｽｿｽIｿｽﾅゑｿｽｿｽB
ｿｽZｿｽｿｽｿｽﾔゑｿｽEnterｿｽﾅ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ趣ｿｽｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽZｿｽｿｽｿｽﾉ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽA
ｿｽﾜゑｿｽｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ選ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽEnterｿｽﾅ趣ｿｽｿｽﾌセｿｽｿｽｿｽﾖ。

ｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽﾆは可能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽJｿｽｿｽｿｽﾂ具ｿｽ
ｿｽ@Delphi5
ｿｽ@Window2000

LupinｿｽV 2003/09/02(ｿｽｿｽ) 13:20:50

ｿｽXｿｽ}ｿｽ[ｿｽgｿｽﾈ包ｿｽｿｽ@ｿｽﾅはなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽﾂ配ｿｽuｿｽｿｽｿｽｿｽVisible := FalseｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽAｿｽ@StringGridｿｽｿｽOnSelectCellｿｽｿｽVisibleｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾄ位置ｿｽｿｽvｿｽZｿｽｿｽｿｽﾄ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾄフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽExitｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ再ゑｿｽVisibleｿｽｿｽFalseｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

scorpos 2003/09/02(ｿｽｿｽ) 13:53:37

LupinｿｽVｿｽｿｽｿｽｿｽ
ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾆフｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽﾋ。
ｿｽｿｽﾉ指ｿｽｿｽﾌ暦ｿｽﾉコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌは難しｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

masayan 2003/09/02(ｿｽｿｽ) 14:04:56

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽlｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽSｿｽﾄのセｿｽｿｽｿｽﾉコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾌは難しｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾌセｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽﾆ違うｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽQｿｽlｿｽﾜでに概ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ@ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉグｿｽｿｽｿｽbｿｽh(Gridｿｽjｿｽﾆコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽiComboｿｽjｿｽｿｽｿｽｿｽ黷ｼｿｽｿｽPｿｽﾂ配ｿｽuｿｽｿｽｿｽﾜゑｿｽｿｽBCombo.VisibleｿｽｿｽFalseｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽAGridｿｽｿｽOnClickｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽComboｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@begin
  ｿｽ@// ｿｽRｿｽｿｽﾚに移難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉコｿｽｿｽｿｽ{ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
    if Grid.Col = 2 then
    begin
      // ｿｽZｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽComboｿｽﾉ設抵ｿｽ
      Combo.Text := Grid.Cells[Grid.Col,Grid.Row];
      // Comboｿｽﾌ位置ｿｽﾆ大きｿｽｿｽｿｽｿｽZｿｽｿｽｿｽﾉゑｿｽｿｽせｿｽｿｽ
      // Grid.CellRectｿｽｿｽgｿｽｿｽｿｽｿｽComboｿｽｿｽLeft,Topｿｽｿｽｿｽｿｽﾝ定しｿｽﾜゑｿｽｿｽB
      Combo.Visible := True;  // ｿｽRｿｽｿｽｿｽ{ｿｽ¥ｿｽｿｽ
      ActiveControl := Combo; // ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽRｿｽｿｽｿｽ{ｿｽｿｽ
    end
    else
      Combo.Visible := False;
    
    OldCol := Grid.Col;
    OldRow := Grid.Row;
    // OldCol,OldRowｿｽﾍフｿｽHｿｽ[ｿｽｿｽｿｽｿｽPrivateｿｽﾅ宣言(Integerｿｽﾏ撰ｿｽｿｽj

  end;

ｿｽBComboｿｽｿｽOnExitｿｽﾉ難ｿｽｿｽﾍ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽ

  begin
    Grid.Cells[OldCol,OldRow] := Combo.Text;
    Grid.Col := OldCol + 1; // ｿｽｿｽｿｽﾌセｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@Combo.Visible := False; // ｿｽRｿｽｿｽｿｽ{ｿｽｿｽ¥ｿｽｿｽ
  end;

ｿｽCGirdｿｽｿｽComboｿｽｿｽOnKeyDownｿｽｿｽEnterｿｽﾉゑｿｽｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽB

  Grid:
    EnterｿｽLｿｽ[ｿｽｿｽGrid.Col + 1,ｿｽKｿｽvｿｽﾅゑｿｽｿｽｿｽﾎ右ｿｽ[ｿｽﾅ折ゑｿｽﾔゑｿｽ/ｿｽsｿｽﾇ会ｿｽｿｽB
               ComboｿｽXｿｽVｿｽﾌゑｿｽｿｽｿｽGridOnClickｿｽｿｽﾄび出ｿｽｿｽｿｽB
  Combo:
    EnterｿｽLｿｽ[ｿｽﾅフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽGridｿｽｿｽ

ｿｽﾈ擾ｿｽﾅゑｿｽｿｽB

ｿｽﾉゑｿｽｿｽｿｽ 2003/09/02(ｿｽｿｽ) 14:32:11

ｿｽIｿｽ[ｿｽiｿｽ[ｿｽhｿｽｿｽｿｽ[ｿｽﾅコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ`ｿｽ謔ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽいまゑｿｽｿｽし。

scorpos 2003/09/02(ｿｽｿｽ) 16:18:06

masayanｿｽｿｽｿｽｿｽAｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

masayanｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽZｿｽｿｽｿｽﾌ位置ｿｽｿｽｿｽ閧ｭｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾄ具ｿｽ中ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽiT_Tｿｽj
ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽいｿｽいｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽActiveFormｿｽﾅゑｿｽgｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

masayan 2003/09/05(ｿｽｿｽ) 09:55:33

scorposｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽﾛに難ｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾅゑｿｽｿｽBｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽiｿｽTｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾆ包ｿｽｿｽGｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽj
ActiveFormｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾛにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽﾌでわかｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽﾔゑｿｽｿｽｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

{ EVENT : Grid OnClick }
procedure TForm1.GridClick(Sender: TObject);
var
  ARect : TRect;
begin
  if Grid.Col = 2 then
  begin
    ARect := Grid.CellRect(Grid.Col,Grid.Row);

    Combo.Top := ARect.Top + Grid.Top;
    Combo.Left := ARect.Left + Grid.Left;
    Combo.Width := ARect.Right - ARect.Left;

    Combo.Text := Grid.Cells[Grid.Col,Grid.Row];

    Combo.Visible := True;
    ActiveControl := Combo;
  end
  else
  begin
    Combo.Visible := False;
  end;
end;

{ EVENT : Grid OnKeyDown }
procedure TForm1.GridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Grid.Col < (Grid.ColCount - 1) then
      Grid.Col := Grid.Col + 1
    else
    begin
      if Grid.Row < (Grid.RowCount - 1) then
      begin
        Grid.Row := Grid.Row + 1;
        Grid.Col := 1;
      end;
    end;
  end;
end;

{ EVENT : Combo OnExit }
procedure TForm1.ComboExit(Sender: TObject);
begin
  Grid.Cells[Grid.Col,Grid.Row] := Combo.Text;
  Combo.Visible := False;
end;

{ EVENT : Combo OnKeyDown }
procedure TForm1.ComboKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    ActiveControl := Grid;
    Grid.Col := Grid.Col + 1;
  end
  else if Key = VK_LEFT then
  begin
    ActiveControl := Grid;
    Grid.Col := Grid.Col - 1;
  end;
end;

Created by board of various Programming Library.