OnChange
OnChange イベントは、InplaceEditor が呼ばれたときに発生します。
InplaceEditor は、セルの値を変更するときに呼び出されます。
宣言
説明
OnChange イベントは、InplaceEditor が呼ばれたときに発生します。
Options に goEditing が含まれている場合、有効となります。このイベントプロシージャを使うことにより、
セルにデータ入力する入力タイミングを掴むことができます。
OnChangeValue
OnChangeValue イベントは、グリッドで値が変更されたときに発生します。
宣言
説明
OnChangeValue イベントは、グリッドで値が変更されたときに発生します。
このイベントプロシージャを使うことにより、セルの値が変更されたタイミングを掴むことができます。
ACol: Integer
値が変更されたセルの列の値がセットされています。
ARow: Integer
値が変更されたセルの行の値がセットされています。
OldValue: String
変更前のセルの値がセットされています。
NewValue: String
変更後のセルの値がセットされています。
type TNotifyEvent = procedure（Sender: TObject） of object;
property OnChange: TNotifyEvent;
type
TchangeValueEvent = procedure(Sender: TObject; ACol, ARow: Integer; OldValue, NewValue: String) of object;
property OnChangeValue: TChangeValueEvent;
OnChange
E
OnChangeValue
E
OnChangeValue イベントの使用例
以下のコードは、セルの値が変更されたらステータスバーに変更内容を表示します。
OnCheckCellClick
OnCheckCellClick イベントは、チェックボックスがクリックされたときに発生します。
宣言
説明
OnCheckCellClick イベントは、チェックボックスがクリックされたときに発生します。
procedure TForm1.SuperGrid1ChangeValue(Sender: TObject; ACol, ARow: Integer;
OldValue, NewValue: string);
const
Msg = 'セルの値を %s から %s に変更しました。';
begin
StatusBar1.Panels[1].Text := Format(Msg, [OldValue, NewValue]);
end;
OnCheckCellClick
E
type
TcheckCellClickEvent = procedure(Sender: TObject; ACol, ARow: Integer;
Check: Boolean) of object;
property OnCheckCellClick: TCheckCellClickEvent;
OnCheckCellClick イベントの使用例
以下のコードは、チェックボックスがクリックされたらステータスバーに変更内容を表示します。
OnColumnWidthChange
OnColumnWidthChange イベントは、列幅が変更されたときに発生します。
宣言
説明
OnColumnWidthChange イベントは、列幅が変更されたときに発生します。
procedure TForm1.SuperGrid1CheckCellClick(Sender: TObject; ACol, ARow: Integer;
Check: Boolean);
const
Msg = 'セル(行:%s, 列:%s)の値を"%s"に変更しました。';
var
v: String;
begin
StatusBar1.Panels[1].Text := '';
if Check then v := 'True' else v := 'False';
StatusBar1.Panels[1].Text := Format(Msg, [IntToStr(ARow), IntToStr(ACol), v]);
end;
type TNotifyEvent = procedure（Sender: TObject） of object;
property OnColumnWidthChange: TNotifyEvent;
OnColumnWidthChange
E
OnEllipsisClick
OnEllipsisClick イベントは、参照ボタンが押されたときに発生します。
宣言
説明
OnEllipsisClick イベントは、参照ボタンが押されたときに発生します。
ACol: Integer
参照ボタンが押された、セルの列座標がセットされています。
ARow: Integer
参照ボタンが押された、セルの行座標がセットされています。
OnEllipsisClick イベントの使用例
以下のコードは、参照ボタン（赤丸）が押されたら、検索画面（TForm2）を表示します。
OnEllipsisClick
E
type
TEllipsisClickEvent = procedure (Sender: TObject; ACol, ARow: Integer) of object;
property OnEllipsisClick: TEllipsisClickEvent;
procedure TForm1.SuperGrid1EllipsisClick(Sender: TObject; ACol, ARow: Integer);
begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Form2.Release;
end;
OnInvalidListValue
OnInvalidListValue イベントは、ドロップダウン・リストに無い値が入力されたときに発生します。
宣言
説明
OnInvalidListValue イベントは、ドロップダウン・リストに無い値が入力されたときに発生します。
ACol: Integer
セルの列座標を示します。
ARow: Integer
セルの行座標を示します。
ShowList: Boolean
ShowList に True を設定すると、リストを開くことができます。
OnInvalidListValue イベントの使用例
以下のコードは、リストに無い値が入力されたら、リストを表示します。
OnInvalidListValue
E
type
TInvalidListValueEvent = procedure(Sender: TObject; ACol, ARow: Integer;
var ShowList: Boolean) of object;
property OnInvalidListValue: TInvalidListValueEvent;
procedure TForm1.SuperGrid1InvalidListValue(Sender: TObject; ACol, ARow: Integer; var ShowList: Boolean);
begin
ShowList := True;
end;
OnNewRow
OnNewRow イベントは、行が追加されたときに発生します。
宣言
説明
OnNewRow イベントは、行が追加されたときに発生します。
OnPicklistCloseUp
OnPicklistCloseUp イベントは、ドロップダウン・リストを閉じたときに発生します。
宣言
説明
OnPicklistCloseUp イベントは、ドロップダウン・リストを閉じたときに発生します。
ACol: Integer
セルの列座標を示します。
ARow: Integer
セルの行座標を示します。
ItemIndex: Integer
選択されたリストの項目番号がセットされています。
リストの 1 番めにある項目のインデックス値は 0、2 番めの項目のインデックス値は 1 で、以後もインデックス type TNotifyEvent = procedure（Sender: TObject） of object;
property OnNewRow: TNotifyEvent;
OnNewRow
E
type
TPicklistCloseUpEvent = procedure (Sender: TObject; ACol, ARow: Integer;
ItemIndex: Integer; var ListValue: Variant) of object;
property OnPicklistCloseUp: TPicklistCloseUpEvent;
OnPicklistCloseUp
E
OnPicklistDropdown
OnPicklistDropdown イベントは、ドロップダウン・リストが表示されたときに発生します。
宣言
説明
OnPicklistDropdown イベントは、ドロップダウン・リストが表示されたときに発生します。
ACol: Integer
セルの列座標を示します。
ARow: Integer
セルの行座標を示します。
Picklist: TStrings
リストの値が TStrings でセットされています。
type
TPicklistDropdownEvent = procedure (Sender: TObject; ACol, ARow: Integer;
var Picklist: TStrings) of object;
property OnPicklistDropdown: TPicklistDropdownEvent;