Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Tab Stop beim Formular laden enstsprechend setzen (https://www.delphipraxis.net/56217-tab-stop-beim-formular-laden-enstsprechend-setzen.html)

Jerry 2. Nov 2005 14:12


Tab Stop beim Formular laden enstsprechend setzen
 
Hallo zusammen

Hier ein Problem, bei dem mir sicher jemand helfen kann.

Ich möchte in einem Formular, dass schon viele Felder besitzt, dem User zu entscheiden geben, welches
Feld, er nicht anspringen möchte. (TabStop der entsprechenden Felder auf False)

Über einen kleinen Dialog, der bei jeder Komponente aufgerufen wird, wird die Info gespeichert welches Feld den TabStop = False oder True erhält.

Das Problem nun:

Diese Info zu speichern ist kein Problem, aber die Info zu holen und mit Delphi Code anzuwenden schon :-(

Kann mir jemand einen kleinen Beispielcode geben?

Beim OnCreate des Formulars habe ich folgende Variablen zur Verügung:

FormularName (z.B: Form1)
FormularFeld (z.B: edit1)
TabStop (off)

Wie kriegt man es jetzt hin, dass er mit diesen 3 Werten das edit1 Feld auf Tabstop False stellt?

Vielen Dank für Euren Input!!!

Grüsse Jerry

chaosben 2. Nov 2005 14:17

Re: Tab Stop beim Formular laden enstsprechend setzen
 
Hi Jerry!

Du könntes die Funktion "FindComponent" des Formulars dazu benutzen. So zum Beispiel:
Delphi-Quellcode:
var
  Compo : TComponent;
...
Compo:=FindComponent('edit1');
TWinControl(Compo).TabStop:=true; //oder false :)

Jerry 2. Nov 2005 14:22

Re: Tab Stop beim Formular laden enstsprechend setzen
 
hi chaosben

Supi bereits getestet, funzt perfekt!

Werf Dir einen Stein in den Garten... ;-)


Danke!!!!

chaosben 2. Nov 2005 15:17

Re: Tab Stop beim Formular laden enstsprechend setzen
 
Zitat:

Zitat von Jerry
Werf Dir einen Stein in den Garten...

Aber wehe du triffst meine Katze! ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:06 Uhr.

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