Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 29.05.2011, 08:21   #1
artemavd
Модератор
Заслуженный модератор
 
Регистрация: 05.06.2008
Сообщений: 4,181
Вопрос Перенос текста в фиксированной ячейке StringGrid

Добрый день! Собственно вопрос и есть таков. Как выполнить перенос именно в фиксированной ячейке таблицы? Если ячейка фиксированная и она в заголовке. Заранее спасибо.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 30.05.2011, 09:57   #2
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,855
По умолчанию

я не совсем знаю Вашу задачу, но я делал так (код правил, поэтому мог чутка запороть, но идея должна быть понятна) , собственно, длля такого кода без разницы - фикс или не фикс ячейка, просто нажали - значит тащим, нажали ещё раз - поменяются ячейки:
Код:
var isdrag : boolean;
  coldrag, rowdrag : word;
...
procedure TForm1.SGMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var C, R : integer;
begin  
  (sender as tstringgrid).mousetocell(x,y,C,R);
  if (C=-1) or (R=-1)
    then begin
    isdrag := False; // коли левости - сбросим
    exit;
    end;
  if not isdrag // не было переноса 
    then begin
    isdrag := True
    rowdragdrag := R;
    coldragdrag := C;
    end
    else begin // иначе - осуществляли перенос
      isdrag := False; //  сбросим
      // здесь действия по переносу между ячейками с индексами R,C и coldrag/rowdrag
    end;
end;

Последний раз редактировалось phomm; 30.05.2011 в 10:02.
phomm вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Замена фиксированной позиции текста roborrr Microsoft Office Excel 2 30.04.2011 07:47
Перенос длинного текста в ячейке таблицы den_1973 HTML и CSS 4 12.10.2010 14:29
Подогнать ширину текста по ширине ячейке StringGrid Neko13 Общие вопросы Delphi 8 21.06.2010 09:46
изменение текста в ячейке stringgrid!!! GREENpes Помощь студентам 4 04.05.2010 15:33
Перенос текст в ячейке DataGrid doober Общие вопросы .NET 0 29.06.2009 11:37


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840