как сделать чтобы при открытии формы на image рисовалась линия

[Palamida]

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

[Pavia]

Можно. К примеру так.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  public
    procedure AfterConstruction; override;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.AfterConstruction;
begin
  inherited;
  Image1.AutoSize:=True;
  Image1.Picture.Bitmap:=TBitmap.Create;
  Image1.Picture.Bitmap.Width:=300;
  Image1.Picture.Bitmap.Height:=300;
  Image1.Canvas.MoveTo(50,50);
  Image1.Canvas.LineTo(250,250);
end;

end.