Form Position hakkında

[BadTroy]

arkadaşlar şu olay ile ilgili bi yardım eedebilirmisiniz
sorunum şu

mesela icq programı çalıştığı zaman ekranın sağ köşesinde çalışıyor ve çalıştığı andan itibaren tüm windows pencerelerine icq e göre kendini ayarlıyor ve simgeler bir sağa kayıyor
yani istediğim şey forumun devamlı STAYONTOP olmaması .. açılcak pencerelerin formuma göre ufalması tıpkı icq gibi

bu kodun bir ismi yada bir tanımı varmıdır bunu söylesenizde yeter?

[gkimirti]

desktopun en ustunde taskbar olusturur

Kod: Tümünü seç

procedure TFrmAna.Button22Click(Sender: TObject);
var
  aRect: TRect;
begin
  BorderStyle:= bsNone;
  Top := 0;
  Left := 0;
  Width := Screen.Width;
  Height := 41;
  FormStyle := fsStayOnTop;

  aRect.Top :=45;
  aRect.Left := 0;
  aRect.Right := Screen.Width;
  aRect.Bottom := Screen.Height;

  SystemParametersInfo(SPI_SETWORKAREA, 0, @aRect, 0);
end;