Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)

- - Opaidad. (https://www.clubdelphi.com/foros/showthread.php?t=46821)

REHome

11-08-2007 00:38:58

Opaidad.

Hola:

Teniendo un Form1, tengo la opacidad de la ficha al 100% (Normal, el que viene predeterminado).

Al coger la ficha con el ratón y desplazarla, quiero que se ponga de opacidad con una transparecia del 75%.

Al soltar el ratón, que recupere el 100%

Se que se hace con eventos, pero no cual de ellos.

Espero vuestra ayuda.

REHome

11-08-2007 01:54:07

No pasa nada, yo lo quería en Visual C#.

Voy a intentarlo sacar.

Gracias.

nightynvid

11-08-2007 03:28:02

pues por lo general seria usando los eventos mouseup, mousedown y move del formulario pero ya entrados en tema tambien puede ser de esta manera.

Código:

Public Class Form1

    Dim bStartDrag As Boolean= False



    Private Sub Form1_MouseCaptureChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseCaptureChanged

        bStartDrag = Not bStartDrag

        If Not bStartDrag Then Me.Opacity = 1

    End Sub



    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged

        If bStartDrag Then Me.Opacity = 0.5

    End Sub

End Class

no me regañen por ponerlo en vb, pero es que en mi trabajo no tengo un delphi a la mano ;)

nightynvid

11-08-2007 16:53:47

para los que quieran conocer al hermanito mayor de vb

Código:

    public partial class Form1 : Form

    {

        bool bStartDrag = false;

        public Form1()

        {

            InitializeComponent();

        }



        private void Form1_MouseCaptureChanged(object sender, EventArgs e)

        {

            bStartDrag = !bStartDrag;

            if(!bStartDrag) this.Opacity=1;

            

        }



        private void Form1_LocationChanged(object sender, EventArgs e)

        {

            if(bStartDrag) this.Opacity=0.5;

        }

    }

La franja horaria es GMT +2. Ahora son las 12:59:27.