Zugriff auf PushButton

Konzeptionelles, Technisches, Termine, Fragen zum Hersteller usw.

Moderator: Moderatoren

Antworten
vorti
UDF-Programmierer
UDF-Programmierer
Beiträge: 61
Registriert: Mo, 25. Sep 2017 12:21

Zugriff auf PushButton

Beitrag von vorti »

Hallo,
gibt es eine Möglichkeit mit SetAppFocus als Bedingung alle Buttons zu prüfen und daraufhin diesen Button einen Befehl zu geben , auch wenn diese unterschiedlich benannt sind.

Kurzes Beispiel: ich habe oXtab1,2 und 3 und es soll für jedes der Text angepasst werden

Code: Alles auswählen

do while ...
if SetAppFocus() # Button()
   Button:caption := "Standart"
 
else
	Button:caption := "Verändert"
endif
end do
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Zugriff auf PushButton

Beitrag von AUGE_OHR »

hi,

man kann bei jedem XbPart was eine o:Caption hat mit o:SetCaption(cString) ändern. mit

Code: Alles auswählen

PostAppEvent(xbeP_Activate,,, oZiel) 
kann man einen XbpPushbutton aktivieren.

---

was dein "Design" angeht solltest du dir überlegen ob Windows es "so" macht.

ich gehe mal davon aus das du den Hybrid Modus verwendest. dabei muss man nicht nur SetAppFocus() sondern auch SetAppWindow() verwenden. auch ist die Verwendung ohne Parameter nicht eindeutig was zu Fehlern führen könnte.

Mein Tip : verwende ein XbpDialog() als Parent für das oCRT Fenster. alle XbParts bekommen die o:DrawingArea als Parent.
gruss by OHR
Jimmy
Antworten