Всплывающее окно и фокус

[uraura]

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

uraura;

Вы глупы... Вы пример-то пробовали?

вот пример использования
Project1.rar

[glGizma]

Ну, на будущее обходитесь кодом, а не .exe … И причём тут edit ? И для чего было сделано: Form1.Position:=(poDesktopCenter); а не Form1.Position:=(poScreenCenter); ,можно было Def оставить, у меня 2-а монитора (не клоны). А мой код, так и не был просмотрен?

[uraura]

важно не где находится форма (я не учел что у меня разрешение экрана большое и поэтому первую форму на экране с малым разрешением не видно) а то что вторая форма показывается над первой и не забирает фокус что и нужно было в начале темы
далее код использованный в примере


procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); //при наведении на едит
begin
ShowWindow(Form2.Handle, SW_SHOWNA);//показываем вторую форму
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); //при наведении на форму1
begin
ShowWindow(form2.Handle, SW_HIDE);//прячем вторую форму
end;

вот примерно так

[glGizma]

Автор темы конкретно изъяснил, что он хочет, а он хочет, чтобы сообщение всплывало (допустим: как всплывающее сообщение у ICQ), независимо форма это или нет.
Вот ещё пример (всплывающее сообщение, как у ICQ):

uses
	IdAntiFreeze1,	{ <<< - indy misc }
	
procedure Tform1.ShowHints_ex(sText: 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;
  GеtWindоwRect(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(sText) + ' ';
        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;
      ida.Sleep(10);
      ida.Process;
    end;
    ida.Sleep(2000);
    //Выезжаем вниз
    NeededTop := Screen.Width - 20;
    while Top < NeededTop do
    begin
      Top := Top + 2;
      Repaint;
      ida.Sleep(10);
      ida.Process;
    end;
    HintLabel.Free;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
	ShowHints_ex('Как: ' + FileName + ' можно показывать!!!' );
end;

[uraura]

ну вот же и в вашем примере используется ShowWindow
и в посте chertovich
и в моем примере
видимо консенсус все таки