Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Вниз
Не работает перетаскивание формы мышью Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c