Текущий архив: 2003.05.15;
Скачать: CL | DM;

Вниз

Не работает перетаскивание формы мышью   Найти похожие ветки 

← →
vajo   (2003-05-05 07:28) [0]

Есть две формы: Page (главная форма) и Form1(открывается из процедуры TPage.FormCreate, т.е. будет 3 копии формы).

procedure TPage.FormCreate(Sender: TObject);
var
begin
CountForm:=3;
For i:=1 To CountForm Do
begin
Form1 := TForm1.Create(Application);
Form1.Visible:=True;
end;
end;

На Form1 есть компонент (TRichEdit с именем Editor), за который надо двигать форму.

Это процедура для перетаскивания:
procedure TForm1.EditorMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE : Longint = $F012;
begin
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

В главной форме (Page) эта процедура работает, а вот в Form1 нет.
В чем может быть проблема?

---

← →
MBo ©   (2003-05-05 07:35) [1]

>SendMessage(Form1.Handle,

кому посылается это сообщение?
Рискну предположить, что стоит использовать Self.Handle или просто Handle

---

← →
vajo   (2003-05-05 07:43) [2]

>MBo ©
Спасибо! Работает.

> All
И еще.
На Form1 есть кнопка, кот. убирает заголовок формы:

procedure TForm1.LinkClick(Sender: TObject);
var Ini: TIniFile;
begin
BorderStyle:=bsNone; //начальная установка bsSizeable;
end;

Под WinXP это работает, а под W2000 Server нет.
Почему так?

---

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

Текущий архив: 2003.05.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c