Autor Tema: Procedimiento En Delphi (Leído 1562 veces)

Omarrpat · « **en:** Jueves 21 de Octubre de 2004, 19:19 »

Que tal amigo, ocupo su ayuda, necesito cear un procedimiento para manejar la opcion de habilitar o deshabilitar botones en una forma algo asi

procedure botones(estado:Boolean)
Begin
btnAgregar.Enable:=Estado;
btnEliminar.Enable:=Estado;
btnSalir.Enable:=Estado;
End;

Necesito saber como declararlo, no he encontrado la menera.

Amilius

Defininiendo el procedimiento:

Código: Text

 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
....
...
  private
    { Private declarations }
    procedure CambiarEstadoBotones(NuevoEstado:boolean);
...
 
 

Implementación de un procedimiento que cambia el estado de TODOS los botones de la clase Tbutton.

Código: Text

 
procedure TForm1.CambiarEstadoBotones(nuevoEstado:boolean);
var i:integer;
begin
  for i:=0 to componentCount-1 do
    if Components[i] is TButton then
      with TButton(Components[i]) do
        enabled:=nuevoEstado;
end;
 
 

SoloCodigo

Autor Tema: Procedimiento En Delphi (Leído 1562 veces)

Omarrpat

Procedimiento En Delphi

Amilius

Re: Procedimiento En Delphi