VPF::не отобразилось на форие при старте

СЭНСЭЙ

Дата 27.3.2009, 21:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Столкнулся с такой проблемкой:
пишу пррграмму где в событии FormCreate
выполняется код

Код


var
  Form1: TForm1;
  data: real;
  start,continue:bool;
  minbuf: HGLOBAL;
  buf: HGLOBAL;
  p1,p2:pointer;
  dp1,dp2:^real;
  cur1,cur2: longint;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
Wizard, WizardMask,Buffer,flur:Tbitmap;
X,Y:integer;
WizardX,WizardY:integer;
begin
Wizard:=Tbitmap.Create;
Wizard.Loadfromfile('spr1.bmp');
WizardMask:=Tbitmap.Create;
WizardMask.Loadfromfile('spr2.bmp');
Flur:=Tbitmap.Create;
Flur.Loadfromfile('flur.bmp');
Buffer:=Tbitmap.Create;
Buffer.Height:=320;
Buffer.Width:=320;
WizardX:=0;
WizardY:=0;


BitBlt(Buffer.Canvas.Handle,0,0,320,320,Flur.Canvas.Handle,0,0,SRCCOPY);

BitBlt(Buffer.Canvas.Handle,WizardX,WizardY,50,50, WizardMask.Canvas.Handle,0,0,SrcPaint);

BitBlt(Buffer.Canvas.Handle,WizardX,WizardY,50,50, Wizard.Canvas.Handle,0,0,SrcAnd);

BitBlt(Form1.Canvas.Handle,0,0,320,320,Buffer.Canvas.Handle,0,0,SRCCOPY);
end;

это не срабатывает при старте программы.
Работает только если код FormCreate перенести в код нажатия на какую нибудь кнопку.
Я пытался в FormCreate поместить
Form1.ButtonClick(owner);
но это тоже не сработало.
Работает только если после запуска программы руками нажать на кнопку.
Подскажите в чем дело.

ahito1

Дата 27.3.2009, 21:32 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

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

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

перенеси этод код не в Form.Create, а Form.OnActivate

razsagal

Дата 27.3.2009, 21:46 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.10.2007
Где: Украина, Днепродз ержинск

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

почитай, будет полезно: ссылка

СЭНСЭЙ

Дата 1.4.2009, 16:05 (ссылка)

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

Загрузка ...

Опытный

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

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

ahito1: попробовал - тоже не работает.

razsagal: все что в этой статье я знал и раньше.

bems

Дата 1.4.2009, 19:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

СЭНСЭЙ, оно работает, но результаты теряются при загрузке свойств формы из ресурса, которая происходит после вызова этого события. Перекрой AfterConstruction, и перенеси туда

Это сообщение отредактировал(а) bems - 1.4.2009, 19:20

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

Обижено школьников: 8

СЭНСЭЙ

Дата 2.4.2009, 17:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем спасибо. Проблема решилась путем

Код


procedure TForm1.FormShow(Sender: TObject);
begin
showcanva();
Form1.Repaint;
end;

AntonN

Дата 2.4.2009, 17:46 (ссылка)

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

Загрузка ...

Опытный

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

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

достаточно в Onpaint было перенести

Код


BitBlt(Form1.Canvas.Handle,0,0,320,320,Buffer.Canvas.Handle,0,0,SRCCOPY);

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

СЭНСЭЙ

Дата 2.4.2009, 19:32 (ссылка)

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

Загрузка ...

Опытный

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

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

И точно!!! ))
мы не ищем легких путей

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