[digimon]

Подскажите пожалуйста, я создаю форму, на ней делаю процедуру TPaintBox, рисую изображение, но после запуска программы, изображение рисуется только после клика мыши. Как сделать, чтобы изображение сразу показывалось после запуска программы. Вот сам код процедуры.

Код:

procedure TForm1.PaintBox1Click(Sender: TObject);
var al6th, N, X: word;
begin
 with sender as tpaintbox, canvas do
 begin
 Brush.Color :=color;
 FillRect(clientRect);
 with ClientRect do
  Rectangle(Left, Top, Right, Bottom);
  al6th := PixelsPerInch div 16;
  N :=0; X:=0;
  while X <width do
  begin
  MoveTo (X,1);
  LineTo (x, 6*(1+(Byte(N MOD 2=0)+
   Byte(N MOD 4=0)+
   Byte(N MOD 8=0)+
   Byte(N MOD 16=0))));
  Canvas.Font :=Font;
  if (N>0) and (N mod 16=0) then
   TextOut(PenPos.X+3, PenPos.Y-16,
     IntToStr(N div 16));
   N:=N+1;
   X:=X+al6th;
   end;
  end;
end;

Admin: Не забываем про теги!

Убрать слово Click тут не катит( Подскажите

[TOJluK]

Ну вызови эту процедуру у Form в OnCreate.

[digimon]

Знать бы еще что это такое Я делфи пару дней изучаю

[Fonoman]

в Object TreeView щёлкни 2 раза по Form1 и откроется окошко
с
procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[TOJluK]

Я бы даже сказал, просто щелкни по форме 2 раза, ну и там напиши так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1Click(Self);
end;

Вроде так.

[digimon]

Пишет ошибку. Выкладываю сам файл проги, поправьте пожалуйста, а то завтра экзамен (

[AlexSku]

Надо использовать обработчик не PaintBox.OnClick (и не Form.OnCreate), а PaintBox.OnPaint

[digimon]

Спасибо, вроде помогло