Прорисовка линии

[dmitriegorovih]

P.S. Кстати, линию нельзя кинуть. ее можно нарисовать.

Я немного не коректно ответил поэтому вы меня не правельно понили
давайте по порядку я креатил фрейм, по вашему коду ресовал линию, и parent указывал scrollbox, сделал чтоб перетаскивался фрейм и как только я перетаскивал его за границы scrollbox линия стералась или перетаскивую другой фрейм на него, а потом обратно всё равно линия стиралась.Что надо делать?

[Virtson]

Нужно учить русский.

[Stilet]

Опиши отрисовку для самого фрейма

unit Unit2;

interface

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

type
  TFrame2 = class(TFrame)
  private
    { Private declarations }
    procedure wmp(var m:TWMPaint); message WM_Paint;
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TFrame2 }

procedure TFrame2.wmp(var m: TWMPaint);
var c:TCanvas;
begin
 inherited;
 c:=TCanvas.Create;
 c.Handle:=GetDC(Handle);
 c.LineTo(1000,1000);
 c:=nil;
end;

end.

[dmitriegorovih]

Спасибо Stilet теперь всё как надо работает