![]() |
wie geht es elliganter edit1-100
hallo
wollte fragen ob es eine elligantere methode zur aktivierung von edit feldern gibt edit56.enabled:=true; edit57.enabled:=true; wo man das net immer wieder hinschreiben soll sowas wie edit58 to edit100 enable:=true gibts da sowas? danke euch |
Re: wie geht es elliganter edit1-100
|
Re: wie geht es elliganter edit1-100
|
Re: wie geht es elliganter edit1-100
ich weiss ja nicht was du genau machen willst, aber so könnte es auch gehen...
Delphi-Quellcode:
with Sender as TEdit do
begin Enabled := True; end; |
Re: wie geht es elliganter edit1-100
Erstell die ganzen Edits einfach dynamich beim erzeugen des formulares und pack sie in ein array. Und dann einfach das ganze Array durchlaufen
|
Re: wie geht es elliganter edit1-100
Zitat:
|
Re: wie geht es elliganter edit1-100
naja, findcomponent find ich so bissl larifari. Wenn ich weiß was ich für komponenten hab brauch ich schließlich nicht danach suchen und das findcomponents klingt so wie "mal gucken ob ich so eine komponente hab, vielleicht hab ich die ja zufällig mal irgendwann erstellt oder aufm formular plaziert"
|
Re: wie geht es elliganter edit1-100
danke sehr
merke gerade dass array sehr oft in delphi foren auftaucht weiss gar ent was das ist gibt es irgendwo ne erklärung dafür? finde nur queltexte die fuer mich leider noch nichtssagend sind :/ danke euch |
Re: wie geht es elliganter edit1-100
arrays sind einfache listen
genaueres dürfste in der suche hier oder in der Delphi-Hilfe finden... aber hier mal ein kleines Beispiel passend zu deinem Problem:
Delphi-Quellcode:
var
MeineEdits: array[58..100] of TEdit; ... //in OnCreate: for i := low(MeineEdits) to high(MeineEdits) do MeineEdits[i] := FindComponent('Edit' + IntToStr(i)); //Verwenden kannst du kann deine Edits so: MeineEdits[80].Text := 'hallo'; |
Re: wie geht es elliganter edit1-100
ahaa is ja praktisch .. danke ;)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:28 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-2025 by Thomas Breitkreuz