поможите ,люди добрые [D5, Win95/98]
Катерина © (2001-12-20 07:37:00)
Добренько утречко.у меня маленькое затруднение -не получается
удалить строку из стрингрида. какая нужна функция и с какими
параметрами? Я попытнулась применить delete, но что-то delphi в
параметрах не устраивает.
gek (2001-12-20 08:01:00) [1]
procedure TFormEnterData.StringGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
var
TStr:TStrings;
begin
if key = VK_DELETE then
If MessageDlg("Удалить текущую запись ? ",mtWarning,
[mbOk,mbCancel],0) = mrOk then
with StringGrid1 do
begin
if RowCount = 2 then
begin
StringGrid1.RowCount:=2;
StringGrid1.Rows[1].Clear;
exit;
end;
TStr:=Rows[RowCount-1];
Rows[(StrToInt(LabelPosition.Caption))]:=TStr;
RowCount:=RowCount - 1;
LabelCountRows.Caption:=IntToStr(RowCount -1);
end;
end;
Наверх 
ЧАТ |
Орешник |
|
