formlar konusunda yardım

[vesper]

MDI formlarla çalışmayı beceremiyorum. Bu yüzden normal formları kullanıyorum. Tüm ekranı kaplayan bir ana formum var ve diğer formlar bunun üstüne açılıyor. Ama ana form aktif hale geçince diğer tüm açık formlar arkada kalıyor. Ben MDI da olduğu gibi ana formun en altta kalmasını diğer formların bunu üstüne açılmasını istiyorum. Nasıl yapabilirim?

[hbahadir]

Form1.ShowModal;

[vesper]

hocam diğer açık formlarıda kullanabilmek aralarında geçiş yapabilmek diğer formlar açıkken üzerine yeni formlarda açmak istiyorum tabiki.

[vesper]

Aşağıdaki kod işimi gördü. genede daha iyi bir yöntem bilen varsa yazarsa sevinirim.


uses
Unit2; { 2. Form }

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.CreateParented(Form1.Handle);
// Form2 göster
Form2.Show;
// Form2 aktif et
SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Form2.Close;
end;