![]() |
|
#1
|
|||
|
|||
![]() Ребят подскажите кто знает как создать форму по рисунку например как в The bat т.е рисунок помещенный в компонент Image1 должен не много вылазить за поля формы? Отпишитесь кто знает как это сделать пожайлусто.
Спасибо |
#2
|
||||
|
||||
![]() В настройках формы:
BorderStyle = bsNone TransparentColor = True Color = 16250871 TransparentColorValue = 16250871 (Значение 16250871 - это "прозрачный цвет", можешь ставить какой хочешь (в твоем рисунке "прозрачные" части должны быть закрaшены именно этим цветом!). 16250871 к примеру - этэ белый) В настройках Image: Align = alClient Далее просто вставляешь в Image свою картинку и все "прозрачные" участки этой картинки будут прозрачными ![]() З.Ы. Если хочешь вертеть формой при нажатии мыши, то добавь код: Код:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin ReleaseCapture; SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); end; end; |