Unir Formularios

[agustin173]

Saludos a todos los del foro

Muchachos como puedo hacer que el formulario principal que es un MDI cuando lo minimize lo hagan todos los demas formularios,

Los demas formularios no son MDIHijos, son formularios normales 'stapontop'

como los puedo enlazar para que cuando minimize el mdi se minizen tambien los demas.

[ecfisa]

Hola agustin.

Pienso que podrías hacer así:

procedure TForm1.MinimizarTodo;
var
  i: Integer;
begin
  with Application do
    for i:= 0 to ComponentCount -1 do
      if (Components[i] is TForm) then
        Minimize;
end;

O, en lugar de Minimize, también:

   SendMessage(TForm(Components[i]).Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);

Saludos.

[urrutia_206]

hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?

[ecfisa]

Hola urrutia y bienvenido.

Te aconsejo crear un nuevo hilo (o tema) con tu cuestión, así todos podrán verlo y contestarte.

¿ Podriás especificar un poco más ?

Saludos.

[agustin173]

ecfisa donde debo poner este codigo en que parte de la aplicacion, porque copie lo que me diste y lo pegue y no me funciona ose me da un error que no reconoce que declare Tform1.minizartodo"

no entiendo por favor aclare un poco.

[agustin173]

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.

[ecfisa]

Empezado por agustin173

ecfisa donde debo poner este codigo en que parte de la aplicacion, porque copie lo que me diste y lo pegue y no me funciona ose me da un error que no reconoce que declare Tform1.minizartodo"

no entiendo por favor aclare un poco.

Hola Agustin.

Perdón por tardar con la respuesta pero me fuí a dormir...

De todos modos hubiera sido la misma que te dio cloayza.
Y sí, Caro tiene razón. ( lo que demuestra que me tendría que haber ido a dormir antes... )


Saludos.

[urrutia_206]

Empezado por urrutia_206

hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?

Empezado por ecfisa

Hola urrutia y bienvenido.

Te aconsejo crear un nuevo hilo (o tema) con tu cuestión, así todos podrán verlo y contestarte.

¿ Podriás especificar un poco más ?

Saludos.

me pueden ayudar a hacer este programa>?

Sen(x)= x – x elevado a Y
y

Deberá hacer un ciclo que resuelva la potencia.
Deberá hacer un ciclo que resuelva el factorial del mismo número.
El valor de x puede ser cualquier número (par o impar).
El valor de y debe ser un número impar(validar que no sea par).
El valor de la potencia es el mismo número del factorial.


por favor me pueden ayudar en este programa que me urge hacerlo y no tengo quien me ayude.

[ecfisa]

Hola urutia.

Veo no llevas mucho tiempo en el foro, te aconsejo crear un
nuevo hilo con el tus inquietudes, si no es muy probable que queden sin respuesta .

Bueno a ver...

Primero funciones: Potencia y Factorial. (usando ciclos)

function Potencia(x: Single; y:Integer): Double;
begin
  Result:= 1;
  while y > 0 do
  begin
    Result := Result * x;
    Dec(y);
  end;
end;
 
function Factorial(Num: Integer): LongInt;
begin
  Result:= 1;
  while Num > 1 do
  begin
    Result:= Result * Num;
    Dec(Num);
  end;
end;

Para verificar si es número:

function EsNumero(Valor: string): Boolean;
var
  n,cd: Integer;
begin
  Val(Valor, n, cd);
  Result:= cd = 0;
end;

Por último verificar a la salida de los TEdit's:

procedure TForm1.EditXExit(Sender: TObject);
begin
  if not EsNumero(EditX.Text) then
  begin
    ShowMessage('Número inválido');
    EditX.SetFocus;
  end;
end;
 
procedure TForm1.EditYExit(Sender: TObject);
begin
  if not EsNumero(EditY.Text) then
  begin
    ShowMessage('Número inválido');
    EditY.SetFocus;
    Exit;
  end;
  if not Odd(StrToInt(EditY.Text) then
  begin
    ShowMessage('Ingrese un número impar');
    EditY.SetFocus;
  end;
end;

Ejemplo de llamada:

procedure TForm1.Button1Click(Sender: TObject);
var
Pot: Double;
Fac: Longint;
begin
Pot:= Potencia(StrToFloat(EditX.Text),StrToInt(EditY.Text));
Fac:= Factorial(StrToInt(EditY.Text));
ShowMessage(FloatToStr(Pot)+' '+IntToStr(Fac));
end;

Con eso tenés las herramientas para solucionar el problema.

Nota: Como imagino que los valores de x e y son ingresados puse dos TEdit's para ello: EditX y EditY.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por urrutia_206

hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?

Antes de nada, te recomiendo que leas la Guía de estilo.
Una vez la hayas leído, abre un nuevo hilo y plantea tu pregunta explicando con detalle el problema. No te olvides de asignar al hilo un mensaje coherente con lo que te pasa.

Un saludo.