1
Blinkenden Cursor (von Tastatureingabe) ausschalten
Servus Leute,
Ich habe ein Script was mir mehrere Ergebnisse in Checkboxen anzeigt. Die Box sieht wie folgt aus:
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 ?
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}
endAlles 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 ?
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 361828
Url: https://administrator.de/contentid/361828
Ausgedruckt am: 25.11.2024 um 22:11 Uhr
1 Kommentar
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
Das gleiche gilt natürlich auch für das TMemo-Control.
Gruß Sepp
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;Gruß Sepp
