掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.