06.10.2012, 22:57
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
И всех делов:
Код:
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;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|