Ver Mensaje Individual
  #4  
Antiguo 17-09-2006
Avatar de Spynosa
Spynosa Spynosa is offline
Miembro
 
Registrado: nov 2004
Ubicación: Ecija - Sevilla
Posts: 99
Reputación: 20
Spynosa Va por buen camino
Puedes declaralo asi
Código Delphi [-]
unit formulario1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrm_pl = class(TForm)
    Edt_1: TEdit;
    Btn_n1: TButton;
    Btn_n3: TButton;
    Btn_o1: TButton;
    Btn_n2: TButton;
    Btn_n4: TButton;
    Btn_n7: TButton;
    Btn_n8: TButton;
    Btn_n5: TButton;
    Btn_n6: TButton;
    Btn_n9: TButton;
    Btn_o2: TButton;
    Btn_o3: TButton;
    Btn_n0: TButton;
    Btn_o4: TButton;
    Btn_o6: TButton;
    Btn_o5: TButton;
    function insertar(numero: string): integer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Frm_pl: TFrm_pl;

implementation
 {$R *.dfm}
 var usado: integer;
 TFrm_pl.function insertar(numero: string): integer;
 begin
  if (usado= 0) then
  begin
   Edt_1.Text:= '';
   usado:= 1;
  end;
  Edt_1.text:= Edt_1.text + numero;
 end;

end.


o bien puedes dejarlo como lo tienes y cambiar esto
Edt_1.text:= Edt_1.text + numero;

por esto:
Frm_pl.Edt_1.text:= Frm_pl.Edt_1.text + numero;
Responder Con Cita