Ich weiß ja nicht wie du es gemacht hast, aber bei mir funktionierts so:
Delphi-Quellcode:
...
private
{ Private declarations }
Edits: array[0..9] of TEdit;
...
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 9 do
begin
Edits[i] := TEdit.Create(Self);
with Edits[i] do
begin
Top := 32*i+8;
Left := 8;
Height := 24;
Width := 105;
Parent := Form1;
Visible := True;
end;
end;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Edits[Tag].Visible := not Edits[Tag].Visible;
Tag := (Tag+1) mod 10;
end;
Die Edits werden nach der Reihe bei einem Klick aufs Formular zuerst ausgeblendet, anschließend wieder eingeblendet.
Greetz
alcaeus