formun ekranda kitlenmesi (sabit kalması) ?

[era]

Object-oriented bir proje için;
Ekrana açmış olduğum bir Form ekranından close butonuna basmadığım müddetce,arka tarafta daha önceden açmış olduğum formlar üzerinde herhangi bir işlem yapılmasını istemiyorum.Yani öndeki form(benim belirlediğim formlar için)u kitlemek istiyorum.
bunun için şu işlemleri yaptım;
1-
procedure TForm4.FormDeactivate(Sender: TObject);
begin
if form4.Visible then begin MessageBeep(0);form4.SetFocus;end;
end;
Bu kodu yazdığımda işimi bi nemze görüyor.Ama burda açık olan formumun dışına çıktığımda kırpmalar oluyor.(SetFocus kullandığım için Kırpmalar olması normal)
2-
hwndHandle := TForm(Sender).Handle;
if (hwndHandle <> 0) then begin hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND);
bu kodu kullandığım zaman ise formun sağa sola kaymasını engelleye biliyorum ama formun arkaya düşmesını engelleyemiyorum.

Bu konu ile ilgili siz arkadaşlardan yardım bekliyorum.
Yardımlarınız için şimdiden teşekkürler...

[unicorn64]

öncelikle aramıza hoşgeldiniz...
sorunuzu tam anlamadım ama formu modal olarak göstermek istiyorsunuz gibi geldi.

form4 ü açarken,

Kod: Tümünü seç

form4.ShowModal;

şeklinde denermisiniz...

[era]

şöyle anlatayım
birinci formmu açtım, birinci formdan ikinci formumu açtım, ikinci formumdan üçüncü formumu açtım bu üçüncü formumun ben close butonuna basmadığım müddetce hep önde kalmasını istiyorum.Ama yukarıdaki işlemler ile sadece formu sabitleye biliyorum ama form3 en önde olduğu halde arkatarafta halen açık olan form1 ve form2 yi de sağa sola kaydıra biliyorum ve o formların üzerinde işlem yapabiliyorum

[aslangeri]

@era formlar mdiform mu normal form mu?
normal form ise eğer form3.show; yerine form3.showmodal kullan olsun bitsin.
kolay gelsin.

[KoPilot]

Kod: Tümünü seç

Form3.showmodal

yeterli olmalı ama yanlış mı anladım yoksa..