Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
Вниз
Перемещение строк в StringGrid Найти похожие ветки
← →
Gizza © (2006-07-02 10:03) [0]Доброго времени...
Все хэлпаки облазил, не нашел...
Подскажите пожалуйста, можно ли как нибудь легко сдвинуть (например, строки с 7 по StringGrid1.rowcount) вверх на одну строчку (естественно, она пустая).
Если нет, придется каждую строчку копировать в предыдущую, удалять текущую, как то это неудобно и муторно....
Заранее спасибо.
← →
SUN_ALF © (2006-07-02 13:03) [1]То, о чём Вы говорите, есть ничто иное, как исключение целой строки из таблицы. Я сам как-то раз искал подобную вещь, но никаких ДелетеРоу так и не нашел :((
← →
PSPF2003 © (2006-07-02 13:08) [2]Можно в цикле
← →
Gizza © (2006-07-02 13:34) [3]
> Можно в цикле
Вот, сделал... кому надо пользуйтесь:
var delrow: TGridRect; movrow:integer;
delrow:=grid1.Selection;
for movrow:=delrow.Top to grid1.RowCount-1 do
begin
grid1.Rows[movrow].Text := grid1.Rows[movrow+1].Text;
grid1.Rows[movrow+1].Clear;
end;
← →
MBo © (2006-07-02 14:26) [4]THackGrid = class(TStringGrid);
...
THackGrid(StringGrid1).DeleteRow(1);
← →
Gizza © (2006-07-02 19:55) [5]
> THackGrid = class(TStringGrid);
А как это ввести в форму, на которой нет TStringGrid?
Всмысле таблица на одной форме, а кнопка, кот удаляет строки на другой...
← →
MBo © (2006-07-02 20:32) [6]>А как это ввести в форму, на которой нет TStringGrid?
Прямо так и написать в разделе type нужного модуля
← →
Gizza © (2006-07-02 21:01) [7]
> Прямо так и написать
Прямо так и написал, но "говорит": ERROR, мол на форме нет никаких TStringGrid, и дальше работать не буду.....
← →
Leonid Troyanovsky © (2006-07-02 21:03) [8]
> Gizza © (02.07.06 21:01) [7]
> Прямо так и написал, но "говорит": ERROR, мол на форме нет
> никаких TStringGrid, и дальше работать не буду.....
Не верю.
--
Regards, LVT.
← →
Жуков Олег (2006-07-02 21:29) [9]
> мол на форме нет никаких TStringGrid, и дальше работать
> не буду.....
1. Прямо так и говорит что именно на форме нет?
2. Если не 1., тогда uses Grids; иначе - уже ничем не поможешь.
← →
Gizza © (2006-07-02 22:44) [10]
> 1. Прямо так и говорит что именно на форме нет?
Пишу дословно:
[Error] Unit2.pas(87): Local class, interface or object types not allowed
[Error] Unit2.pas(87): Class type required
И курсор ставит после:THackGrid = class(курсорTStringGrid);
← →
Leonid Troyanovsky © (2006-07-02 22:58) [11]
> Gizza © (02.07.06 22:44) [10]
> [Error] Unit2.pas(87): Local class, interface or object
> types not allowed
Кликни мышью на эту строку и нажми F1,
Читать вдумчиво.
--
Regards, LVT.
← →
Gizza © (2006-07-02 23:06) [12]
> Кликни мышью на эту строку и нажми F1,Читать вдумчиво.
Хнык, там на английском, не очень то вдумчиво получается....
← →
Leonid Troyanovsky © (2006-07-02 23:26) [13]
> Gizza © (02.07.06 23:06) [12]
> Хнык, там на английском, не очень то вдумчиво получается.
Ну а слово "Example" понятно?
Может именно он спасет отца русской демократии?
--
Regards, LVT.
← →
Gizza © (2006-07-02 23:40) [14]Всё равно ни фига не понял...
Ладно уж, забейте, я ручками.....
← →
MBo © (2006-07-03 12:12) [15]как уже сказали, в uses должен быть указан модуль Grids, чтобы компилятор знал про TStringGrid.
Сильно настораживает номер строки
>[Error] Unit2.pas(87):
он далеко не 17 ;)
В каком меcте модуля ты вписал эту строку?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.011 c
