Witam napisałem sobie prostą funkcje usówającą wiersz ze StringGrida, która działa jak należy. Chciałem aby po naciśnieciu przycisku "Usun" najpierw wyskoczył MessageDlg z potwierdzeniem czy na pewno, ale nic sie nie wyświetla tylko od razu usówa wiersz.
procedure Tklienci.Button5Click(Sender: TObject); //usun wiersz
var
a, b, x :integer;
begin
x := MessageDlg('Treść komunikatu', mtConfirmation, [mbYes, mbNo], 0, mbYes);
if x = mrYes then begin
if StringGrid1.RowCount>1 then begin
for a:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[a, StringGrid1.Row]:='';
//przesuniecie wszystkich wierszy o 1 w gore
for a:=0 to StringGrid1.RowCount-1 do
for b:=0 to StringGrid1.ColCount-1 do
begin
StringGrid1.Cells[b, StringGrid1.Row+a]:=trim(StringGrid1.Cells[b, StringGrid1.Row+1+a]);
end;
if StringGrid1.RowCount>2 then stringgrid1.rowcount := stringgrid1.rowcount - 1 ;
end;
end;
end;
Piszę w Borland Delphi7. Proszę o pomoc