폼을 점점 투명하게 나타나게 하기

폼을 점점 투명하게 나타나게 하기

728x90

 

 

procedure TForm1.Button1Click(Sender: TObject);
var
objFrm: TForm2;
begin
objFrm := TForm2.Create(self);
AnimateWindow(objFrm.Handle, 500, AW_BLEND);
objFrm.Show;
end;