Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

program u pozadinu

[es] :: Pascal / Delphi / Kylix :: program u pozadinu

[ Pregleda: 771 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

--ja--
Marko Marjanović

Član broj: 4387
Poruke: 137
*.cmu.carnet.hr.

ICQ: 132872590


Profil

icon program u pozadinu13.06.2005. u 18:05

Na koji način mogu formu (glavnu) svoje aplikacije postaviti da se pojavljuje ispod svih ostalih prozora i programa? Sve što sam našao bilo je za topmost...
Hvala
13.06.2005. u 18:05 

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949


Profil

icon Re: program u pozadinu13.06.2005. u 18:53
Probaj
Code:
SetWindowPos(Handle, HWND_BOTTOM,
  0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)

Trebalo bi da odradi posao.
DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.
13.06.2005. u 18:53 

--ja--
Marko Marjanović

Član broj: 4387
Poruke: 137
*.cmu.carnet.hr.

ICQ: 132872590


Profil

icon Re: program u pozadinu14.06.2005. u 07:23
Da, radi. Ali taj bi prozor trebao trajno ostati u pozadini. Svaki put kad dobije fokus, on "izlazi" iz pozadine. Kontam nešto na OnClick i slične događaje staviti taj tvoj kod, ali ne čini mi se kao dobro rješenje...
14.06.2005. u 07:23 

bondja

Član broj: 10286
Poruke: 131
*.gw.tehnicom.net.



Profil

icon Re: program u pozadinu14.06.2005. u 12:14
Evo koda:

Code:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts;

type
  TForm1 = class(TForm)
    private
    { Private declarations }
  public
    { Public declarations }
    procedure SetBottomWindow;
    procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetBottomWindow;
begin
  SetWindowPos( Handle, HWND_BOTTOM,
                Left, Top, Width, Height,
                SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOOWNERZORDER);
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);  
begin
  SetBottomWindow;
  inherited;
end;

end.




Jel ti ovako nesto treba?

Pozdrav!
14.06.2005. u 12:14 

[es] :: Pascal / Delphi / Kylix :: program u pozadinu

[ Pregleda: 771 | Odgovora: 3 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.