procedure TForm1.FormActivate(Sender: TObject);
begin
for i:=0 to 255 do begin
alphablendvalue := i;
update;
sleep(10);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
alphablendvalue := 0;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
for i:=0 to 255 do begin
alphablendvalue := i;
update;
sleep(10);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
alphablendvalue := 0;
end;