OpenOffice.info

[quote="DPunch"]Warum nicht einfach oEvent.Source.setFocus() ?[/quote]
Ganz einfach: Weil ich setFocus nicht in diesem Zusammenhang gefunden habe und Roberts Vorschlag funktionierte. Dein Vorschlag ist natürlich einfacher; wieder etwas gelernt. :D Jürgen

oEvent.Source.setFocus

Servus

Warum nicht einfach
[code]oEvent.Source.setFocus[/code]
?

Sub main_dateModified(oEvent as Object)
  oCtrl = oEvent.Source.Model        ' das Model liefert sowohl Name als auch Text (Feldinhalt)
  oForm = oCtrl.Parent
  if Len(oCtrl.Text) <> 10 then
    oDateField = oForm.getByName(oCtrl.Name)    ' also das benötigte eigenständige Objekt
    oDocView = thisComponent.getCurrentController()
    oDocView.getControl(oDateField).setFocus
    exit Sub
rem usw. alles andere

Hallo Robert,
[quote="RobertG"]Prinzipiell klappt es also, nur wie Du das eleganter hin bekommst...[/quote]
Zusammen mit meinem Zugriff auf oEvent ist mir das elegant genug:
[code]Sub main_dateModified(oEvent as Object)
oCtrl = oEvent.Source.Model ' das Model liefert sowohl Name als auch Text (Feldinhalt)
oForm = oCtrl.Parent
if Len(oCtrl.Text) <> 10 then
oDateField = oForm.getByName(oCtrl.Name) ' also das benötigte eigenständige Objekt
oDocView = thisComponent.getCurrentController()
oDocView.getControl(oDateField).setFocus
exit Sub
rem usw. alles andere[/code]
[i]Die Längenprüfung führt zu einem anderen Problem; aber das hat nichts mit "Fokusverlust" zu tun. Wenn ich danach frage, muss das ein eigenes Thema werden.[/i] Gruß Jürgen

Hallo Robert,
[quote="RobertG"]So ist es z.B. möglich, von dem Makro aus direkt das Feld per Namen anzusprechen und darauf anschließend den Fokus zurückzusetzen:[/quote]
Wenn das das ganze Problem war, dann lässt sich das ja leicht umgehen: entweder direkt mit dem mir bekannten Namen oder mit getByName(oEvent.Source.[Model.]Name). (Ich benutze gerne oEvent für den Fall, dass ich denselben EventHandler an mehr als ein Feld binden möchte.) Ich werde es morgen umsetzen und dann hier das fertige Verfahren einstellen (das sich vermutlich kaum von deinem Vorschlag unterscheiden wird).

Schönen Sonntag! Jürgen

Sub Modified(oEvent as Object)
  oCtrl = oEvent.Source
  if Len(oCtrl.Text) <> 10 then   ' als Beispiel für eine Fehleingabe	
  	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	oForm=oDrawpage.Forms.getByName("Formular")
	oFeld=oForm.getByName("test")
    oDocView = thisComponent.getCurrentController()
    oDocView.getControl(oFeld).setFocus
   END IF
END Sub

Hallo Jürgen,

ich habe da mal ein bisschen rumprobiert. Das Problem ist nicht, dass Du das an den Focusverlust gebunden hast, sondern dass Du Dich in dem Makro auf oEvent.Source zurückbeziehen und dort Änderungen vollziehen willst. So ist es z.B. möglich, von dem Makro aus direkt das Feld per Namen anzusprechen und darauf anschließend den Fokus zurückzusetzen:
[code]
Sub Modified(oEvent as Object)
oCtrl = oEvent.Source
if Len(oCtrl.Text) <> 10 then ' als Beispiel für eine Fehleingabe
oDoc=thisComponent
oDrawpage=oDoc.Drawpage
oForm=oDrawpage.Forms.getByName("Formular")
oFeld=oForm.getByName("test")
oDocView = thisComponent.getCurrentController()
oDocView.getControl(oFeld).setFocus
END IF
END Sub
[/code]
Prinzipiell klappt es also, nur wie Du das eleganter hin bekommst - dazu fehlt mir jetzt einfach die Muße.

Gruß

Robert

Sub main_dateModified(oEvent as Object)
  oCtrl = oEvent.Source
  if Len(oCtrl.Text) <> 10 then   ' als Beispiel für eine Fehleingabe
    oDocView = thisComponent.getCurrentController()
    oDocView.getControl(oCtrl).setFocus
    exit Sub
rem usw.

Bei einem Datumsfeld (nicht an Daten gebunden) möchte ich bei [b]Fokusverlust [/b]prüfen, ob das Datum gewissen Bedingungen entspricht. Wenn nicht, sollte der Fokus in diesem Feld bleiben. Mit dem "üblichen" Verfahren für [b]setFocus [/b]geht das nicht:
[code]Sub main_dateModified(oEvent as Object)
oCtrl = oEvent.Source
if Len(oCtrl.Text) <> 10 then ' als Beispiel für eine Fehleingabe
oDocView = thisComponent.getCurrentController()
oDocView.getControl(oCtrl).setFocus
exit Sub
rem usw.[/code]
[quote="Basic-Laufzeitfehler"]Type: com.sun.star.lang.IllegalArgumentException
Message: cannot coerce argument type during corereflection call!.[/quote]
Die Meldung übersteigt zwar meine Englisch-Kenntnisse, aber ich kann mir die Ursache erklären: Fokusverlust beißt sich mit dem Setzen des Fokus. Wie kann ich trotzdem den Fokusverlust verhindern bzw. rückgängig machen? Das Ereignis "Text modifiziert" ist sehr ungünstig, weil dann nach jeder einzelnen Taste geprüft würde; das Ereignis "Modifiziert" steht leider nicht zur Verfügung. Danke für Tipps! Jürgen



[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören