13-05-2008, 04:55 PM
السلام عليكم ورحمة الله وبركاته
لقد كنت أبحث في دلفي فذهبت الى منتدى الفريق العربي للبرمجه
ووجدت موضوعا عن كيفيه اخراج النافذه بشكل جميل
وهذا هو الكود إذا لم يخب ظني بأن الغالبيه يعرفونه من زوآر الفريق العربي قسم الدلفي
حسنا لدي برنآمج يتكون من 13 فورم أرغب بتطبيق الكود AW_BLEND في الأعلى على جميع النوآفذ
دون أن أذهب يدويا وأطبقه على كل نافذه
هل يستوجب أن أضيف شيئا الى القائمه uses وأين أضع الكود بالتحديد ؟
وجزآكم الله خيرا أجمعين
لقد كنت أبحث في دلفي فذهبت الى منتدى الفريق العربي للبرمجه
ووجدت موضوعا عن كيفيه اخراج النافذه بشكل جميل
وهذا هو الكود إذا لم يخب ظني بأن الغالبيه يعرفونه من زوآر الفريق العربي قسم الدلفي
كود :
{
The AnimateWindow function enables you to produce
special effects when showing or hiding windows.
Mit der AnimateWindow Funktion kann man spezielle Effekte
erzeugen beim Zeigen, Unsichtbarmachen (hide) einer Form.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.BringToFront;
AnimateWindow(Form2.Handle,Trackbar1.Position, AW_BLEND);
Form2.Show;
{
The 3. parameter can be one or more of the following values:
Der 3. parameter kan folgende Werte annehmen:
AW_BLEND : Uses a fade effect
AW_SLIDE : Uses slide animation.
AW_ACTIVATE : Activates the window
AW_HIDE : Hides the window.
AW_CENTER : Makes the window appear to collapse inward
AW_HOR_POSITIVE : Animates the window from left to right.
AW_HOR_NEGATIVE : Animates the window from right to left
AW_VER_POSITIVE : Animates the window from top to bottom
AW_VER_NEGATIVE : Animates the window from bottom to top
}
end;
حسنا لدي برنآمج يتكون من 13 فورم أرغب بتطبيق الكود AW_BLEND في الأعلى على جميع النوآفذ
دون أن أذهب يدويا وأطبقه على كل نافذه
هل يستوجب أن أضيف شيئا الى القائمه uses وأين أضع الكود بالتحديد ؟
وجزآكم الله خيرا أجمعين