|
lo de blueSteel esta bien pero solo puedo usar el frame para un form dado q le devolvera a ese form los datos...lo q no me vale
mmm a ver como es el tema de Lepe...
la funcion abrirventana es un simple open form??? pq ahora mis mo no se como ahcerlo
y en cuanto a los q devuelve la funcion buscar, lo q queiro me lo devuelve en BUSCAREN, pero en que momento se meten
TBuscar = (codigo, nombre); estos son los 2 valores q quiero sacar...
Function TPC.Buscar( BuscarEn:TBuscar; InternalOpen :Boolean):String;
begin
Result := false; en mi caso quiero q sea string lo q devuelva...
case BuscarEn of
codigo :
with Tagente.Create(nil) do
try
if ShowModal = mrOk then
// en la ventana de busqueda se seleccionó un cliente válido
Result := DBGagentes.Fields[0].AsString;
finally
Free;
end;
end;
if (InternalOpen) then
if Result = false then // si no elige nada en la ventana de búsqueda, Result tendrá el valor -1.
AbrirVentana(BuscarEn, Result);
end;
|