お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"StringGridにComboBoxを置く"



StringGridの指定セルにComboBoxを置きます。
これもonClickイベントが拾えません(T T) 
スクロールしても付いてきます。
nifty:FDELPHI/MES/11/3460のツリーを参考にしました。
 同時にあげたボタンをセル上に、、とは違うスクロール時の更新の仕方
をしています。ボタンの方は、以下の方法でもOKですが、逆にComboBoxに
Buttonのやり方だとちらついてしまいます。(ナンデダロウ)

var
   BLoc:TPoint;
procedure TForm1.FormCreate(Sender: TObject);
begin
   BLoc:=Point(4,4);
   with ComboBox1 do
   begin
      Parent:=Stringgrid1;
      BoundsRect :=
              StringGrid1.CellRect(BLoc.X,Bloc.Y);
      Height:=100;
      Items.add('凛');
      Items.add('Poo');
    end;
end;

procedure TForm1.StringGrid1TopLeftChanged(Sender: TObject);
begin
   With StringGrid1 do
   begin
      if (BLoc.X>=LeftCol-1) and
         (BLoc.X<=LeftCol+VisibleColCount) and
         (BLoc.Y>=TopRow-1) and
         (BLoc.Y<=TopRow+VisibleRowCount) then
      begin
         with ComboBox1 do
         begin
            BoundsRect :=
               StringGrid1.CellRect(BLoc.X,Bloc.Y);
            Height:=100;
            invalidate;
         end;
      end;
   end;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
   StringGrid1.Cells[1,1]:=ComboBox1.Text;
end;
☆☆☆ サンプル蔵ブラウザUp!see nifty:FDELPHI/LIB/5/116  ☆☆☆
                                 98/04/11(土) 12:04 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)


ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum