procedure TForm1.FormShow(Sender: TObject); var I: Integer; begin AnimateWindow(Handle, 300, AW_ACTIVATE or AW_CENTER); for I := 0 to ControlCount - 1 do if Controls[I].Visible then begin Controls[I].Visible := False; Controls[I].Visible := True; end; end;
Left := Left - 1;
我做的是label是form上的
说能帮我做个例子使:label,form均动态创建,label在form上,并且是动画显示的
var
I: Integer;
begin
AnimateWindow(Handle, 300, AW_ACTIVATE or AW_CENTER);
for I := 0 to ControlCount - 1 do
if Controls[I].Visible then begin
Controls[I].Visible := False;
Controls[I].Visible := True;
end;
end;