Form padre, hijos y alphablendvalue

[cesarsoftware]

Hola compañeros.

Siguiendo el consejo de casimiro, abro este nuevo hilo.

Necesito que el formulario principal (o la imagen que contiene alineada al client, un plano topografico, por ejemplo) no sea trasparente pero los formularios hijo si.
Sobre ese plano dibujo una casitas que muestran la actividad remota, ahora esas casitas (formularios creados en tiempo de ejecucion) no son trasparentes y tapan el plano, si son muchas, el plano del fondo ni se ve y ademas la casita se puede agrandar (tiene 2 tamaños en funcion de la cantidad de informacion a mostar).
Si creo el form hijo y le asigno el parent del formulario padre, las casitas se mueven con el plano pero cojen la propiedad alphablendvalue del padre, osea o todos trasparentes o todos opacos.
Si creo el form hijo y no le asigno el parent del formulario padre, las casitas se quedan en la posicion de la pantalla (que es el parent) donde estan y el plano se va solo, eso si, las casitas son trasparentes.

ejemplo del codigo

Código Delphi [-]
  // inicializa objetos
  Forma := TForm.Create(FormularioPadre);
  Forma.Parent := FormularioPadre;//se mueve con el padre pero no es trasparente
  // si no asigno y el formulario padre es la pantalla, son trasparentes pero no se mueven dentro del padre
  Forma.Position := poDesigned;
  Forma.Left := Left;
  Forma.Top := Top;
  if Icono = False then
  begin
    Forma.Width := 206;
    Forma.Height := 256;
  end
  else
  begin
    Forma.Width := 26;
    Forma.Height := 26;
  end;
  Forma.Color := clHotLight;
  Forma.Visible := Visible;
  Forma.BorderStyle := bsNone;
  Forma.AlphaBlend := True;
  Forma.AlphaBlendValue := 115;
  Forma.ShowHint := True;
  Forma.Hint := 'Left-Click y arrastre para mover';
  Forma.OnMouseDown := LedOnMouseDown;
  Forma.OnMouseMove := LedOnMouseMove;
  Forma.OnMouseUp := LedOnMouseUp;
  CBmodelo := TComboBox.Create(Forma);
  CBmodelo.Parent := Forma;
  CBmodelo.Top := 10;
  ...
  LedOn := TShape.Create(Forma);
  LedOn.Parent := Forma;
  LedOn.Shape := stCircle;
  ...

¿Alguna sugerencia (de escafandra, por ejemplo?

Gracias aunque sea por leer.

[ricardopl65]

he estado haciendo unas pruebas y he sacado algo como esto.
Subo un proyecto hecho en XE2 , para otras versiones igual tienes que cambiar algun uses.

Lo he subido al FTP carpeta delphi/ejemplos/varios/mditrans.zip
porque no me deja subirlo de ningua otra manera

[Casimiro Notevi]

Crea el .zip sin el ejecutable, deja sólo el código fuente y súbelo con la opción "archivos adjuntos", así no ocupará casi nada.

[ricardopl65]

Ya lo he intentado pero me dice exceso de cuota.
Y cuando intento ver mis adjuntos me dice:

Tú has sido excluido por las siguientes razones:
No reason was specified.
Fecha en que será levantada tu exclusión: Nunca

Lo he subido con ejecutable por si tenia problemas para compilarlo debido a las versiones de delphi

[Casimiro Notevi]

Por eso te comento, que lo intentes sin el ejecutable, a ver si así puedes subirlo, no recuerdo cuánto es lo que puedes subir.

[ricardopl65]

edito, subido sin ejecutable y tambien he quitado la propiedad picture del timage, que era lo que hacia grande el .dfm
por lo tanto deberas asignar un bitmap pequeño al timage

[ecfisa]

Empezado por ricardopl65

he estado haciendo unas pruebas y he sacado algo como esto.
Subo un proyecto hecho en XE2 , para otras versiones igual tienes que cambiar algun uses.

Lo he subido al FTP carpeta delphi/ejemplos/varios/mditrans.zip
porque no me deja subirlo de ningua otra manera

Hola Ricardo.

Busque el archivo "mditrans.zip" en la carpeta Delphi (y subcarpetas) del FTP y no pude encontrarlo, ¿ Tampoco te permitió subirlo allí ?

Quita el ejecutable, avisanos si continuas teniendo inconvenientes y vemos como solucionarlo.

Saludos.

[ricardopl65]

Empezado por ecfisa

Hola Ricardo.

Busque el archivo "mditrans.zip" en la carpeta Delphi (y subcarpetas) del FTP y no pude encontrarlo, ¿ Tampoco te permitió subirlo allí ?

Quita el ejecutable, avisanos si continuas teniendo inconvenientes y vemos como solucionarlo.

Saludos.

Lo subí pero desapareció , lo he vuelto a subir sin ejecutable, pero ya lo podeis quitar puesto que lo he podido poner como adjunto

[cesarsoftware]

Gracias por tu aporte ricardo,
A ver si a lo largo de la mañana le hecho un vistazo y os cuento.

[cesarsoftware]

Ya lo he probado y esta muy bien la jugada ricardo, gracias, pero esta solucion tiene 2 incovenientes, uno es que es totalmente trasparente y no "semitrasparente" como con alphabledvalue y el efecto visual cambia mucho ya que la "casita" original tiene un tono azulado.
La otra es semisolucionable, ya que al ser la forma trasparente no puedo moverla arrastando con el raton y tendria que asignar eventos a cada control de la forma pero no podria moverla pichando "en los huecos" de la forma que es lo que el usuario va a hacer.

¿Que?, ¿Se puede hacer un alphablend sin eredar la propiedad del padre?

Thanks.