Top Ad unit 728 fff 90

Форма Рисунка

Чтобы придать нашей форме, форму желаемой картинки, нужно:

1.У нашей формы поменять значения:

BorderStyle в bsNone

Color в clFuchsia

TransparentColor в True

TransparentColorValue в clFuchsia

2.Добавляем Image1, с рисунком будущей формы.

3.У картинки меняем значения:

Proportional в True

Stretch в True

Transparent в True

 

Что-бы перетаскивать нашу форму за нашу картинку нужно к нажатию левой клавиши мыши (OnMouseDown) добавить следующий код:

 

procedure TForm1.Image1MouseDown (Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer); begin

ReleaseCapture;

Perform(WM_SYSCOMMAND,SC_MOVE+2,0); end;

All Rights Reserved by ProcessPlus 2014 - 2018

Написать нам

Имя

Email *

Сообщение *