掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridでPasswordCharを実現するには？ (ID:25145)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さらにおすすめできない方法を使って・・・ type TMyGrid =class(TStringGrid) end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if TMyGrid(StringGrid1).InplaceEditor <> nil then begin if ACol = 2 then begin SendMessage(TMyGrid(StringGrid1).InplaceEditor.Handle, EM_SETPASSWORDCHAR, $2A{'*'}, 0); end else begin SendMessage(TMyGrid(StringGrid1).InplaceEditor.Handle, EM_SETPASSWORDCHAR, 0, 0); end; TMyGrid(StringGrid1).InplaceEditor.SetTextBuf(PChar(TMyGrid(StringGrid1).InplaceEditor.Text)); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.