OpenOffice.info

    Sub WhateverButtonPressed(oEvt)
       sButtonName = oEvt.Source.Model.Name
       oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
       oForm.getByName(sButtonName).Enabled = false
    End Sub

......

Hallo Uwe,

[quote="retuwe61"] oForm.getByName( "PushButton1" ).Enabled = false (nModifikator) '"PushButton1" = Name der Schaltfläche
oForm.getByName( "PushButton2" ).Enabled = false (nModifikator)
oForm.getByName( "PushButton3" ).Enabled = false (nModifikator)[/quote]
Das verstehe ich jetzt nicht was Du da machst. :(

Es reicht doch nach meiner Vorstellung doch ein einfaches:

[code] Sub WhateverButtonPressed(oEvt)
sButtonName = oEvt.Source.Model.Name
oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
oForm.getByName(sButtonName).Enabled = false
End Sub[/code]

um den auslösenden Button zu deaktivieren. Mehr nicht.

Mit den
[code]......[/code]

meinte ich:
[quote="retuwe61"]neben der eigentlichen Aktionsausführung (für Gruppierungen)[/quote]

Jürgen

Sub WhateverButtonPressed(oEvt)
	sButtonName = oEvt.Source.Model.Name
	oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
	oForm.getByName(sButtonName).Enabled = false
	..... 

Hallo Uwe,

[quote="retuwe61"]Mehrere Buttons (Umschaltfunktion, Name: "PushButton1" usw., Zusatzinformation "1" usw.) sollen sich jeweils neben der eigentlichen Aktionsausführung (für Gruppierungen) auch deaktivieren (Durch ein anderes Makro werden sie später alle wieder aktiviert).[/quote]
Das solltest Du Dir aber jetzt schon selber aus [url=http://de.openoffice.info/viewtopic.php?f=18&t=39014&start=0#p144528]diesem[/url] zusammenreimen können.
Eine bessere Vorlage gibt es doch wohl kaum.

[code]Sub WhateverButtonPressed(oEvt)
sButtonName = oEvt.Source.Model.Name
oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Standard" )
oForm.getByName(sButtonName).Enabled = false
..... [/code]

Oder?

Jürgen