Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

поможите ,люди добрые 


Катерина   (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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.025 c
14-22398          Jey                   2001-11-10 18:55  2002.01.08  
Тут вот приспичило IRC клиент сделать ....


1-22030           Андрей Сенченко       2001-12-18 12:49  2002.01.08  
Form.OnCloseQuery - Как обработать ?


1-22111           Кто нибудь делал?     2001-12-14 08:12  2002.01.08  
Создать выпадающий список в StringGride, типа Lookup в DBGride


3-21983           victor                2001-12-06 13:13  2002.01.08  
серийный номер на делфи 6


6-22287           Андрей                2001-08-08 10:35  2002.01.08  
Кто нибудь работал с WebSnap ????