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
|