Buenos dias amigos del foro, decirles que como siempre con los post del foro uno aprende mas sobre programación.
Antes comentarles el motivo de este post, tengo un listview q me muestra iconos de camas dependiendo el campo de una de mi tabla en firebird ahora lo que hice con la ayuda de los post del foro, es que al hacer dobre click sobre un icono valido me muestra un form de registro de datos de los pacientes a esa cama, el codigo en el evento doble click es el siguiente:
Código Delphi
[-]
procedure TF_Registro_Internacion.ListView1DblClick(Sender: TObject);
var seleccionado:string;
begin
seleccionado:='';
seleccionado:=listview1.Selected.Caption;
if seleccionado<>'' then
begin
if listview1.Selected.ImageIndex=1 then
begin
modulo_dir_medica.MDOQ_Nro.Close;
modulo_dir_medica.MDOQ_Nro.ParamByName('tipo').AsInteger:=tipo.KeyValue;
modulo_dir_medica.MDOQ_Nro.ParamByName('sala_cama').AsString:=listview1.Selected.Caption;
modulo_dir_medica.MDOQ_Nro.Open;
f_internaciones:=tf_internaciones.Create(Self);
try
f_internaciones.nro:=modulo_dir_medica.MDOQ_Nro.FieldByName('nro').AsInteger;
f_internaciones.Edit1.Text:=seleccionado;
f_internaciones.Edit2.Text:=tipo.Text;
f_internaciones.ShowModal;
finally
f_internaciones.Release;
end;
end
end
else
end;
El problema es que cuando hago doble click en un espacio en blanco del listview me sale un error :access violation at adress 0065FAA3 in module SIHCA:exe
y en el codigo me marca la siguiente linea :
Código Delphi
[-]
seleccionado:=listview1.Selected.Caption;
entiendo que cuando hago doble click en un espacio en blanco la linea anterior no tendria q mostrar texto pero no se controlar este error q se genera, les estare muy agradecido por la ayuda que me brinden amigos del foro