TMemo und CharCase

[Stefan Bachmann]

Hallo

Wie kann man in einer abgeleiteten TMemo-Komponente die Eigenschaft CharCase aus TEdit nachbilden ?

[Volkmar Rigo]

das einfachste wäre das keypress-ereignis zu überschreiben, und dort die übergebenen character in groß oder kleinbuchstaben umzuwandeln. wenn du es perfekt machen willst, mußt du auch noch das paste-ereignis abfangen und übergebene texte umwandeln. achtung: dir funktionen uppercase und lowercase haben meines wissens probleme mit umlauten

[Cesario Lababidi]

Hallo Stefan,
Du musst nur die Eigenschaft CharCase Hinzufügen.

unit MyMemo;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
tMyMemo = class(tMemo)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
{ Published-Deklarationen }
property CharCase;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Example', [tMyMemo]);
end;

end.

Cesari

[Stefan Bachmann]

Hallo Cesario

Besten Dank für Deinen Tip. Wenn man wüsste dass es so einfach geht..