unir formularios
ecfisa logre algo pero cuando doy un click en cualquier parte del formulario se minizatodo no me deja trabajar el codigo que puse fue el siguiente:
private
{ Private declarations }
Procedure MinimizarTodo(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
FrmMenu: TFrmMenu;
implementation
// Para usar los Formularios.
uses Login, Entrada, Recepcion, Itebis;
{$R *.dfm}
procedure TFrmMenu.MinimizarTodo;
var
i: Integer;
begin
with Application do
for i:= 0 to ComponentCount -1 do
if (Components[i] is TForm) then
Minimize;
end;
dime que puedo hacer para que se minimize cuando presione el boton de minizar solamente.
|