Hola
Cita:
Empezado por Tecnofacil
El problema es que debo programar los cambios de color para cada panel, asumo que debe haber una manera de crear una función que haga eso pasandole como parámetro el nombre del panel pero no encontré la manera.
|
Puedes asignar el mismo contolador de evento a todos los paneler del form. Luego para identificar el panel que desencadeno el evento tenes el parametro sender.
Podrias hacer:
Código Delphi [-]
procedure TFrmArticulos.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if sender is panel1 then
tpanel(sender).Color:=clSkyBlue;
end;
Espero sea util
Saludos
__________________
Caminante, son tus huellas el camino y nada más; Caminante, no hay camino, se hace camino al andar.
Antonio Machado
|