Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];
Вниз
Как закруглить уголки формы ? Найти похожие ветки
← →
ssss (2007-06-18 12:48) [0]Здраствуйте помогите пожалуйста кто чем может...Как можно закруглить уголки формы?что б смотрелось красивее....раньше я всегда решал этот вопрос вот таким кодом
Form1.Borderstyle := bsNone;
rgn := CreateRoundRectRgn(0,// x-coordinate of the region"s upper-left corner
0, // y-coordinate of the region"s upper-left corner
ClientWidth, // x-coordinate of the region"s lower-right corner
ClientHeight, // y-coordinate of the region"s lower-right corner
40, // height of ellipse for rounded corners
40); // width of ellipse for rounded corners
SetWindowRgn(Handle, rgn, True);
но в этом случае я просто не могу ее передвигать....кто знает какиеесть способы закруглить углы?
Благодарю заранее.
← →
Робинзон (2007-06-18 13:36) [1]Что бы передвигать форму вот часть кода
----------------перемещение формы----------------
private
{Для перемещения формы вне заголовка объявляем процедуру}
procedure WMNCHitTest(var M:TWMNCHitTest);message wm_NCHitTest;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{Для перемещения формы вне заголовка описываем процедуру}
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
или в OnMouseDown пропишиReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
← →
oldman © (2007-06-18 18:23) [2]
> что б смотрелось красивее....
Это ты сам решил, или тебе кто-то сказал? (Кин-Дза-Дза ©)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.06 c
