Programación General > Delphi

 Procedimiento En Delphi

(1/1)

Omarrpat:
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. :comp:

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;  

Navegación

[0] Índice de Mensajes