Перетаскивание формы, если ее BorderStyle = bsNone

← →
USTAS (2002-08-29 10:19) [0]

День добрый Мастера.
Еще одно если - на форме расположен компонент (Image или Panel) и у этого компонента свойство Align = alClient.
Вот такой вопрос.

← →
kronprince © (2002-08-29 10:35) [1]

- уважаемый USTAS - заглядывайте в FAQ хоть иногда - пожалуйста :)

← →
Dimich1978 © (2002-08-29 10:39) [2]

http://www.books.ru/library/delphi_secrets/

← →
USTAS (2002-08-29 11:20) [3]

2kronprince
Такой ответ и я дать могу по любому вопросу.
в FAQ я заглядывал.

2Dimich1978
по ссылке сползал, почти то что нужно (пункт №74), но у компонента TShockwaveFlash нет событий OnMouseMove, OnMouseDown, OnMouseUp.

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
ReleaseCapture;
Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0)
end
end;

Перетаскивание формы, если ее BorderStyle = bsNone Найти похожие ветки