Re: Image animation
Derek, Fabio
This can be simplified and added a little effect.
We leave only Label1 on the form. Add one letter at a time to the label, changing the case.
procedure frmSommario_bAvanti_OnClick (Sender: TObject; var Cancel: boolean);
var
itArr: string='ITALIANO';
begin
frmItaliano.Label1.Caption := '';
frmItaliano.doublebuffered := true;
frmitaliano.show;
for vi := 0 to length(itArr) do
begin
sleep(200);
frmItaliano.Label1.Caption := frmItaliano.Label1.Caption + Lowercase(itArr[vi]);
application.processmessages;
sleep(400);
frmItaliano.Label1.Caption := UpperCase(frmItaliano.Label1.Caption);
application.processmessages;
end;
sleep(2500);
end;
procedure frmItaliano_OnClose can be cleared
If desired, the effect can be removed.