StringGridに任意のコンポーネントを貼るには？

解決

名無しさん 2004-02-03 19:37:31 No: 6937

StringGridに、TCustomEditから継承した任意のコンポーネントや、ComboBoxを貼るにはどうしたらよいでしょう？

LupinⅢ URL 2004-02-04 03:55:13 No: 6938

こんな感じでどうでしょう

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
   SetStr:string;
   Header:LongInt;
begin
   SetStr := StringGrid1.Cells[ACol,ARow];
   if (gdFocused in State) then begin
      SetWindowPos(ComboBox1.Handle,0,
                   Rect.Left+StringGrid1.Left+1,
                   Rect.Top+StringGrid1.Top+1,
                   Rect.Right-Rect.Left+2,
                   Rect.Bottom-Rect.Top+2,
                   SWP_NOZORDER or SWP_SHOWWINDOW);
      ComboBox1.Text := SetStr;
      ComboBox1.Show;
      Exit;
   end;
   if ComboBox1.Visible then
      ComboBox1.Visible := False;
   StringGrid1.Canvas.FillRect(Rect);
   if ARow = 0 then
      Header := (DT_CENTER or DT_VCENTER or DT_SINGLELINE)
   else
      Header := (DT_SINGLELINE or DT_VCENTER or DT_LEFT);
   DrawText(StringGrid1.Canvas.Handle,
            PChar(SetStr),Length(SetStr),
            Rect,Header)
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.Visible := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.DefaultRowHeight := ComboBox1.Height-StringGrid1.GridLineWidth;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   With StringGrid1 do begin
       Cells[Col,Row] := ComboBox1.Text;
   end;
end;

名無しさん 2004-02-06 23:35:47 No: 6939

なんとかうまく出来そうです。
ありがとうございました。