21-04-21, 09:34 PM
فكرة جيدة وهذه فكرة وجدتها في كتيب دلفي 7 والكود كما يلي :
procedure TForm2.FormActivate(Sender: TObject);
begin
Form2.Hide;
AnimateWindow(Form2.Handle, 2000, AW_HOR_POSITIVE);
Form2.show;
end;
جربتها في مختلف البرامج وهي جد عملية وخفيفة.
procedure TForm2.FormActivate(Sender: TObject);
begin
Form2.Hide;
AnimateWindow(Form2.Handle, 2000, AW_HOR_POSITIVE);
Form2.show;
end;
جربتها في مختلف البرامج وهي جد عملية وخفيفة.
