Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi focus bei tabsheet-Wechsel (https://www.delphipraxis.net/133651-focus-bei-tabsheet-wechsel.html)

champagner 6. Mai 2009 13:39


focus bei tabsheet-Wechsel
 
Hallo,

ich habe mehere Tabsheets auf einer Page ("pc"). Wenn ich zu einem dieser Tabsheets wechsle, so möchte ich, dass in dem neuen Tabsheet ein Edit-Feld den Focus hat.

Also habe ich beim onchange-Ereignis der Page getippt:

if pc.activepage=7 then edit1.setfocus;




Geht aber nicht: "Operator ist auf diesen Operandentyp nicht anwendbar".

Hat jemand eine Idee?


Gruß und Danke!

Bernhard Geyer 6. Mai 2009 13:46

Re: focus bei tabsheet-Wechsel
 
Wie wäre es mit dem richtigen property (ActivePageIndex statt ActivePage):

Delphi-Quellcode:
if pc.activepageindex=7 then edit1.setfocus;

champagner 6. Mai 2009 13:52

Re: focus bei tabsheet-Wechsel
 
Sorry, hatte ich auch gemeint.

Also, vielleicht muss ich präziser werden:

Ich habe zwei Tabsheets. Ich drücke auf einen Button auf Tabsheet 1. Wenn ich diesen Button drücke, soll Tabsheet 2 erscheinen und der Cursor soll im Feld edit1 blinken.

ich habe jetzt folgendes getippt:

if pc.ActivePageIndex =2 then edit1.setfocus;


Wenn ich den Button drücke, wechselt das programm zu Tabsheet 2. Nur im edit1-Feld des tabsheet 2 blinkt kein Cursor.


Noch einen Tipp? Danke!!!!

champagner 6. Mai 2009 13:57

Re: focus bei tabsheet-Wechsel
 
also, ich habe mal geprüft, ob überhaupt ein onchange oder ein onchanging Ereignis ausgelöst wird: Antwort: Nein. Liegt dies daran, dass ich die Tabsheets durch den Button wechsle, und nicht durch Mausklick auf einen Tab-Reiter?

champagner 6. Mai 2009 14:15

Re: focus bei tabsheet-Wechsel
 
Hat sich erledigt, geht mit activepage.

Danke und gruß!


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz