reusar un mismo form

[rcubillos]

Una forma sencilla de realizar los es utilizando el método FindComponent del formulario para buscar Dinamicamente el que corresponde a cada botón, como necesitas diferenciar cuales son el conjunto de componentes asociados a cada boton utiliza la propiedad tag del boton como indice.

Ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
TEdit(self.FindComponent('Edit'+intToStr( TControl(Sender).Tag) )).Text:='HOLA'
end;

Aqui asigno al edit cuyo nombre es edit + nro de la propiedad tag del boton presionado el texto Hola, en tu caso el resultado de algo mas.

[[enecumene]]

Gracias rcubillos por tu respuesta pero no me llego a funcionar lo tengo asi:

Código Delphi [-]
procedure TFBuscarPed.BitBtn1Click(Sender: TObject);
begin
FTramite.dbId2(self.FindComponent('dbId2'+intToStr( TControl(Sender).5) )).Text:=TbPedidono_ped.AsString;
Close;
end;

y me sale el siguiente error:

[Error] BuscarPed.pas(82): Missing operator or semicolon
[Error] BuscarPed.pas(82): Identifier expected but number found

que estoy haciendo mal?

Saludos...

[dec]

Hola,

Código Delphi [-]
TControl(Sender).5

Puede que quisieras decir:

Código Delphi [-]
TControl(Sender).Tag

[[enecumene]]

Hola dec y rcubillos lo he puesto asi:

Código Delphi [-]
FTramite.dbId1(self.FindComponent('dbId1'+intToStr( TControl(Sender).Tag) )).Text:=TbPedidono_ped.AsString;

pero sucede que me sale este error aque se debe?:

[Error] BuscarPed.pas(82): Missing operator or semicolon

Saludos...

[[maeyanes]]

Estás haciendo mal las cosas...

La función FindComponent te devuelve un objeto de tipo TComponent. Este objeto lo tienes que "convertir" en un TEdit para poder asignar bien el valor:

Código Delphi [-]
// Este método debe estar asignado al evento OnClick de todos los TBitBtn
procedure TForm1.BitBtnClick(Sender: TObject);
var
  Index: string;

begin
  Index := IntToStr(TBitBtn(Sender).Tag);
  TDBEdit(FindComponent('DBEdit' + Index)).Text := TbPedidono.AsString;
  TDBEdit(FindComponent('dbId' + Index)).Text := TbPedidono_ped.AsString;
  TDBEdit(FindComponent('dbTipo' + Index)).Text := TbPedidotipo_exp.AsString;
  TDBEdit(FindComponent('dbDpto' + Index)).Text := TbPedidodpto.AsString
end;

Con el ejemplo anterior, a cada TBitBtn de tu forma debes asignarle su propiedad Tag de tal forma que el que quieras que llene los TDBEdits con terminación 1 tenga como valor 1...


Saludos...

[[enecumene]]

Gracias maeyanes por tu respuesta, pero debido a mi ignorancia al no saber nada sobre los Tags y debido tambien a que el codigo que me sugeriste tampoco me funciono, decidi usar las sentencias if...then.else de esta manera:

Código Delphi [-]
procedure TFBuscarPed.BitBtn1Click(Sender: TObject);
var
Index1: string;
Primero: string;
Segundo: string;
begin
Index1:= Label3.Caption;
Primero:='Agregar Primer Pedido';
Segundo:='Agregar Segundo Pedido';
if Index1 = Primero then
begin
FTramite.DBEdit1.Text:=TbPedidono.AsString;
FTramite.dbId1.Text:=TbPedidono_ped.AsString;
FTramite.dbTipo1.Text:=TbPedidotipo_exp.AsString;
FTramite.dbDpto1.Text:=TbPedidodpto.AsString;
Close;
end
else
if Index1 = Segundo then
begin
FTramite.DBEdit2.Text:=TbPedidono.AsString;
FTramite.dbId2.Text:=TbPedidono_ped.AsString;
FTramite.dbTipo2.Text:=TbPedidotipo_exp.AsString;
FTramite.dbDpto2.Text:=TbPedidodpto.AsString;
Close;
end;

end;

les agradezco a todos por sus respuestas y tambien recibo criticas y mejoras del actual codigo.. gracias

Saludos

[b3nshi]

Mmm... criticas... si puede ser... creo q la forma q decidiste utilizar no es la mas eficiente, puesto q te podrias ahorrar lineas de codigo utilizando las formas presentadas anteriormente en las respuestas...

Pero bueno... queda a criterio tuyo, te recomendaria seguir intentando hacerlo como te dijeron para de paso darte la oportunidad de aprender...

En cuanto al codigo q elegiste... una recomendacion... no es q este escrito en algun libro, simplemente yo lo considero mejor...

Cuando se trata de comparar cadenas de texto, es conveniente quitar espacios al principio de la cadena y pasar todo el texto a mayúsculas, para de esa forma poder comparar mejor dos cadenas... En este caso no se de q depende el texto del Label3 pero si este depende del usuario, el mismo debera ingresar el texto exactamente como tu se lo asignas a primero y segundo.

Esto te recomiendo q cambies en tu codigo:

Código Delphi [-]
Index1:= trim(uppercase(Label3.Caption));
Primero:='AGREGAR PRIMER PEDIDO';
Segundo:='AGREGAR SEGUNDO PEDIDO';

{Saludos}