[bombovix]

Возник такой вопрос, как сделать так, что бы если кликнуть внутри формы на любом месте, не отпуская мыши, она переносилась так как с кликом по строке заголовка.

[Кодер]

Допустим Вам надо перетащить форму держа курсор мыши на компоненте label1

Код:

1 2 3 4 5 6 7

procedure tform1.label1mousedown(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer); const sc_dragmove = $f012; begin releasecapture; form1.perform(wm_syscommand, sc_dragmove, 0); end;

Удачного использования!

[bombovix]

Все бы хорошо, да выдает ошибку:

unit SDIMAIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
ActnList, ToolWin, jpeg, GIFImg, XPMan, sysUtils;

type
TApplication01 = class(TForm)
gamesoft: TImage;
menu1: TImage;
Memo1: TMemo;
ImageList: TImage;
Cheats: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Solutions: TListBox;
Button1: TImage;
procedure CheatsClick(Sender: TObject);
procedure SolutionsClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure gamesoftMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);







private
{ Private declarations }
public
{ Public declarations }
end;

var
Application01: TApplication01;

implementation

uses about;

{$R *.dfm}






procedure TApplication01.gamesoftMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
releasecapture;
TApplication01.perform(wm_syscommand, sc_dragmove, 0);
end;

А вот ошибки:

Код:

1 2 3

[DCC Error] SDIMAIN.PAS(104): E2003 Undeclared identifier: 'wm_syscommand' [DCC Error] SDIMAIN.PAS(104): E2076 This form of method call only allowed for class methods [DCC Error] SDIAPP.DPR(6): F2063 Could not compile used unit 'SDIMAIN.PAS'

[lmikle]

А зачем так сложно?
Вот код из моего проекта - форма без заголовка, которую можно двигать по экрану за любое место:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

unit CallAlertFrm;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Math, ExtCtrls, Preferences;   type   TCallAlertForm = class(TForm)     btClose: TButton;     lbNumber: TLabel;     lbNumberData: TLabel;     lbCaller: TLabel;     lbCallerData: TLabel;     tmBlend: TTimer;     procedure btCloseClick(Sender: TObject);     procedure tmBlendTimer(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormPaint(Sender: TObject);     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);     procedure FormMouseUp(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);   private     { Private declarations }     FIsMove : Boolean;     FDragPoint : TPoint;     protected     { Protected declarations }     procedure CreateParams(var Params: TCreateParams); override;   public     { Public declarations }     procedure ResizeForData;   end;   var   CallAlertForm: TCallAlertForm;   implementation   {$R *.dfm}   { TCallAlertForm }   procedure TCallAlertForm.ResizeForData; var   MaxWidth : Integer; begin   // Resize   MaxWidth := lbNumberData.Left + Max(lbNumberData.Canvas.TextWidth(lbNumberData.Caption),                                       lbCallerData.Canvas.TextWidth(lbCallerData.Caption));   Self.Width := MaxWidth + 16;     // Move to tray area   Case PPreferences.AlertVPos Of     avpTop : Self.Top := 2;     avpCenter : Self.Top := Round((Screen.Height - Self.Height) / 2);     avpBottom : Self.Top := Screen.Height - Self.Height - 2;   End;     Case PPreferences.AlertHPos Of     ahpLeft : Self.Left := 2;     ahpCenter : Self.Left := Round((Screen.Width - Self.Width) / 2);     ahpRight : Self.Left := Screen.Width - Self.Width - 2;   End; end;   procedure TCallAlertForm.btCloseClick(Sender: TObject); begin   Close; end;   procedure TCallAlertForm.tmBlendTimer(Sender: TObject); begin   AlphaBlendValue := AlphaBlendValue + 5;   tmBlend.Enabled := AlphaBlendValue < 255; end;   procedure TCallAlertForm.FormClose(Sender: TObject;   var Action: TCloseAction); begin   tmBlend.Enabled := False; end;   procedure TCallAlertForm.CreateParams(var Params: TCreateParams); begin   inherited;   Params.WndParent := GetDesktopWindow; end;   procedure TCallAlertForm.FormPaint(Sender: TObject); begin   Self.Canvas.Pen.Width := 5;   Self.Canvas.Pen.Color := clSilver;   Self.Canvas.Rectangle(Rect(0,0,Self.Width,Self.Height)); end;   procedure TCallAlertForm.FormMouseDown(Sender: TObject;   Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin   FIsMove := True;   FDragPoint := Point(X , Y ); end;   procedure TCallAlertForm.FormMouseMove(Sender: TObject; Shift: TShiftState;   X, Y: Integer); begin   If FIsMove Then     Begin       Self.Left := Self.Left + x - FDragPoint.X;       Self.Top := Self.Top  + y - FDragPoint.y;     End; end;   procedure TCallAlertForm.FormMouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   FIsMove := False; end;   end.

Там еще позиционирование формы, переразмеривание под данные и плавное появление (через прозрачность). Да и еще она как бы живет сама по себе. В общем, думаю разберешься что к чему, если будут вопросы - пиши.

[bombovix]

lmikle, как раз таки для меня этот вариант сложнее, если можешь опиши как сделать именно перемещение формы.

[The Shadow]

А поискть на форуме не судьба?
http://delphisources.ru/forum/showpo...91&postcount=7