Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
ВнизРабота с формой Найти похожие ветки
← →
weRUs (2003-01-19 03:34) [0]Господа и товарищи МАСТАКИ!!!
Помогите в следующем вопросе!
Как сделать так, чтобы форму можно было таскать за ее бренное тело а не только за заголовок!
так например в тете Асе сделана функция "Floating",
Помогите пожалуйста!
С уважением weRUs!
← →
UE (2003-01-19 07:27) [1]Ловишь MouseDown, делаешь SetCapture и ставишь флаг. В MouseMove если стаоит флаг двигаешь форму. В MouseUp убираешь флаг. Примерно так...
← →
Viktor Kushnir (2003-01-19 07:39) [2]Я делал так, таскал форму за панель:
procedure TPopupMenuForm.Panel2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
PopupMenuForm.perform(WM_SysCommand, SC_DragMove, 0);
end;
← →
Guerrillero (2003-01-19 09:51) [3]или так :
type
TForm1 = class(TForm)
Button1: TButton;
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCLIENT then Msg.Result := HTCAPTION;
end;
← →
Yurko (2003-01-19 12:51) [4]
...
private
procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
...
procedure TForm1.WMLButtonDown(var Msg: TMessage);
begin
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;
← →
weRUs (2003-01-19 23:29) [5]Большое Спасибо всем кто откликнулся!!!
← →
Programist21 (2003-01-19 23:49) [6]Компонент - например чё-нить из 1stClass ;)
← →
Danlicha (2003-01-20 18:42) [7]Только один Guerrillero грамотно написал...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c