Button.Caption = Form ?

[ByDeniS]

Merhaba arkadaşlar öncelikle hepinize yardımlarınız için teşekkür ederim.

Ben şöyle bir noktada kilitlendim. Sorum şu bir buttonun ismi ile bir form'u nasıl kontrol edebilirim. Lakin bu button belirsiz bir değere sahip. Ben şöyle bir koddan yola çıktım.

procedure TMenu.ButClick(Sender: TObject);
var
ad:Integer;
ad1:String;
begin
ad:=ToolBar2.ButtonCount; //Sırası belirsiz buttonun index numarasını alıyorum burada.
ad1:=ToolBar2.Buttons[FloatToStr(ad)].Caption; // Aldığım numara ile o index'e ait buttonun captionunu alıyorum.
//Bu satırda o captiondaki bir form'a müdahale etmek istiyorum.

end;

Örneğin Caption'dan test diye bir veri geldi. Bende test adı olarak belirli olan buttona müdahale etmek istiyorum.

O captiondan aldığım isim doğrultusunda diyelimki şöyle bir kod devamı getirmek istiyorum.

Test.WindowState:=wsMaximized;

Şeklinde

[Lost Soul]

butonun click olayına aşağıdaki kodu yazarsanz butona ait biglgileri alabilirsiniz.

Kod: Tümünü seç

procedure TMenu.ButClick(Sender: TObject);
var
	i:integer;
Begin
	if Sender is TButton then 
	Begin
		(Sender as TButton).Caption;
		(Sender as TButton).Tag;
		(Sender as TButton).Name;
		(Sender as TButton).vesaire....
		//burada mesela captiona göre arayacaksiniz
		For i:=0 Screen.FormCount -1 do
		Begin
			if Screen.Forms[i].Caption=(Sender as TButton) then //if Screen.Forms[i].Name
			Begin
				// eğer açık pencereler için yapmak istiyorsanız 
				if Screen.Forms[i].Visible then // deyimini kullanabilrsiniz
				Begin
					if Screen.Forms[i].Blabla := FalanFilan;
				End;
				Break; //fromumuzu bulduğumuz için döngüyü bitiriyyoruz
			End;
		End;
	End;
End;

[ByDeniS]

Bilgileri almak değil aldığım bilgilerin eşleştiği bir form üzerinde işlem yapmak istiyorum.

Caption'a göre işlem yapıyorum ve bu bilgiyi benim örnekte gösterdiğim şekilde alabiliyorum. Yalnız senin yazdığın kodda işleteceğim kısmı göremedim.

[Lost Soul]

Yalnız senin yazdığın kodda işleteceğim kısmı göremedim.

devamında frm ile ilgili işlem yapabileceğiniz odu vermiştim.

Kod: Tümünü seç

      //burada mesela captiona göre arayacaksaniz
      For i:=0 Screen.FormCount -1 do
      Begin
         if Screen.Forms[i].Caption=(Sender as TButton).Caption then //if Screen.Forms[i].Caption =ad1
         Begin
            // eğer açık pencereler için yapmak istiyorsanız
//            if Screen.Forms[i].Visible then // deyimini kullanabilrsiniz
//            Begin
               if Screen.Forms[i].WindowState=wsMaximized;
//            End;
            Break; //fromumuzu bulduğumuz için döngüyü bitiriyyoruz
         End;
      End;