Проблемы при потере фокуса приложения

[Sibedir]

Всем привет.
Вот опять балуюсь с Delphi. Делаю элементарную вешь. Есть панель, которую можно таскать мышкой по форме (не Drag&Drop). Для этого обрабатываю OnMouseDown, ..Up, ..Move. Во время переноса рисую на канве desktop'а прямоугольник эмитирующий эту панель (Pen.Mode := pmXor и закрашиваем старый - рисуем новый).
Как многие наверно уже догадались, если во время переноса нажать Alt+Tab, а потом вернутся в приложение, то начинаются глюки. Ясень перь, что нужно обработать Application.OnDeactivate. Так и делаю. В нём закрашиваю нарисованный прямоугольник и "прекращаю процедуру переноса".
Все нормально, но есть один глюк. Если прямоугольник проходил по рамке окна, то там остаются полосочки. Хотя по идее рамка должна перерисоваться, она ведь меняет цвет. Почему полоски-то остаются?

P.S.: Delphi 7, Winows 7

[asmodey1]

Да что ж вы извращаетесь-то ?
Это же проще делается (неоднократно упоминалось на форуме) :

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Panel1.perform(WM_SysCommand,SC_DragMove,0);
end;

[Sibedir]

Спасибо. А чтобы при переносе только рамка отображалась?

[asmodey1]

Вот этого не припоминаю...
Попробуйте поиграть значением параметра SC_DragMove = $F012.
Кстати, очень интересные эффекты наблюдаются при некоторых значениях.
Например, $F022, $F032...

[Sibedir]

А откуда вообще взялось это $F012 и где можно найти полный перечень. На MSDN не пойму где искать.

Кстати, доперло, почему эти черточки остаются. Я стираю (закрашиваю обратно) прямоугольник в Application.OnDeactivate, а он срабатывает уже после потери фокуса, а соответственно и перерисовки рамки.

.........немного погодя
Опытным путем установленно, что м/у началом потери фокуса (Alt+Tab) и его окончанием (Msg.message = 45057) ни каких сообщений (кроме мыши, клавы, WM_PAINT, и WM_TIMER) приложению не передается (искал через TApplicationEvents.OnMessage).
Что, остается ловить Alt+Tab и тогда закрашивать что-ли? А как быть если фокус потерян иным способом?

[veniside]

> где можно найти полный перечень

http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Не уверен насчёт полноты, правда.

[JTG]

Нет, это полный перечень, просто "the four low-order bits of the wParam parameter are used internally by the system". Т.е. константы

sc_SizeLeft = $F001;
sc_SizeRight = $F002;
sc_SizeTop = $F003;
sc_SizeTopLeft = $F004;
sc_SizeTopRight = $F005;
sc_SizeBottom = $F006;
sc_SizeBottomRight = $F008;
sc_SizeBottomLeft = $F007;
sc_DragMove = $F012;

можно смело отнести к недокументированным возможностям (что, кстати, не гарантирует корректной работы в будущих версиях windows)

Sibedir, можно включить окну transparent и нарисовать/сделать видимым прозрачный прямоугольник во время перетаскивания, хотя в упор не понимаю зачем

[Sibedir]

Затем, чтобы пока тащишь, элемент оставался на своем месте. Вообще, главное здесь не как перетащить (для этого и существует Drag&Drop). Вопрос был в полосочках, а теперь он в отловке события "начала потери фокуса". А вообще, мне идея с прозрачным оконным элементом понравилась.

[Jeraldino74]

Доброго времени суток.

Проблема: Есть два edit. Как сделать, чтобы второй edit дублировал первый, после потери фокуса с первого edit?

[Jeraldino74]

Подскажите. Не могу разобраться.