Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

поможите ,люди добрые   Найти похожие ветки 

 
Катерина   (2001-12-20 07:37) [0]

Добренько утречко.у меня маленькое затруднение -не получается удалить строку из стрингрида. какая нужна функция и с какими параметрами? Я попытнулась применить delete, но что-то delphi в параметрах не устраивает.


 
gek   (2001-12-20 08:01) [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;




Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
14-22400
Ежик
2001-11-11 17:10
2002.01.08
И чего такие все вялые?


14-22385
модератор
2001-11-03 11:57
2002.01.08
>To Merlin - (SYSTRAY)


14-22394
Vitaly
2001-11-09 19:51
2002.01.08
День МЕНТА завтра....


1-22219
dimonf
2001-12-16 17:23
2002.01.08
Как сделать, чтобы Canvas прорисовывался при любых монипуляцих с окном


3-21959
Николаев Констанитн
2001-12-04 20:54
2002.01.08
Ошибка при активизации TTable???