VPF::Как вызыать процедуру TForm1.DBGrid1DrawColumnCell

Drizhenko

Дата 10.11.2005, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Как вызвать процедуру

Код

TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);

из таймера и при нажатии кнопки?

~FoX~

Дата 10.11.2005, 10:16 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Можно так:

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if sender = Button1 then ShowMessage('Нажата кнопа!!!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  rect: TRect;
  DataCol: Integer;
  Column: TColumn;
  State: TGridDrawState;
begin
  DBGrid1DrawColumnCell(Sender, rect, DataCol, Column, State);
end;

Тока зачем?

--------------------

…множественность никогда не следует полагать без необходимости…

Drizhenko

Дата 10.11.2005, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Идея такова. Есть база данных IP адресов. При нажатии на кнопку все адреса, занесенные в БД начинают пинговаться. Если адрес не доступен, то соответствующая ячейка заливается красным цветом.

~FoX~

Дата 10.11.2005, 11:34 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Drizhenko
Ну вольнО конечно, а не проще сделать рефрешь и перерисовать по условию в красный то что нужно?
http://delphi.olympus.ru/dk/helloword/dbGridColor.htm

--------------------

…множественность никогда не следует полагать без необходимости…

Drizhenko

Дата 10.11.2005, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Спасибо за ссылку. Конечно, лучше сделать как ты говоришь, просто я не знал, что так можно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »