Edit-Feld ohne Cursor
Hallo,
ich finde, der Titel sagt schon alles. Ich möchte halt, dass mein Edit-Feld keinen Cursor zulässt. Danke schonmal im Voraus für eure Hilfe. Gruß Stefan |
Re: Edit-Feld ohne Cursor
Du könntest eine eigene Komponente schreiben, ausgehend von TGraphicControl.
|
Re: Edit-Feld ohne Cursor
Hallo Stefan,
bevor du mit dem Entwickeln der neuen Komponente anfängst: Meinst du das Caret oder den Cursor? Grüße vom marabu |
Re: Edit-Feld ohne Cursor
ich vermute mal dat Caret ... wenn ich mich nicht irre, dann liegt daheim irgendwo 'ne Demo zum veränder des Carets eines Memos (werd da mal nachsehn), dat könnte man bestimmt entsprechend abändern...
|
Re: Edit-Feld ohne Cursor
Gute Frage.
Da ich den Unterschied von Caret und Cursor nicht kenne, fällt es mir schwer, diese zu beantworten. :zwinker: Ich meine auf jeden Fall das Teil, was immer blinkt. Gruß Stefan |
Re: Edit-Feld ohne Cursor
Dann hat Frank recht mit seiner Vermutung. Das Caret signalisiert den Einfügepunkt in einem Text-Control (Edit, Memo, ...). Es wird nur gezeigt, wenn ein Eingabefeld den Focus besitzt. Es lässt sich mit der Windows API Funktion HideCaret() abschalten, aber warum willst du das tun? Wäre nicht vielleicht eine andere Komponente die passendere?
Freundliche Grüße |
Re: Edit-Feld ohne Cursor
Also, ich habe einen Taschenrechner programmiert, der sich auch über Tastatur bedienen lässt. Da ich nicht will, dass unberechenbarer Quatsch in mein Editfeld (welches als Ein- und Ausgabefeld der Rechnungen dient) geschrieben wird, habe ich ReadOnly auf false gesetzt. Allerdings blinkt der Caret (Wenn das Caret heisst, wie definiert man dann einen Cursor? :? ) trotzdem, und egal an welcher Stelle der Caret blinkt, die Ziffern, die eingegeben werden, werden immer an die letzte Stelle versetzt, was den User irritiert. Um dies zu vermeiden, wollte ich den Caret unterbinden. Vielleicht könnte ich aber auch das Fokusieren des Editfeldes vermeiden...
Nunja, die Lösung HideCaret(); klappt bei mir nicht, weil er noch irgendwelche Parameter möchte, aber ich in der Hilfe nichts darüber finde. Und da ich noch nicht so lange programmiere, beschränkt sich mein Wissen lediglich auf die Standardkomponenten :cry:. Was für Komponenten könntest du denn empfehlen? Aber, wenn möglich, würde ich gerne beim praktischen Editfeld bleiben. Gruß Stefan PS:Wenn ihr schon beim Antworten seid, guckt doch mal in meinen anderen offenen Thread. |
Re: Edit-Feld ohne Cursor
Wenn du die Edit-Komponente im ReadOnly-Modus - quasi nur als Display - benutzt, und die Eingabe über Buttons oder die KeyPreview der Form erledigst, dann könntest du doch ein Panel oder eine andere schicke Komponente (LCDPanel) verwenden, eventuell noch einen speziellen Font.
Freundliche Grüße |
Re: Edit-Feld ohne Cursor
Erstmal danke für eure Antworten.
Aber ich finde das Panel macht sich nicht allzu gut, ich würde das lieber lassen. Wo kann ich denn das LCD-Panel finden? Und seid ihr wirklich sicher, dass es mit dem Edit nicht geht? Das würde immer noch am besten aussehen. Gruß Stefan [edit]Achja, und was ist mit der Funktion HideCaret Wie funktioniert die denn nun? [/edit] |
Re: Edit-Feld ohne Cursor
Hallo Stefan,
um das Caret in deinem Edit mit HideCaret() zu verstecken musst du den richtigen Augenblick abpassen - OnEnter() ist zu früh, da das Control zu diesem Zeitpunkt noch nicht den Fokus erhalten hat und das Caret noch gar nicht existiert. Da hilft dir eine benutzerdefinierte Nachricht UM_HIDECARET:
Delphi-Quellcode:
Wegen anderen Komponenten kannst du mal bei den LMDTools schauen oder bei Torry.
const
UM_HIDECARET = WM_USER; type TDemoForm = class(TForm) Edit: TEdit; procedure EditEnter(Sender: TObject); private procedure UMHideCaret(var msg: TMessage); message UM_HIDECARET; end; procedure TDemoFrom.UMHideCaret(var msg: TMessage); begin HideCaret(Edit.Handle); end; procedure TDemoFrom.EditEnter(Sender: TObject); begin PostMessage(Handle, UM_HIDECARET, 0, 0); end; Freundliche Grüße |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz