devolver valores al form que lo llamo

[[Lepe]]

Al parecer, requieres algo distinto a lo que yo propongo.

El botón Aceptar no debe enviar nada a ningún Form. El Form que invoca el frame, será el responsable de capturar los datos.

Lo más cómodo, crear en el Frame un par de propiedades, esto hará mucho más legible el código cuando usemos el frame en todas las ventanas.

Código Delphi [-]
type TAgente = Class(TFrame)

private
  function GetCodigo:integer;
  procedure Setcodigo(Value:integer);
  function GetAgente:string;
public
   property Codigo: integer read GetCodigo write SetCodigo;
   property Agente: string read  GetAgente; // propiedad de solo lectura
end;

implementation

function TAgente.GetCodigo:integer;
begin 
  Result := tblClientes.Fieldbyname('codigo').Asinteger;
end;

procedure TAgente.SetCodigo(Value :integer);
begin
  tblClientes.Open; // debe estar abierta la tabla antes de buscar
  if Value <> GetCodigo then
  begin 
     if not tblcliente.locate('codigo', value, []) then
        ShowMessage('No se encuentra el agente con código ' + inttostr(Value));
  end;

function TAgente.GetAgente:string;
begin
  Result := tblCliente.fieldbyname('Nombre').AsString;
end;

Esto es algo más complejo de lo que has pedido, pero lo necesitarás.

Lo que he hecho es definir 2 propiedades que tendrán los datos del agente elegido en el grid, además doy la posibilidad de que muestre un agente seleccionado al mostrar el frame.

por ejemplo: Toda venta de un negocio, tiene asociado un "Agente de venta", bien, desde una ventana "Ventas" quiero mostrar el frame y seleccionar el agente de código 20:

"F" es un frame TAgente puesto en la ventana "ventas".

Código Delphi [-]
procedure Tventa.Button1Click(...);
begin 
  F.Codigo := 20; 
end;

Si ahora en la ventana de ventas, queremos saber qué agente hay seleccionado en el frame:

Código Delphi [-]
procedure Tventas.TablaVentasBeforePost(....);
begin
  tablaVentas.CodigoAgente := F.Codigo; 
  label1.caption := F.Agente;  // el nombre del agente no sé que hacer con él
  // lo pongo en un label 
end;

Saludos y espero se entienda, si no, dime cualquier cosa Saludos

[djanp]

puffff ojala pudiera comprobarlo pero ahora tengo un error
class Tbutton not found....es curioso pq he quitado todos los button q tenia a ver si se corregia y nada...

[[Lepe]]

Parece que hubieses tocado las opciones del Library Path (Tools -> Environment Options -> Library Path)

Tbutton está declarado en la unidad StdCtrls.pas de la vcl, si el IDE de delphi no encuentra ese archivo, no puede compilar.

Prueba a añadir "StdCtrls" en los uses a ver...

Saludos

[djanp]

ya lo tienen todos peustos , y añadi BUTTON a los q da el problema, pero nada...

[djanp]

bueno ya corregi el problema, pero tengo una duda de como scar el frame
como hago para q salga en otra ventana pequeña? q pongo en ???
y como hago para no tener q crear de nuevo un frame en TpvBeforePost?
que utilice el que he creado enel procedure Bagenteclick


procedure TPV.BagenteClick(Sender: TObject);
begin
with Tframeagen.Create( Self ) do
begin
Visible := True;
Parent. := ???;
end;
end;

procedure TPV.TpvBeforePost(DataSet: TDataSet);
begin
TPV.FieldbyName('C Agente').AsString := TFrameagen.Create(self).Codigo;
DBEdit14.DataField:= frameagen.Fframeagen.Agente;
end;


graicas

[[Lepe]]

No sé como estás trabajando, lo normal, es poner el frame en tiempo de diseño, es decir, paleta Standard de delphi, Frame, y ahora haces click en el form TPV, te pedirá que elijas un Frame y lo añade a ese Form.

Ese Frame es un componente más (como un TEdit, TDBEdit, etc), puedes hacer referencia a él como otro componente cualquiera.

Así te olvidas de de crear el frame en tiempo de ejecución (TFRameAgen.Create(self).

SAludos