Primero un C&P
Código Delphi
[-]
procedure TFiller.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_F5 :
begin
case iStatus of
0 : exit;
1 : RadioButton2_Init;
else Lanzar_Consulta;
end;
VK_ESCAPE :
begin
case iStatus of
0,1 : Filler.Close;
10,50 :
begin
iStatus := 1;Lanzar_Consulta;;
end
else
begin
iStatus := (iStatus - 1);Lanzar_Consulta;
end;
end
VK_F2 :
begin
if iStatus=1 then
begin
iStatus := 10;
Lanzar_Consulta;
end;
end
VK_F3 :
begin
if iStatus=1 then
begin
iStatus := 50;
Lanzar_Consulta;
end;
end
VK_RETURN :
begin
case iStatus of
11,52: exit;
10,50..51 : begin
iStatus := (iStatus+1);
Lanzar_Consulta;
end;
end
end;
Despues, la pregunta:
¿Que falla exactamente? Me jugaria un testiculo (hipoteticamente hablando) a que es de sintaxis, pero la idea es correcta.
Ya direis...