FireMonkeyのTStringGridの入力でListViewやダイアログを表示させたい (ID:151270)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

uses
    Unit2;  //Form2 に ListBox を置く

var
  SAVE_COL,SAVE_ROW: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
    PopupColumn1.Items.Add('AAAAA');
    PopupColumn1.Items.Add('BBBBB');
    PopupColumn1.Items.Add('CCCCC');
    PopupColumn1.Items.Add('DDDDD');
    PopupColumn1.Items.Add('EEEEE');

PopupColumn1.ReadOnly := True;
end;

procedure TForm1.StringGrid1CellClick(const Column: TColumn; const Row: Integer);
var
    PopupColumn: TPopupColumn;
    ARECT: TRECT;
    X1,Y1: Single;
begin
    if Column is TPopupColumn then
    begin
      PopupColumn := TPopupColumn(Column);
      X1 := Left + StringGrid1.Position.X +   3;
      Y1 := Top  + StringGrid1.Position.Y +  33;
      ARECT := StringGrid1.CellRect(SAVE_COL,SAVE_ROW);

Form2 := TForm2.Create(Self);
      Form2.Left := Trunc(X1+ARECT.Left);
      Form2.Top  := Trunc(Y1+ARECT.Top );
      Form2.ListBox1.Items.Assign(PopupColumn1.Items); //PopupColumn の ITEM を ListBox にコピー
      if Form2.ShowModal = mrOK then
      begin
      end;
      Form2.Free;
    end;

end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
    SAVE_COL := ACOL;
    SAVE_ROW := AROW;
end;

←解決時は質問者本人がここをチェックしてください。

戻る