DELETED MESSAGE

[angvelem]

Что по-твоему должно происходить? Рисуй на TImage, чтобы не стиралось.

DELETED MESSAGE

[angvelem]

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

Код:

  DC := GetWindowDC(Handle); 

нужно обязательно освобождать.

Код:

  LineTo(0, mainForm.Height - padding);    
  LineTo(mainForm.Width - padding, mainForm.Height - padding);    
  LineTo(mainForm.Width - padding, 0);    
  LineTo(0, 0); 

проще использовать Rectangle.

DELETED MESSAGE

[angvelem]

И всех делов:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    Pen.Color := clRed;
    Pen.Style := psSolid;
    Pen.Width := 1;
    Brush.Style := bsClear;
    Rectangle(0, 0, ClientWidth - 1, ClientHeight - 1);
  end;
end;

[angvelem]

Сообщение от cmepthuk

ага, согласен, дописал

Код:

  finally
    Free;
    FreeMemory(@DC);
  end;

На будущее, освобожать нужно в своём блоке try/finally/end и освобождается так:

Код:

  ReleaseDC(Handle, DC)

DELETED MESSAGE

[angvelem]

Я прежде чем выкладывать проверяю - не пропадает.
Так бы и сказал, что нужно рисовать не на форме.

DELETED MESSAGE

[angvelem]

Сообщение от cmepthuk

я это и говорил, читай:


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

1. Интересно какой "ресайз" у формы со стилем = bsNone.
2. В данном случае отрисовка должна идти не на OnPaint-е, а на WMNCPaint.

[angvelem]

Вот тебе рамка на форме и на border-е.

Код:

unit Unit30;

interface

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

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT; 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  aRect  : TRect;
begin
  SetRect(aRect, 0, 0, ClientWidth, ClientHeight);
  InflateRect(aRect, -5, -5);
  with Canvas do
  begin
    Pen.Color := clRed;
    Pen.Style := psSolid;
    Pen.Width := 1;
    Brush.Style := bsClear;
    Rectangle(aRect.Left, aRect.Top, aRect.Right - 1, aRect.Bottom - 1);
  end;
end;

procedure TForm1.WMNCPaint(var Message: TMessage);
var
  DC     : HDC;
  aRect  : TRect;
  Pen,
  OldPen : HPEN;
  Brush  : HBRUSH;
begin
  inherited;
  DC := GetWindowDC(Handle);
  try
    SetRect(aRect, 0, 0, Width, Height);

    Pen    := CreatePen(PS_SOLID, BorderWidth, clBlue);
    OldPen := SelectObject(DC, Pen);
    Brush  := SelectObject(DC, GetStockObject(NULL_BRUSH));

    Rectangle(DC, 0, 0, Form1.Width, Form1.Height);

    SelectObject(DC, Brush);
    DeleteObject(SelectObject(DC, OldPen));
  finally
    ReleaseDC(Handle, DC);
  end;
  Message.Result := 1;
end;

end.

DELETED MESSAGE

[angvelem]

У меня ничего не мерцает. Дельфи 7, WinXP.

Сообщение от cmepthuk

при borderStyle := bsNone...
опять-же глючит при ресайзе...
даблклик по заголовку - разворачивает на полный экран

Ты хоть сам понимаешь, что пишешь? Какой ресайз, какой заголовок при указанном стиле? Думаю стоит почитать литературу.

DELETED MESSAGE