Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TheFrog,
22. Mai 2015
Heureka!
Ich habe versucht, den Fokus auf ein TLabel zu setzen, was natürlich schiefgehen musste! Wieso das ganze unter Delphi 7 funktioniert hat, ist mir noch rätselhaft!
Aber was lehrte uns schon der "pragmatische Programmiere":
"Select isn't broken" (... und ich hatte schon Zweifel an Delphi)
... weil heißen: den Fehler hat natürlich wieder der gemacht, der vor dem Bildschirm sitzt...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TheFrog,
22. Mai 2015
Joop, da hast du Recht:
In meinem kleinen Beispiel-Programm habe ich wirklich auf ein deaktivertes Control fokusiert (sprich: dieses lag nicht auf dem soeben aktivierten Tabsheet :oops:) Wie es immer so ist, wenn man mal schnell einen Prototyp zusammenklickt ....
Leider ist im eigentlichen Programm die Konstellation komplexer und der Fehler tritt dort immer noch auf. Hier gehe ich mittels...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TheFrog,
22. Mai 2015
Kommando zurück:
Ich hatte noch ein Fehler im Code :oops:
Als ich diesen korrigiert habe, hat es funktioniert!
Sorry und danke fürs Diskutieren!
Hans.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TheFrog,
22. Mai 2015
Vielen Dank schon mal!
Ich habe noch etwas rumprobiert:
Da ich das Projekt von Delphi 7 nach XE3 übernommen habe, habe ich mich über die Fehlermeldung gewundert, welche vorher nicht da war. Und wirklich, in Delphi 7 funktionierte der gleiche Code noch ohne Meldung.
Außerdem kommt die Fehlermeldung nur, wenn das Control noch zusätzlich auf einem Panel liegt. Wird das Control direkt auf...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TheFrog,
22. Mai 2015
Guten Morgen,
ich habe ein ganz banales Problem:
Wenn ich bei einer PageControl die ActivePage setze und gleich danach den Focus auf ein Control setze, welches auf dem soeben aktivierten TabSheet sitzt, dann erhalte ich die Fehlermeldung: "Deaktiviertes oder unsichtbares Fenster kann den Fokus nicht erhalten"
procedure TForm1.Button1Click(Sender: TObject);
begin
...