Cambiar color de panel al seleccionarlo

[rotsen26]

Buen día a todos...

Una pregunta a todos, como puedo cambiarle el color a un TPanel al darle clic???

Lo que pasa es que tengo varios paneles en una form, y quiero que se cambie de color el panel que le doy clic y se quede así hasta darle clic a otro panel. como puedo cambiar el color de ello???

Se le agradece su ayuda de antemano!!!

[Casimiro Notevi]

Mira los enlaces del final de la página, abajo del todo, espero que te sirva.

[ecfisa]

Empezado por rotsen26

...
Lo que pasa es que tengo varios paneles en una form, y quiero que se cambie de color el panel que le doy clic y se quede así hasta darle clic a otro panel.
...

Hola rotsen26.

Un modo de hacer lo que solicitas es:

Código Delphi [-]
...
implementation 

var
  PrevWinCtrl: TWinControl;

...

procedure TForm1.PanelsClick(Sender: TObject);
begin
  if Assigned(PrevWinCtrl) then
    TPanel(PrevWinCtrl).Color := clBtnFace; // color inicial
  TPanel(Sender).Color := clRed;            // color seleccion
  PrevWinCtrl:= TPanel(Sender);
end
...

Saludos.

Edito: Desde el Object Inspector deberás agregar el procedimiento PanelsClick a los eventos OnClick de los Panels del form.

[ecfisa]

Hola de nuevo.

Se me ocurrió otra forma de realizar lo mismo y que evita las múltiples asignaciones al evento OnClick de los TPanel:

Código Delphi [-]
...
implementation

var
  PrevWinCtrl: TWinControl;

procedure TForm1.MouseEvent(var Msg: TMsg; var Handled: Boolean);
var
  Ctrl : TWinControl;
begin
  if Msg.message =  WM_LBUTTONDOWN then
  begin
    Ctrl := FindVCLWindow(Mouse.CursorPos);
    if Assigned(Ctrl) and (Ctrl is TPanel) then
    begin
      if Assigned(PrevWinCtrl) then
        TPanel(PrevWinCtrl).Color := clBtnFace; 
      TPanel(Ctrl).Color := clRed;
      PrevWinCtrl := TWinControl(Ctrl);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage := MouseEvent;
end;
...

Saludos.

[rotsen26]

Empezado por ecfisa

Hola de nuevo.

Se me ocurrió otra forma de realizar lo mismo y que evita las múltiples asignaciones al evento OnClick de los TPanel:

Código Delphi [-]
...
implementation

var
  PrevWinCtrl: TWinControl;

procedure TForm1.MouseEvent(var Msg: TMsg; var Handled: Boolean);
var
  Ctrl : TWinControl;
begin
  if Msg.message =  WM_LBUTTONDOWN then
  begin
    Ctrl := FindVCLWindow(Mouse.CursorPos);
    if Assigned(Ctrl) and (Ctrl is TPanel) then
    begin
      if Assigned(PrevWinCtrl) then
        TPanel(PrevWinCtrl).Color := clBtnFace; 
      TPanel(Ctrl).Color := clRed;
      PrevWinCtrl := TWinControl(Ctrl);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage := MouseEvent;
end;
...

Saludos.

Una pregunta, el siguiente código a que se refiere???

Código Delphi [-]
if Msg.message =  WM_LBUTTONDOWN then

Porque me marca error en el!!!

[ecfisa]

Empezado por rotsen26

Una pregunta, el siguiente código a que se refiere???

Código Delphi [-]
if Msg.message =  WM_LBUTTONDOWN then

Porque me marca error en el!!!

Hola.

El mensaje WM_LBUTTONDOWN es disparado cuando se presiona el botón izquierdo del mouse.

Desconozco el motivo del error ya que no comentas cuál es. Pero si copiaste y pegaste el código anterior no tendría por que darlo.

Para que puedas revisar el código con tranquilidad te adjunto los fuentes del ejemplo (probado).

Saludos.