OnScreen Display

[sanek1998]

Кто-нибудь знает как реализовать OnScreen Display(Как в JetAudio)?
То есть на экране поверх всех окон выводится надпись или картинка не мешающая работать мышью

[LAngel]

Примерно так?

Код: Выделить всё

procedure drawonscreen;
var
  SC: TCanvas;
begin
  SC := TCanvas.Create;
  try
    SC.Handle := GetDC(0);
    SC.Rectangle(10,10,100,100);
  finally
    SC.Free;
  end;
end;

[sanek1998]

Это рисовать на экране, так не пойдет (водишь мышью-картинка стирается). В JetAudio (как я понял), OSD - это полупрозрачная форма (OSD там работает только в Win2000/XP) и сквозь нее можно кликать, выделять и т.д.

[LAngel]

ну тогда это надо копать сообщения. Что-то на ум приходит WM_HITTEST
поищи по поисковикам

[Eugie]

См. http://msdn.microsoft.com/library/defau ... yerwin.asp

[sanek1998]

ну тогда это надо копать сообщения. Что-то на ум приходит WM_HITTEST

Я попробовал вот так:

Код: Выделить всё

private   
    procedure WMNCHitTest(var M: TWMNCHitTest);
		  				message wm_NCHitTest;
................procedure TForm2.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if  M.Result = htClient then
   M.Result := htTRANSPARENT;
end;
end.

Но это работает только для окон моего же приложения, а нужно чтобы и с чужими окнами можно было работать! Как быть?