Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#30

Re: Text in Richedit anklicken

  Alt 14. Jul 2009, 10:54
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.
Angehängte Dateien
Dateityp: zip demorichedithiddenchar_894.zip (112,2 KB, 10x aufgerufen)
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat