SoloCodigo
Programación General => Delphi => Mensaje iniciado por: Omarrpat en Jueves 21 de Octubre de 2004, 19:19
Título:
Procedimiento En Delphi
Publicado por:
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. :comp:
Título:
Re: Procedimiento En Delphi
Publicado por:
Amilius
en
Jueves 21 de Octubre de 2004, 21:41
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;