Tag auch,
ich habe eine Komponente von TRichEdit abgeleitet und ihr folgendes hinzugefügt:
Delphi-Quellcode:
unit hi;
interface
uses
Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages;
type
TBox =
class(TRichEdit)
private
procedure WMSetFocus(
var Msg: TWMSetFocus);
message WM_SETFOCUS;
public
constructor Create(AOwner: TComponent);
override;
end;
procedure Register;
implementation
constructor TBox.Create(AOwner: TComponent);
begin
inherited;
Cursor := crDefault;
end;
procedure TBox.WMSetFocus(
var Msg: TWMSetFocus);
begin
HideCaret(self.Handle);
Msg.Result := 0;
end;
procedure Register;
begin
RegisterComponents('
PN', [TBox]);
end;
end.
so, wenn ich diese Komponente nun auf meiner Form platziere, das Programm starte und in das "neue" richedit klicke ist das Caret verschwunden - genau das was ich möchte....nur kann ich jetzt auch kein text mehr markieren.
Hat jemand ne Idee was ich dagegen tun kann?