Ver Mensaje Individual
  #3  
Antiguo 13-09-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Tienes que asignarle un "Parent" a los "Edit".

Código Delphi [-]
txt.Parent := Form3;

Para asignar un evento has de hacer lo mismo que para el resto de propiedades, cuidándote de que el método que asignes tenga el mismo "prototipo" que el evento al que quieres asignarle.

Por ejemplo, en el caso de "OnClick" el prototipo es:

Código Delphi [-]
Onclick: TNotifyEvent;

Siendo "TNotifyEvent":

Código Delphi [-]
TNotifyEvent = procedure(Sender: TObject) of object;

Es decir, que para asignar al evento "OnClick" un método este tendría que ser declarado así, por ejemplo, en la clase "TForm3":

Código Delphi [-]
interface

type
  TForm3 = class(TForm)
  {...}
  private
    procedure ParaHacerClick(Sender: TObject);
  {...}
  end;

He implementado así:

Código Delphi [-]
procedure TForm3.ParaHacerClick(Sender: TObject);
begin
  //
end;

Ese método puedes ya asignarlo sin problemas al evento "OnClick" del botón que crees, ya digo, como si fuera una propiedad más:

Código Delphi [-]
btn := TButton.Create(Form3);
btn.OnClick := ParaHacerClick;
{...}
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita