Non riesco a capire da cosa dipenda; al click in un radio group procedo con una stampa;
prima che la stampa sia inviata su carta, chiedo conferma tramite un MessageDlg; il problema è che il messaggio di dialogo appare, confermo, stampo e poi riappare lo stesso messaggio; da cosa potrebbe dipendere?
procedure TTfMenuStampe.RgCategorieClick(Sender: TObject);
var i,y:integer;
sceltacategoria:string;
arc:array[1..maxelcat] of Cespite;
buttonSelected:integer;
numrigdst:integer;
begin
i:=-1;y:=0;
repeat
i:=i+1;y:=y+1;
if i=RgCategorie.ItemIndex then sceltacategoria:=arrcate[y].CodTipo;
until y=idxc;
AzzeraCespite;
for i:=1 to idx do arc[i]:=ces;
y:=0;
for i:=1 to idx do begin
if sceltacategoria=arrces[i].CodCat.CodTipo then begin
inc(y);
arc[y]:=arrces[i];
end;
end;
for i:= 1 to idx do arrces[i]:=ces;
for idx:=1 to y do arrces[idx]:=arc[idx];
if MessageDlg('RICHIESTA', 'Procedo con la stampa?', mtConfirmation,
[mbYes, mbNo, mbIgnore],0) = mrYes then stampariga;
RgCategorie.ItemIndex:=-1;
RgCategorie.Visible:=False;
end;