Minimizate controls in your form  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 04/02/00

Tip accessed 439 times

 


This more than a trick... it is a curiosity.
All the Delphi controls derived of TWinControl, for Windows are not more than windows.
Keeping this in mind... what happens if for example, we minimizate a TMemo or a TButton?

Test it and you will see it:

  • Put a TMemo (memo1) and a TButton in your form
  • Put this code in the OnClick of the TButton:


     procedure TForm1.Button3Click(Sender: TObject);
     begin
       CloseWindow(Memo1.Handle);
     end;
    





    Minimizing a control in your form, in a given X, Y coordinates




     procedure TForm1.Button1Click(Sender: TObject);
    
       Procedure MinimizaEn(Que:THandle;X,Y:integer);
       var
         Posiciones: TWindowPlacement;
       begin
         Posiciones.length:=SizeOf(Posiciones);
         GetWindowPlacement(Que,@Posiciones);
         Posiciones.flags:=WPF_SETMINPOSITION;
         Posiciones.ptMinPosition.x:=X;
         Posiciones.ptMinPosition.y:=Y;
         SetWindowPlacement(Que,@Posiciones);
         CloseWindow(Que);
       end;
    
     begin
       MinimizaEn(Memo1.Handle,20,30);
     end;
    




    Updated at 04/02/2000