Cursor von eigener Klasse per Default ändern

[SirThornberry]

Hallo,

ich hab eine Komponente von TCustomControl abgeleitet und möchte das der Standardcursor der Textcursor ist (crIBeam). Jetzt könnte ich natürlich einfach
cursor := crIBeam; schreiben. Jedoch will ich das wenn als Cursor crDefault ausgewählt ist eben der crIBeam-Cursor angezeigt wird und nicht der crArrow-Cursor.

Wie gehts das?

[jfheins]

Ist es nicht gerade so, dass wenn der Cursor auf crDefault ist, der Cursor von dem Control gnommen wird, über demn die Maus ist, ansonsten immer das, was bei Screen.Cursor steht ?

Also musst du bei deinem Control Control.Cursor := crIBeam; setzen, und sofern global crDefault eingestelt ist, und die Maus über deinem Cointrol ist, wird dein Textcursor angezeigt ...

Oder nicht ?

[shmia]

Jedes Control hat doch sein eigenes Property Cursor.
Wenn du dieses Property im Konstruktor setzt, gilt der Cursor nur für dieses Control.

[SirThornberry]

das ist es ja gerade. Bei TEdit ist es ja zum Beispiel auch so das es als Cursor crDefault hat und trotzdem sieht man den TextCursor. Genau das will ich auch erreichen. Das der DefaultCursor von meiner Komponente also der Textcursor ist und nicht der Pfeilcursor.

[SirThornberry]

ich hab das ganze jetzt gelöst in dem ich die message WM_SETCURSOR abfange und selbst auwerte.

Delphi-Quellcode:

procedure TAdvEditControl.FWMSETCURSOR(var AMsg: TWMSetCursor);
var lCursor: TCursor;
begin
  if (AMsg.CursorWnd = Self.Handle) and not(csDesigning in ComponentState) then
  begin
    case Smallint(AMsg.HitTest) of
      HTCLIENT: begin
                  if Cursor = crDefault then
                    lCursor := crIBeam
                  else
                    lCursor := Cursor;
                  if Screen.Cursor <> lCursor then
                    windows.SetCursor(Screen.Cursors[lCursor]);
                end;
      else inherited;
    end;
  end
  else
    inherited;
end;