Cambiar Color a Panel

[[egostar]]

Bueno, me parece que el problema es mas de concepto que de otra cosa, estás intentando que cambie el color del panel cuando haya un cambio en el registro, pero yo lo haría en el evento OnShow de la forma para que se "actualice" cuando se muestra la pantalla, y claro, dejaría el proceso que tienes para que se ejecute cuando se registre otra reservación.

Saludos

[rotsen26]

Empezado por egostar

Bueno, me parece que el problema es mas de concepto que de otra cosa, estás intentando que cambie el color del panel cuando haya un cambio en el registro, pero yo lo haría en el evento OnShow de la forma para que se "actualice" cuando se muestra la pantalla, y claro, dejaría el proceso que tienes para que se ejecute cuando se registre otra reservación.

Saludos

Ya lo he puesto en el evento OnShow pero sigue sin mostrar el resultado...

[ecfisa]

Hola rotsen26.

Otra opción puede ser usar el evento OnDataChange del TDataSource:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource.OnDataChange:= DataChange;
  DBGrid1.DataSource.DataSet.Open;
end;

procedure TForm1.DataChange(Sender: TObject; Field: TField);
begin
  if DBGrid1.DataSource.DataSet.FieldByName('estatus').AsString = 'RES' then
    Panel1.Color:= clRed
  else
    Panel1.Color:= clGreen;
end;


//...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DBGrid1.DataSource.OnDataChange:= nil;
end;

Asigno el evento por código para darle mayor claridad al ejemplo. Pero lo podés hacer desde el Object Inspector, en tiempo de diseño, diréctamente desde la pestaña Events del componente TDataSource relacionado al DBGrid.

Saludos.