Форум: "KOL";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
ВнизПеретаскивание окон Найти похожие ветки
← →
-= ALEX =- (2003-01-21 16:46) [0]Помогите пожалуйста, как перетаскивать окна за любую часть окна!
Заранее благодарен!
← →
Kladov (2003-01-21 20:33) [1]Открыть kol.pas и выполнить поиск слова "drag".
← →
Саня (2003-02-06 16:52) [2]
Это пример формы без заголовка и возможностью перетаскивания
окна хватаясь за любую его часть:
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
private
{ Private declarations }
protected
procedure \\Здесь перехватывается сообщение
WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
( var Params: TCreateParams)
Это пример формы без заголовка и возможностью перетаскивания
окна хватаясь за любую его часть:
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
private
{ Private declarations }
protected
procedure \\Здесь перехватывается сообщение
WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
procedure \\И здесь
CreateParams(var Params: TCreateParams); override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
Message.Result := HTCAPTION;
end;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := WS_THICKFRAME or WS_POPUP;
end;
end.
← →
Gandalf (2003-02-06 22:41) [3]Пример хорош, нет слов, но причем тут КОЛ?! Вариант с КОЛ был рассмотрен в форуме, работало, ищи.
← →
SPeller (2003-02-06 23:55) [4]В FAQ есть пример.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c