Felder im Formular durch TAB-Taste selektiert

[ddraht]

Hallo OOs,

weiß jemand, wie ich die automatische Selektion der Feldinhalte durch drücken der TAB-Taste ausschalten kann?
Zu häufig passiert es, dass der Text in dem Feld ausversehen durch Tastendruck gelöscht wird, weil dieser im Feld komplett
selektiert ist.

Gruß
Dieter

[turtle47]

Hallo Dieter,

hier mal ein Beispiel für alle Textboxen in der Form:

Code: Alles auswählen

Sub Focus_Textfield( oEvt as Object)
Dim sText , SelectedTextfield as String
Dim oDoc , oForm , oCtrl , oButton as Object
	set oButton = oEvt.Source
	SelectedTextfield = oButton.Model.Name 'Name der Textbox auslesen
	oDoc = thisComponent
	oForm = oDoc.drawpage.forms.getbyindex(0)
	oCtrl = oForm.getByName(SelectedTextfield)'Textbox ansprechen
	stext = oCtrl.String 'Text auslesen
	oCtrl.string = sText 'Text schreiben
End Sub

Weise dieses dem Ereignis "Bei Fokuserhalt" zu.

Nachteil ist, dass der Cursor dann immer am Anfang des Textes steht.


Viel Erfolg.

Jürgen

[ddraht]

Hallo Jürgen,

bei mir führt das Makro zu einer Endlosschleife. Egal ob ich das Makro dem Texfeld oder dem Tabellenfeld zuweise.

Ich teste optimistisch weiter..

Danke für deine üppige Hilfe

Gruß
Dieter

[DPunch]

Aloha

Versuch es mal hiermit (als Ereignis >bei Fokuserhalt< zuweisen)

Code: Alles auswählen

Sub ResetHighlighting_OnFocus(oEvt)
	Dim oSelection
	oSelection = oEvt.Source.Selection
	oSelection.Min = oSelection.Max
	oEvt.Source.setSelection(oSelection)
End Sub

Damit stellt man zwar nicht das highlighten an sich aus, aber man muss schon sehr schnell sein, um den alten TextBox-Inhalt zu überschreiben - sollte also für den normalen Hausgebrauch reichen.

[ddraht]

Jürgen, astrein,

so etwas sollte Standart sein, als ein- und ausstellbares Feature.

Besten Dank Dieter

[turtle47]

Jürgen, astrein,

Nix Jürgen, das Makro ist von DPunch.
Hat er echt klasse gemacht.

Jürgen

[ddraht]

Sorry DPUNCH.
Dieter