Форум: "Потрепаться";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
ВнизФорма без заголовка, с возможностью ресайза Найти похожие ветки
← →
alsov © (2005-09-25 19:00) [0]Приветствую, Мастера
Подскажите как можно сделать форму без заголовка (типа BorderStyle = bsNone), но с возможностью ресайза и перетаскивания по экрану за определнный контрол.
Заранее спасибо за ответы
← →
ssk © (2005-09-25 19:02) [1]
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
Height := ClientHeight;
← →
ssk © (2005-09-25 19:07) [2]если быть точнее, то вот кусок, который делает форму и ее можно таскать мышью:
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
Height := ClientHeight;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
end.
← →
alsov © (2005-09-25 19:25) [3]Огромное спасибо, все получилось
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.06 c