Neaktivna forma

Win32 api funkcije.
Odgovori
odisej
Prispevkov: 1363
Pridružen: 09.05.2003 12:58:10

Neaktivna forma

Odgovor Napisal/-a odisej » 28.11.2009 12:58:50

S sledečim ukazom prikažem formo neaktivno. To pa zato, da se forma prikaže poleg glavne in se lahko naprej pomikam po gridu glavne forme

ShowWindow(Handle, flags);
Visible := True;

Če pa to pomožno formo izberem (fokus dobi) in potem kliknem na glavno, gre ta zadej. Vsak naslednji klic te funkcije pomožne forme ne postavi nad glavno. Kako to naredim?

ahotko
Prispevkov: 141
Pridružen: 28.10.2002 07:56:38

Neaktivna forma

Odgovor Napisal/-a ahotko » 28.11.2009 13:18:41

poskusi z WS_OVERLAPPED

Koda: Izberi vse

type
  Tfrm_Pomozna = class(TForm)
  ...
  public
    ...
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure Tfrm_Pomozna .CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or WS_OVERLAPPED;
    WndParent := frm_Glavna.Handle;
  end;
end;
prikazes jo pa:

Koda: Izberi vse

 frm_Pomozna.Show;  
lp,
Aleš

Odgovori