|
Таскаем форму за её поверхностьDelphi , Программа и Интерфейс , Приложение своёТаскаем форму за её поверхность
Code: |
unit DragMain;
interface
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
end. |
Статья Таскаем форму за её поверхность раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Приложение своё ::
|
|
