Скачать: CL | DM;

сделать перетаскиваемую форму за любое место   Найти похожие ветки 

← →
pound ©   (2007-01-15 17:29) [0]

Подскажите, как сделать перетаскиваемую форму за любое место.
Кладу на форму TSpeedButton
Делаю форму за любое место.
type
 TForm1 = class(TForm)  private
   sbMyButton: TSpeedButton;  
private    { Private declarations }
   procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowLong(Handle, GWL_STYLE,
   GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION));
 Height := ClientHeight;
end;
implementation

{$R *.dfm}

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
 inherited;
 Msg.Result := HTCAPTION;
end;
Результат: sbMyButton перестаёт работать.
TButton работает, но мне нужен именно TSpeedButton.

---

← →
unknown ©   (2007-01-15 17:35) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: integer);
begin
 ReleaseCapture;
 Perform(WM_SYSCOMMAND, $F012, 0);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.051 c