Ver Mensaje Individual
  #8  
Antiguo 16-12-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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
Hola ZiriusB.

Se me ocurre que podrías usar el evento OnExit de cada ComboBox. (aunque también podría ser OnChange...)

Algo como :
Código Delphi [-]
procedure TForm1.ComboBoxExit(Sender: TObject);
var
  i, r, c: Integer;
begin
  r := 0;
  c:= 0;
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TComboBox) and (TComboBox(Components[i]).Text > '') then
    begin
       r := r + StrToInt(TComboBox(Components[i]).Text);
       c := c + 1;
    end;
  end;
  Edit1.Text := FormatFloat('#,##0.##', r/c);
end;

Tendrías que asignar el procedimiento ComboBoxExit a cada ComboBox de tu form.

Saludos.

Última edición por ecfisa fecha: 16-12-2010 a las 20:39:12.
Responder Con Cita