VPF::Нужно вывести сообшение когда выполнится процедура

Boyur

Дата 17.6.2012, 20:00 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

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

Здравсвуйте... как мне вывести сообшение когда полностью выпонится процедуа DBGrid1DrawColumnCell?
Или можно вывести сообшение когда полностью построется вся форма?
Есть чтонибуть на подобей FormCreat, только чтобы отслеживала не начало создание формы а конец? smile

XperT

Дата 17.6.2012, 21:24 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

Здравсвуйте... как мне вывести сообшение когда полностью выпонится процедуа DBGrid1DrawColumnCell?

В обработчик события добавьте нужный код.

Цитата

Есть чтонибуть на подобей FormCreat, только чтобы отслеживала не начало создание формы а конец?

Такого события нету. Рекомендую к прочтению: http://www.delphisources.ru/pages/faq/base/form_life.html

northener

Дата 18.6.2012, 01:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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

Цитата(Boyur @ 17.6.2012, 20:00

)

Не понял вопрос.
Но на всякий случай сообщу, что событие OnDrawColumnCell будет вызываться очень много раз вплоть до уничтожения формы, на которой сей грид расположен.

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

iff

Дата 18.6.2012, 12:35 (ссылка)

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

Загрузка ...

Администратор

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

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

Код


var
  Form1: TForm1;
  firstpaint : boolean;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  firstpaint := true;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  if firstpaint then
  begin
    ShowMessage('Сообщение');
    firstpaint := false;
  end;
end;

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

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

XperT

Дата 18.6.2012, 13:59 (ссылка)

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

Загрузка ...

Опытный

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

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

iff, решение так себе: во-первых глобальная переменная (если на то пошло, то privat секция формы лучше для этого подходит), а во-вторых для одноразового использования (она будет висеть всё время в памяти, пока работает программа).

Решение покрасивее (как на меня):

Код


type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
  ShowMessage('Сообщение');
  Self.OnPaint := nil;
end;

end.

А вообще я противник того, чтобы давать готовые решения при получении базовых вопросов. Сам когда-то таким был, и тоже постоянно спрашивал, а потом как-то вместо решения проблемы мне дали наводку где почитать, я день потратил, но на всю жизнь запомнил как выделяется память и работают указатели в Делфи.

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

Это сообщение отредактировал(а) XperT - 18.6.2012, 14:02

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