Element '' hat kein übergeordnetes Fenster

[Sprint]

Delphi-Quellcode:

unit pbIRCChatBox;

interface

uses
  Windows, Messages, Classes, ComCtrls;

type
  TpbIRCChatBox = class(TRichEdit)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('pb', [TpbIRCChatBox]);
end;

{ TpbIRCChatBox }

procedure TpbIRCChatBox.WndProc(var Message: TMessage);
begin
  if Message.Msg <> WM_PAINT then
    if Assigned(Parent) then
      HideCaret(Handle);
  inherited WndProc(Message);
end;

end.