Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
9. Sep 2004
:wall: Klar, Notepad und RichEdit, wie doof! :roll: :oops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
7. Sep 2004
Ok, ich hab - zugegebenerweise - überhaupt keine Ahnung, von der ganzen Caret-Geschichte, aber eine Frage stellt sich mir:
Wie willst du denn den Caret irgendwo hinter einer Zeile positionieren? Wahrscheinlich, indem du Leerzeichen bis zu dieser Position generierst, oder? Ist es dann nicht wieder so, dass es dann mit der RichEdit-Kompo gehen müsste?
Hab gerade mal Notepad genommen, da ist...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
7. Sep 2004
Und was wird dir hier als Lösung angeboten? :arrow: Zurück in den Schlamassel!!! :mrgreen:
Was versuchst du denn überhaupt? Willst du die Mausmarkierung manipulieren? Wozu soll das denn gut sein?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
7. Sep 2004
Wenn's darum geht, dann müsstest du in deiner Klasse die nötigen Windows-Botschaften selber behandeln.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
6. Sep 2004
Genau das ist das Problem: du musst etwas in den Funktionen ändern, die in TRichEdit gekapselt sind und nicht vererbt werden können, weil sie teilweise private sind. Deshalb musst du das TRichEdit neu bauen (kopieren) und dann an den entscheidenden Stellen deine Veränderungen vornehmen. Du baust also nicht auf TRichEdit auf, sondern baust eine neue Komponente (evtl. musst du sogar TCustomRichEdit...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
6. Sep 2004
Jepp, da hast du recht! Bleibt dir nur die Möglichkeit, TRichEdit komplett zu kopieren und dort deine Änderungen vorzunehmen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
6. Sep 2004
Du musst auch noch die Property überschreiben, denn im TRichEdit (wo die überschriebenen Methoden ja vorkommen) ist ja nicht bekannt, dass sie überschrieben wurde, also:
TMyRichEdit = class(TRichEdit)
private
fLButtonDown : boolean;
...
protected
...
procedure SetSelLength(Value: Integer); override;
procedure SetSelStart(Value: Integer); override;
public