Привязать к правому краю

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by marcos, 20 Dec 2009.

  1. marcos

    marcos New Member

    Joined:
    8 Nov 2009
    Messages:
    111
    Likes Received:
    1
    Reputations:
    -5
    Всем привет! Я знаю много программ, которые после запуска появляются в правом нижнем краю монитора. Я попробовал просто перетащить форму в нужное место, но результата это не дало. Скажите как это реализовать в Делфи?
     
  2. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    ты имеешь в виду в трее появляются?
    Если да, то юзай компонент TrayIcon или читай 5005 статей по делфи и там есть статьи:
    Иконка на TrayBar
    Иконка на TrayBar - пример
    Иконка на TrayBar - пример 2
    Создать, изменить и удалить TrayIcon

    Если ты имеешь в виду чтобы форма появлялась там, то получай координаты экрана
    и взависимости от них передвигая форму в нужную позицию
     
  3. marcos

    marcos New Member

    Joined:
    8 Nov 2009
    Messages:
    111
    Likes Received:
    1
    Reputations:
    -5
    А как их получить?
     
  4. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    Code:
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      form1.Left := screen.WorkAreaWidth - form1.Width;
      form1.Top := screen.WorkAreaHeight - form1.Height;
    end;