Saludo a todos espero que se sientan bien todos.
Tengo este pequeño codigo con el cual ya creado el form llamado ctZona para consultar las zona, en dicho form tengo un dbgrid, como hago que al hacer doble click en el dato del dbgrid este me traiga los datos sobre el cual acciones el doble click. Con este codigo al colocar ya sea el codigo o la descripcion de la zona esta me trae con sigo los datos al mantenimiento de de zona.
Código Delphi
[-]
procedure TmtZona.btBuscarClick(Sender: TObject);
begin
ctZona:=TctZona.Create(self);
try
ctZona.Showmodal;
finally
If ctZona.Edit1.Text <> '' then
tZona.Locate('codzon',QuotedStr(ctZona.edit1.text),[])
else If (ctZona.Edit1.Text='') and (ctZona.Edit2.Text <> '') then
tZona.Locate('deszon',(ctZona.edit2.Text),[]);
ctZona.Free;
end;
end;
Espero me entiendan.
Caral ya estoy buscando la manera de colocar el codigo en rapidShare.