Компонент вывода над tray

[Noor]

Люди добрые ! подскажите ....нужен компонент который показывает всплывающую форму в области трей (правого нижнего угла) и на которой (на форме) я бы мог разместить свои элементы (кнопки, лейбл, прогрессбар и т.д и т.п и др.) Или как выводить свою форму над трей (с учетом разных мониторов)?

Пример:

[raxp]

Сообщение от Noor

Люди добрые ! подскажите ....нужен компонент который показывает всплывающую форму в области трей (правого нижнего угла) и на которой (на форме) я бы мог разместить свои элементы (кнопки, лейбл, прогрессбар и т.д и т.п и др.) Или как выводить свою форму над трей (с учетом разных мониторов)?

Пример:

- компонент? ужас...
сделайте свою форму, оформите как вам нужно, накидайте что вам нужно и при выводе задайте form.left:= screen.width - width и form.top:= screen.height - form.height-30 // последнее 30 - лучше считывать ширину border вашего, щас не помню как, погуглите...
вот вам и независимость от разрешения...

[Noor]

Во ... спасибки попробую !!!

[apromix]

Сообщение от Noor

Во ... спасибки попробую !!!

И как? Получилось? Самому нужно. Выложите примерный код.

[russian-stalker]

Вот такой код:

procedure TForm1.fShowHint(Text:String);
var H:HWND;
    Rec:TRect;
    NeededTop:integer;
    HintForm:TForm;
    HintLabel:TLabel;
    aw:hwnd;
begin

  H := FindWindow('Shell_TrayWnd', nil);
  if h=0 then exit;

  GetWindowRect(h, Rec);

  HintForm:=TForm.Create(nil);
  with HintForm do
  begin
    Width:=245;
    Height:=100;

    Color:=clSkyBlue;
    BorderStyle:=bsNone;

    //Создаём текст
    HintLabel:=TLabel.Create(nil);
    with HintLabel do
    begin
        Parent:=HintForm;

        WordWrap:=true;

        Caption:=' '+Trim(Text)+' ';

        Align:=alClient;
        Layout:=tlCenter;
        Alignment:=taCenter;
    end;

    AlphaBlend:=true;
    AlphaBlendValue:=220;

    aw:=GetActiveWindow;
    ShowWindow(handle,SW_SHOWNOACTIVATE);
    SetActiveWindow(aw);

    Left:=Screen.Width-Width;
    Top:=Screen.Height-20;

    NeededTop:=Rec.Top-Height;
    while Top>NeededTop do
    begin
      Top:=Top-2;
      Repaint;
      Sleep(10);
      Application.ProcessMessages;
    end;

    Sleep(2000);

    NeededTop:=Screen.Width-20;
    while Top<NeededTop do
    begin
      Top:=Top+2;
      Repaint;
      Sleep(10);
      Application.ProcessMessages;
    end;

    HintLabel.Free;
    Free;
  end;

end;

[apromix]

Огромное спасибо

[JTG]

Чуть поправил твой код

procedure TForm1.fShowHint(Text:String);
var NeededTop:integer;
    HintForm:TForm;
    HintLabel:TLabel;
begin
  HintForm:=TForm.Create(nil);
  with HintForm do
  begin
    Width:=245;
    Height:=100;
    Color:=clSkyBlue;
    BorderStyle:=bsNone;

    //Создаём текст
    HintLabel:=TLabel.Create(nil);
    with HintLabel do
    begin
        Parent:=HintForm;
        WordWrap:=true;
        Caption:=' '+Trim(Text)+' ';
        Align:=alClient;
        Layout:=tlCenter;
        Alignment:=taCenter;
    end;

    AlphaBlend:=true;
    AlphaBlendValue:=220;
    HintForm.Show;
    HintForm.BringToFront;

    //Screen.WorkArea - область экрана без панели задач
    Left := Screen.WorkAreaWidth - Width;
    Top  := Screen.WorkAreaHeight;

    NeededTop := Screen.WorkAreaHeight - Height;
    while Top>NeededTop do
    begin
      Top := Top - 2;
      Repaint;
      Sleep(10);
      Application.ProcessMessages;
    end;

    Sleep(2000); //жуткий двухсекундный тупняк ;)

    NeededTop := Screen.WorkAreaHeight;
    while Top<NeededTop do
    begin
      Top := Top + 2;
      Repaint;
      Sleep(10);
      Application.ProcessMessages;
    end;

    HintLabel.Free;
    Free;
  end;

end;

//И ещё, если у всплывающей формы будет заголовок, то 
//Left := Screen.WorkAreaWidth - ClientWidth; и ClientHeight соответственно

А то у меня другая оболочка, эксплорер где-то за экраном, и оно вело себя вот так

[pam3ec]

Здравствуйте товарищи програмисты.
Мне для програмы нужно что бы были всплывающие окна. Но в вашим выложенным кодам, я не смог ни чего сделать, в виду своей не опытности в програмировании. Выложите пожалуйста исходник к всплывающим окнам. А то сам я не смогу догнать как это сделать.

[Diogo76]

Для работы с треем я использую TCoolTrayIcon

[raxp]

...рабочие исходники уже выложены в двух постах выше.