reusar un mismo form

[[enecumene]]

Hola Amigos del foro tengo esta duda, sucede lo siguiente tengo esto:

***FTramite(form)***

SpeedButton1...10
DBEdits1...10

***FBuscarPed(form)***

DBGrid1
BitButton1
Bitbutton2

hasta ahora supongo que van entendiendo, quisiera reusar el form FBuscarPed por cada SpeedButton que hay en FTramite. por ejemplo:

en el SpeedButton1 abre el form FBuscarPed y el codigo del BitButton1 es el siguiente:

Código Delphi [-]
procedure TFBuscarPed.BitBtn1Click(Sender: TObject);
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;

aqui esta el asunto como hago que en cada SpeedButton cuando abre el mismo form FBuscarPed el codigo varie? por ejemplo:

SpeedButton2.FBuscarPed.Show el bitbutton1 del FBuscarPed cambie de codigo asi:

Código Delphi [-]
procedure TFBuscarPed.BitBtn1Click(Sender: TObject);
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;

en vez del primer codigo y asi sucesivamente, no se si me hice entender, solo que quiero evitar tener que hacer el form FBuscarPed 10 veces, supongo que se hace con la sentencia CASE, espero que hayan podido entender lo que trato de hacer.

Saludos.

[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...