Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
ВнизКак таскать форму за ее поверхность? Найти похожие ветки
← →
Ms.Drynkul (2004-09-03 09:02) [0]В Delphi Russian Knowledge Base было следующее:
----------------------------------------
uses
SysUtils, WinTypes, WinProcs, Messages,
Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure ButtonClick(Sender: TObject);
private
procedure WMNCHitTest(var M: TWMNCHitTest);
message wm_NCCHitTest;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1. WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
----------------------------------------
но происходят ошибки при компиляции.
← →
КаПиБаРа © (2004-09-03 09:32) [1]Ms.Drynkul (03.09.04 9:02)
wm_NCHitTest
===================================
На запрос "арфаграфический славарь"
найдено 1887212 ссылок...
===================================
← →
BillyJeans (2004-09-03 10:26) [2]менять htClient на htCaption, считаю извращением!
А если на форме контролы тогда что?
← →
clickmaker © (2004-09-03 11:00) [3]
> [2] BillyJeans (03.09.04 10:26)
> менять htClient на htCaption, считаю извращением!
> А если на форме контролы тогда что?
если на форме контролы мышинные сообщения попадут прямо к ним
← →
BillyJeans (2004-09-03 11:13) [4]2 clickmaker © (03.09.04 11:00) [3]
ну ну...
← →
MetalFan © (2004-09-03 12:13) [5]стаарый пример. есть в куче мест.
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;
← →
TUser © (2004-09-03 14:17) [6]> менять htClient на htCaption, считаю извращением!
Считайте. А мы будет пользоваться.
PS. Разнообразие интерфейса безгранично.
← →
Ms.Drynkul (2004-09-03 14:41) [7]Спасибо,дорохые мои!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c