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;