Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2012, 02:10   #1
xxxRiderxxx
Новичок
Джуниор
 
Регистрация: 13.11.2011
Сообщений: 2
По умолчанию рандом рядка в StringGrid

есть StringGrid, в первой строке рандом чисел, в етом же рядке должно выбратся рандомом любое число и выделить ету ячейку каким либо цветом. Если не очень понятно обьесню подробней. Заранее спасибо
xxxRiderxxx вне форума Ответить с цитированием
Старый 17.05.2012, 07:55   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
обьесню подробней
Не трудись. Твой "изык" все равно никто не поймет.
Вот тебе пример обработчика заливки случайно выбраной ячейки в строке
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with TStringGrid(Sender), TStringGrid(Sender).Canvas do begin
   if ACol=0 then tag:=Random(ColCount);
   if ACol=tag then begin Brush.Color:=clGrayText; FillRect(Rect); end
   else Brush.Color:=clWindow;
   TextOut(Rect.Left,Rect.Top,IntToStr(random(100)));
 end;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Знайти слово, що розташоване у центрі рядка... Кулибаба Петро Паскаль, Turbo Pascal, PascalABC.NET 1 24.04.2012 22:08
рандом ZoomHz Общие вопросы C/C++ 1 10.07.2011 20:22
Рандом Ya_Aston Помощь студентам 4 17.12.2010 22:43
програма для обробки рядка символів. misha25525 Помощь студентам 2 15.04.2010 16:55
Добавление в двухмерный массив рядка и столбца с заданым номером V!K Помощь студентам 2 13.04.2009 15:28