Tweet
Hallo, ich habe in meiner Anwendung mehrere Formulare. Ich wechsle von einem Formular zum anderen indem ich die Visible Eigenschaft auf false bzw. true setze. Nun habe ich Formulare auf denen ich mehrere Edits, und Listboxen habe. Ich möchte nun bei jedem Aufruf dieser Formulare, dass alle Komponenten dieses Formulares gelöscht werden. Muss ich das einzeln wie z.b.: edit1.text:='' oder gibt es hier eine elegantere Möglichkeit?
-
-
Wenn du wirklich viele gleiche Komponenten hast, könnte sich eine Funktion analog zur folgenden lohnen:<p>
<pre>
procedure AllesLoeschen;
var
i: Integer;
Comp: TComponent;
begin
for i := 0 to ComponentCount - 1 do
begin
Comp := Components[i];
if Comp is TEdit then TEdit(Comp).Clear; // Edit-Box?
if Comp is TListBox then TListBox(Comp).Clear; // ListBox?
// usw.
end;
end;
</pre>
Du kannst aber auch z.B. probieren mit der Broadcast-Methode WM_SETTEXT-Message an alle Steuerelemente zu verschicken, allerdings hatte ich damit aufs erste keinen Erfolg.<p>
Gruß,<br>
Bernhar
Comment