istenilen formu nasıl aktif hale getirebilirim?

[mepc]

Merhaba arkadaşlar

Problem şu ki

Yaptığım programda aynı formu birden fazla create ediyorum. Her create olayında önceki formları gizliyorum ve her oluşturulan form için bir buton oluşturuyorum ve butonun captionunu oluşturulan formun captionuna eşitliyorum.

Ancak daha sonradan gizlenen formlardan istediğimi çağıramıyorum. Bu işlemi nasıl yapabilirim. Biraz daha açarsam

yeni bir form oluşturduğumda captionu "yeni form" olan bir form ve ana formumun üzerinde yine captionu "yeni form" olan bir buton oluşturuyorum. Yapmak istediğim yeni form butonuna bastığımda gizlenmiş olan yeni form başlıklı formun aktif olması

[mussimsek]

Merhaba,

çok ilginç bir yöntem. Bence çok gerekli olmadıkça standart windows yöntemlerinden sapmayın. Bu ufak nottan sonra,

1. Eğer gizlemeniz gerekiyorsa Hide yöntemiyle gizleyebilir, Show ile tekrar gösterebilirsiniz.

Form1.Hide, Form1.Show gibi.

2. eğer formdaki bilgilerin kaybolması problem olmayacaksa, formu Free ile yok edip, gerektiği zaman Create ile tekrar oluşturabilirsiniz.

Kolay gelsin.

[mepc]

sorunu tam anlatamadım sanırım.

şöyle sorayım

herhangi bir butona bastığımda gizlenmiş olan formlardan captionu yeni form olan formu nasıl aktif yapabilirim.

sanırım bu daha açıklayıcı oldu.

[mussimsek]

Merhaba,

ben benzer bir sorunu şu şekilde halletmiştim: Butonun Hint'ine formun ismini atayın. Daha sonra bunu alarak, formu gösterirsiniz.

Kolay gelsin.

[mepc]

sorunu şu şekilde hallettim

ilgilerinden dolayı arkadaşlara teşekkür ederim.

aşağıdaki kod ile captionu buton1 in captionuna eşit olan form aktif yapılıyor

procedure Tgir.Button1Click(Sender: TObject);
var
i:integer;
begin
For I := 0 To application.ComponentCount-1 Do
Begin
If ((application.Components is Tform) And ((application.Components as Tform).caption=Button1.caption)) Then
begin

try
(application.Components as Tform).show;
except
end;
end;

End


end;