Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi HideCaret (https://www.delphipraxis.net/43393-hidecaret.html)

Pseudemys Nelsoni 3. Apr 2005 12:06


HideCaret
 
Moin,

ich versuche gerade ein Caret in einem RichEdit zu verstecken und zwar habe ich eine Komponente abgeleitet die bis jetzt erst so aussieht:

Delphi-Quellcode:
unit pbIRCChatBox;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ComCtrls;

type
  TpbIRCChatBox = class(TRichEdit)
  private
    FHideCaret: Boolean;
    procedure OnFocus(var Msg: TMessage); message WM_SETFOCUS;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property HideCaret: Boolean read FHideCaret write FHideCaret;
  end;

procedure Register;

implementation

constructor TpbIRCChatBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FHideCaret := True;
end;

procedure TpbIRCChatBox.OnFocus(var Msg: TMessage);
begin
  inherited;
  if HideCaret then
    Windows.HideCaret(Handle);
end;

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

end.
Nur irgendwie hat das keine Wirkung, das Caret ist immernoch da obwohl ich HideCaret aufrufe! Wenn ich das inherited weglasse ist der Caret zwar weg, aber dann wird das HideCaret auch nicht benötigt, weil der caret nie kreiert wird... aber wer weiss was im WM_SETFOCUS noch passiert als das caret zu kreieren....also muss ich das wohl benutzen oder?

Jemand ne idee? :|

Sprint 3. Apr 2005 12:19

Re: HideCaret
 
Also langsam find ich das nicht mehr witzig. Zu deinem Caret Problem hast du hier ja schon vier Thread's aufgemacht.
Und einen davon solltest du mal lesen.

http://www.delphipraxis.net/internal...=345249#345249

Christian Seehase 3. Apr 2005 13:21

Re: HideCaret
 
und in dem von Sprint genannten Thread geht's dann auch bitte weiter.

**** LOCKED *****


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz