hola a todos nuevamente
utilizo delphi 5 y paradox
he creado unos componentes( tedit) en timpo de ejecucion
Código Delphi
[-]
procedure TFormulario.crear;
var
edt1:tedit;
begin
edt1 := TEdit.CReate(Formulario);
edt1.Parent :=PANEL2;
edt1.Name :='R1';
edt1.Top := 40;
edt1.Left := 16;
edt1.Width := 33;
Edt1.Text :=DM.QPTT1.ASSTRING; EDT1.TabOrder:=0;
EDT1.OnKeyPress:=Edit1KeyPress;
edt1.OnChange:=Edit1Change;
hasta aqui todo bien
quiero crear un procedimiento para este objeto creado,
similar a este
Código Delphi
[-]
procedure TFormulario.Edit1Change(Sender: TObject);
begin
IF EDT1.TEXT='' THEN
BEGIN
EDT1.TEXT:='0';
EDT1.SelectAll;
END;
end;
como lo hago en tiempo de ejecucion
gracias por su pronta respuesta