Ver Mensaje Individual
  #3  
Antiguo 16-02-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por rotsen26 Ver Mensaje
...
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 16-02-2013 a las 20:52:21. Razón: aclaración
Responder Con Cita