डेल्फी: चिकनी पतन/विस्तृत फॉर्म

Question

आपकी मदद की ज़रूरत है (मैं खोज पर फंस गया हूं)। मैं डेल्फी सिएटल पर हूं, मेरे फॉर्म के चिकनी आकार बदलने की कोशिश कर रहा हूं। मेरे मामले में "आकार बदलने" बस थोड़ी पतन है/इस तरह का विस्तार:

मैं ऐसा कैसे एहसास कर सकते हैं?

मैं उपयोग एक TTimer की कोशिश की है:

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
h, t: integer; 
begin 
t := Button10.Top + Button10.Height + 10; //slide TForm from/to this point 
if t > h then 
begin 
h := h + 1; 
Form1.Height := h; 
end 
else 
begin 
Timer1.Enabled := false; 
end; 
end; 

... लेकिन यह है बहुत ही सरल (कोई त्वरण/मंदी) लग रहा है और यहां तक ​​कि छोटे अंतराल के साथ धीमी गति से काम करता है।

Answer 1

टीटीमीटर के साथ जटिल होने की कोई आवश्यकता नहीं है। यह आपके लिए आवश्यक चिकनीता सहित फ़ॉर्म को ढहने और विस्तार करने दोनों का ख्याल रखेगा।

चाल प्रत्येक आकार पर लक्ष्य आकार - वर्तमान ऊंचाई और div 3 ले कर प्रत्येक चरण की गणना करना है, जो दोनों प्रारंभिक पतन या विस्तार को तेज करेंगे, फिर फॉर्म को अपने लक्ष्य आकार के करीब पहुंचने के साथ ही कम हो जाएगा।

procedure TForm1.SmoothResizeFormTo(const ToSize: integer); 
var 
    CurrentHeight: integer; 
    Step: integer; 
begin 
    while Height <> ToSize do 
    begin 
    CurrentHeight := Form1.Height; 

    // this is the trick which both accelerates initially then 
    // decelerates as the form reaches its target size 
    Step := (ToSize - CurrentHeight) div 3; 

    // this allows for both collapse and expand by using Absolute 
    // calculated value 
    if (Step = 0) and (Abs(ToSize - CurrentHeight) > 0) then 
    begin 
     Step := ToSize - CurrentHeight; 
     Sleep(50); // adjust for smoothness 
    end; 

    if Step <> 0 then 
    begin 
     Height := Height + Step; 
     sleep(50); // adjust for smoothness 
    end; 
    end; 
end; 

procedure TForm1.btnCollapseClick(Sender: TObject); 
begin 
    SmoothResizeFormTo(100); 
end; 

procedure TForm1.btnExpandClick(Sender: TObject); 
begin 
    SmoothResizeFormTo(800); 
end;