Форум: "Начинающим";
Текущий архив: 2008.03.16;
Скачать: [xml.tar.bz2];
ВнизПеремещение формы, у которой свойство BorderStyle:=bsNone Найти похожие ветки
← →
Rentner (2008-02-14 23:31) [0]Подскажите кто может, как можно сделать доступной для перемещения по рабочему столу мышью форму, у которой свойство BorderStyle:=bsNone.
← →
KilkennyCat © (2008-02-14 23:34) [1]а что ответил гугль?
← →
homm © (2008-02-14 23:35) [2]Нужно ответить на кокой-то там hint test, что пользователь жахнул по заголовку.
← →
KilkennyCat © (2008-02-14 23:37) [3]а гугль ответил:
примерно 19 700 для перемещение формы без заголовка delphi. (0,27 секунд)
← →
homm © (2008-02-14 23:41) [4]> [3] KilkennyCat © (14.02.08 23:37)
> а гугль ответил:
Да, складно получилось :) Но я писал [2] безотносительно гугля :)
← →
KilkennyCat © (2008-02-14 23:42) [5]
> [2] homm ©
возьми с полки пирожок :)
procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
Msg.Result:=HTCAPTION;
end;
← →
KilkennyCat © (2008-02-14 23:43) [6]> [4] homm © (14.02.08 23:41)
ага :)
← →
antonn © (2008-02-15 00:46) [7]
procedure TForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE : Longint = $F012;
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
← →
Германн © (2008-02-15 01:23) [8]
> KilkennyCat © (14.02.08 23:37) [3]
>
> а гугль ответил:
> примерно 19 700 для перемещение формы без заголовка delphi.
> (0,27 секунд)
>
И среди этих 19 700 есть только два верных. Которые приведены в [5] и в [7].
← →
Григорьев Антон © (2008-02-15 08:42) [9]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=83 , компонент TCaptionRgn
← →
KilkennyCat © (2008-02-16 01:30) [10]> [7] antonn © (15.02.08 00:46)
О, Магик! обожал издеваться с этой константой... позволяет и отдельные контролы таскать и размеры их менять....
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.03.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c