Hallo,
Zitat von
XXcD:
Nur brauche ich da zeichen im Text die man nicht sieht.
Wenn das so möglich wäre, wäre das am besten.
das ist möglich.
Dazu muss man die
Unit RichEdit einbinden und TCharFormat2 verwenden.
Hier die zwei Routinen die Du dafür benötigst:
Delphi-Quellcode:
//selektierten Text verbergen
procedure SetHidden(RE: TRichEdit);
var CharFormat : TCharFormat2;
begin
FillChar(CharFormat, SizeOf(CharFormat),0);
CharFormat.cbSize := SizeOf(CharFormat);
CharFormat.dwMask := CFM_HIDDEN;
CharFormat.dwEffects := CFM_HIDDEN;
SendMessage(RE.Handle, EM_SETCHARFORMAT,SCF_SELECTION,lparam(@CharFormat));
end;
//ist selektiertes Zeichen verborgen?
function GetHidden(RE: TRichEdit): Boolean;
var CharFormat : TCharFormat2;
begin
FillChar(CharFormat, SizeOf(CharFormat),0);
CharFormat.cbSize := SizeOf(CharFormat);
CharFormat.dwMask := CFM_HIDDEN;
SendMessage(RE.Handle, EM_GETCHARFORMAT,SCF_SELECTION,lparam(@CharFormat));
Result := CharFormat.dwEffects and CFM_HIDDEN <> 0;
end;
Das Demo(Delphi 3) im Anhang zeigt das Verbergen von '#' und das Erkennen der verborgenen Zeichen.