Fromum her zaman üstte kalmıyor

[hdayi]

Bir ikaz mesajı veren bir form create ediyorum. Bunun herşeyin en üstünde kalmasını istiyorum. Ancak olmuyor.

ana formumun formstyle özelliğini fsstayontop yapıyorum ve formumum create ediyorum. üstte kalması gereken formumu da fsstayontop yapıyorum. olmuyor, başka bir programı açtığım zaman allta kalıyor.

viewtopic.php?t=11696&highlight=mesaj%2A+%FCstte%2A
Burada bahsedilen SetWindowPos ile de denedim değişen birşey olmadı.

Teşekkürler...

[freeman35]

en güzeli o tip mesajları showmodal göstermek sadee başka bir showmodal üstüne geçebilir. Bir diğeride .BringtoFront Kullan.

Kolay gele

[hdayi]

İlk çalıştığında geliyor en öne ama sonra bişeye tıklarsam gidiyor. Misal Firefox'a (bu arada firefox kullandığımı da belitmiş oldum ). Benim istediğim hiç bir şekilde arka planda kalmasın. Bazı programlar bu tür mesajlar veriyorlar. Tam ekran çalışan bir oyun vb. dahi çalışırken bu mesaj çıktığında, oyun falan kalmıyor.
O tür bir mesaj olsun da kullanıcı yok ben görmedim, haberim yoktu falan demesin istiyorum.

Teşekkürler...

[mege]

Kod: Tümünü seç

procedure TNOTpenceresi.EnUstteTut1Click(Sender: TObject);
begin

EnUstteTut1.Checked := NOT EnUstteTut1.Checked;
if EnUstteTut1.Checked then
  SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE)
 else
  SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;



procedure TNOTpenceresi.Timer2Timer(Sender: TObject);
begin
if EnUstteTut1.Checked then
  if GetForeGroundWindow <> Handle then;
    BringToFront;
end;

[hdayi]

bir iki hata verdi fazla kurcalamadım ben de.

Timer ile halletmek güzel fikirdi.
her 100 milisaniyede bir

Kod: Tümünü seç

BringToFront;

diyerek hallettim.
Teşekkürler...

[freeman35]

Timer yerine, formun "OnDeactivate" event inede yazsan olurdu.
Kolay gele

[hdayi]

Olmadı maalesef, yine timer ile yapmak zorunda kaldım.