kriegstreiber
Jan 20, 2018 at 21:09:43 (UTC)
view4666
view1
0
Goto Top

Blinkenden Cursor (von Tastatureingabe) ausschalten

GermanQuestionPascal, DelphiDevelopment
Servus Leute,

Ich habe ein Script was mir mehrere Ergebnisse in Checkboxen anzeigt. Die Box sieht wie folgt aus:

  SystemPanel := TMemo.Create(InfoPage)
  with SystemPanel do
  begin
    //SystemPanel.Cursor := crNone
    Text := 'System'  
    Font.Color :={#SystemPanelFontColor}
    Alignment := taCenter
    Parent := InfoPage.Surface
    Left := ScaleX(0)
    Top := ScaleY(40)
    Width := ScaleX(100)
    Height := ScaleY(22)
    ReadOnly := True
    Color := {#SystemPanelColor}
  end

Alles ist wunderbar, bis auf diesen blinkenden Cursor. Wie ich die Maus loswerde weiss ich, aber kann mir jemand sagen wie ich den Cursor ins Nirwana schicke ?
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 361828

Url: https://administrator.de/contentid/361828

Printed on: April 19, 2024 at 09:04 o'clock

1 Comment
Goto Top
Mitglied: 135185
135185 Jan 21, 2018 updated at 11:58:21 (UTC)
Goto Top
Hi.
Ich gehe mal von Delphi aus, dann ist HideCaret() und ShowCaret() dein Freund...

Beispiel für das TEdit-Control und die Events KeyDown und MouseEnter in denen die Funktion aufgerufen wird
procedure TForm18.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  HideCaret(Edit1.Handle);
end;

procedure TForm18.Edit1MouseEnter(Sender: TObject);
begin
  HideCaret(Edit1.Handle);
end;
Das gleiche gilt natürlich auch für das TMemo-Control.

Gruß Sepp
GermanQuestionPascal, DelphiDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsgleixnerdCheck of ZFW Firewallgleixnerd - 2 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment