msn tarzı popup form ekran ayarlama problemi.

[G.Arkas]

viewtopic.php?f=2&t=24952&p=141336&hili ... B1#p141336

[SimaWB]

THTMLPopup hiç kullanmadım ama ekran genişliği ve yüksekliği için Screen.Width ve Screen.Height kullanabilirsiniz. Tabi bir de görev çubuğu(Task Bar) var. Görev çubuğunun yüksekliği de size gerekli.
Görev çubuğunun yüksekliğini bulmak için:

Kod: Tümünü seç

function TaskBarHeight: integer;
var
  TaskBarHandle: HWND;
  R: TRect;
begin
  TaskBarHandle := FindWindow('Shell_TrayWnd', '');
  if TaskBarHandle = 0 then
    Result := 0
  else
  begin
    GetWindowRect(TaskBarHandle, R);
    Result := R.Bottom - R.Top;
  end;
end;

Daha sonra THTMLPopup'un pozisyonları:

Kod: Tümünü seç

HTMLPopup1.PopupLeft := Screen.Width - HTMLPopup1.PopupWidth;  
HTMLPopup1.PopupTop := Screen.Height - HTMLPopup1.PopupHeight - TaskBarHeight;

Not: Bir de görev çubuğunun sağda olma ihtimali var. Görev çubuğu sağda ise sizin de ona göre PopupLeft'i sola kaydırmanız gerekecektir. JVCL'in TJvDesktopAlert'ine bakabilirsiniz. Kaynak kodları incelenebilir.