[Delphi] インプレースエディタの取得

下記のようなコードでインプレースエディタを取得すると、グリッドの内容を編集中の場合だけなどに限定した処理が可能です。

function GetGridEditor(Grid: Tc1UltGrid): TCustomEdit;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to pred(Grid.ControlCount) do
  begin
    if (Grid.Controls[i] is TCustomEdit) then
    begin
      Result := TCustomEdit(Grid.Controls[i]);
      exit;
    end;
  end;
end;

コメント (0件)


くろねこ研究所
https://www.blackcat.xyz/article.php/ProgramingFAQ_del0065