Hallo Zusammen,
vielen Dank für Eure unermüdlichen Vorschläge. Habe alle durchprobiert. Die eine Lösung von NamenLozer gefällt mir sehr gut und funktioniert bis jetzt auch bestens. Habe nur noch eine Klammer machen müssen, sonst kommt ein Error.
Besten Dank nochmals an alle
LingNeu
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
// Test mit 4 Buttons, 3 Edits, dabei sind Button1 bis Button3 mit tag=1 versehen
// Button4 hat tag= 0 und bleibt unberührt
var i: integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if ((Components[i] is TButton) and (components[i].tag=1)) then
begin
TButton(Components[i]).caption := 'Klick mich';
end;
if ((Components[i] is TEdit) and (Components[i].tag=1)) then
begin
TEdit(Components[i]).Width := 100;
end;
end;
end;
@inherited
die Idee finde ich gut. Leider hab ich die Sachen an unterschiedlichsten Stellen usw. Daher ist es vielleicht doch etwas aufwändiger.
Trotzdem - merci!