Clomosy | Forum : Buton Kontrol https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 20:00:03 +0000 Mon, 07 Aug 2023 09:44:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=550 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[Buton Kontrol : Bu biraz karmaşık ama umarım işinizi...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=668#668 Yazar: Alforce
Konu: 550
Gönderim Zamanı: 07 Ağustos 2023 Saat 09:44

Bu biraz karmaşık ama umarım işinizi görür:
var
AnaForm: TclForm; //Kod Formu
parcaBtn1: TClProButton; //ORTA SOL
parcaBtn2: TClProButton; //ORTA SAĞ
parcaBtn3: TClProButton; //ÜST  SOL
parcaBtn4: TClProButton; //ÜST  SAĞ
baslaBtn: TclButton;
Sel: Boolean;
i2,j2: Integer;
Images: Variant;
    
procedure basBtn
begin
  
end;

procedure bas
Var
  i,j: Integer;
  Buf: String;
begin
  i:= TclProButton(AnaForm.clSender).clTagInt div 10;
  j:= TclProButton(AnaForm.clSender).clTagInt mod 10;
  
  if Sel = False then
  Begin
    i2:= i;
    j2:= j;
    
    Sel:= True;
  End else
  Begin
    Buf:= Images[i,j];
    Images[i,j]:= Images[i2,j2];
    Images[i2,j2]:= Buf;
    
    AnaForm.SetImage(AnaForm.clFindComponent('parcaBtn'+IntToStr(i)+IntToStr(j)), Images[i,j]);
    AnaForm.SetImage(AnaForm.clFindComponent('parcaBtn'+IntToStr(i2)+IntToStr(j2)), Images[i2,j2]);
    
    Sel:= False;
  End;
end;

begin
  Sel:= False;
  i2:= -1;
  j2:= -1;
  
  Images:= 
  [
    ['https://i.hizliresim.com/25n16f0.png','https://i.hizliresim.com/awuhq8o.png'],
    ['https://i.hizliresim.com/pefkmcg.png','https://i.hizliresim.com/iimn9zd.png']
  ];
  
  AnaForm:= TclForm.Create(Self);
  AnaForm.SetFormColor('#46DBC2','#F0E278',clGVertical);
  
  parcaBtn1:= AnaForm.AddNewProButton(AnaForm,'parcaBtn11','');
  parcaBtn1.Align:= alNone;
  parcaBtn1.Height:= 130;
  parcaBtn1.Width:= 130;
  parcaBtn1.Left:= 200;
  parcaBtn1.clTagInt:= 11;
  AnaForm.setImage(parcaBtn1, Images[1,1]);
  AnaForm.AddNewEvent(parcaBtn1,tbeOnClick,'bas');
  
  parcaBtn2:= AnaForm.AddNewProButton(AnaForm,'parcaBtn10','');
  parcaBtn2.Align:= alNone;
  parcaBtn2.Height:= 130;
  parcaBtn2.Width:= 130;
  parcaBtn2.Left:= 60;
  parcaBtn2.clTagInt:= 10;
  AnaForm.setImage(parcaBtn2, Images[1,0]);
  AnaForm.AddNewEvent(parcaBtn2,tbeOnClick,'bas');
  
  parcaBtn3:= AnaForm.AddNewProButton(AnaForm,'parcaBtn00','');
  parcaBtn3.Align:= alNone;
  parcaBtn3.Height:= 130;
  parcaBtn3.Width:= 130;
  parcaBtn3.Top:= 250;
  parcaBtn3.Left:= 60;
  parcaBtn3.clTagInt:= 00;
  AnaForm.setImage(parcaBtn3, Images[0,0]);
  AnaForm.AddNewEvent(parcaBtn3,tbeOnClick,'bas');
  
  parcaBtn4:= AnaForm.AddNewProButton(AnaForm,'parcaBtn01','');
  parcaBtn4.Align:= alNone;
  parcaBtn4.Height:= 130;
  parcaBtn4.Width:= 130;
  parcaBtn4.Top:= 250;
  parcaBtn4.Left:= 200;
  parcaBtn4.clTagInt:= 01;
  AnaForm.setImage(parcaBtn4, Images[0,1]);
  AnaForm.AddNewEvent(parcaBtn4,tbeOnClick,'bas');
  
  baslaBtn:= AnaForm.AddNewButton(AnaForm,'baslaBtn','Karıştır');
  baslaBtn.Align:= alTop;
  baslaBtn.Height:= 50;
  baslaBtn.Width:= 130;
  AnaForm.AddNewEvent(baslaBtn,tbeOnClick,'karBtn');
  
  AnaForm.Run;
end;
]]> Mon, 07 Aug 2023 09:44:37 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=668#668 <![CDATA[Buton Kontrol : Kodu zaten konuya eklemiştim en...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=665#665 Yazar: sqlae
Konu: 550
Gönderim Zamanı: 04 Ağustos 2023 Saat 14:22

Kodu zaten konuya eklemiştim en alt satırda mevcuttu yine bırakıyorum.

var
AnaForm   : TclForm; //Kod Formu
parcaBtn1 : TClProButton; //ORTA SOL
parcaBtn2 : TClProButton; //ORTA SAĞ
parcaBtn3 : TClProButton; //ÜST  SOL
parcaBtn4 : TClProButton; //ÜST  SAĞ
baslaBtn  : TclButton;
    
procedure basBtn
begin
  //parcaBtn1.Left:= parcaBtn1.Left -140;
  {
  if (parcaBtn1.Left = 200) and (parcaBtn2.Left = 60) then
  begin
    
    parcaBtn1.Left:= 60;
    parcaBtn2.Left:= 200;
  end;
  else if (parcaBtn1.Left = 200) and (parcaBtn3.Left = 60) and (parcaBtn3.Top = 250) then
  begin
    parcaBtn1.Left:= 60;
    parcaBtn1.Top := 250;
    parcaBtn3.Top:= 0;
    parcaBtn3.Left := 200;
  end;
  }
end;

procedure basBtn2
begin
  parcaBtn1.Left:= 200;
  parcaBtn2.Left:= 60;
end;

procedure basBtn3
begin
  parcaBtn4.Left:= 60;
  parcaBtn3.Left:= 200;
end;

procedure basBtn4
begin
  parcaBtn3.Left:= 60;
  parcaBtn4.Left:= 200;
end;

begin
AnaForm := TclForm.Create(Self);
AnaForm.SetFormColor('#46DBC2','#F0E278',clGVertical);

parcaBtn1:= AnaForm.AddNewProButton(AnaForm,'parcaBtn1','');
parcaBtn1.Align := alNone;
parcaBtn1.Height := 130;
parcaBtn1.Width := 130;
parcaBtn1.Left:= 200;
AnaForm.setImage(parcaBtn1,'https://i.hizliresim.com/iimn9zd.png');
AnaForm.AddNewEvent(parcaBtn1,tbeOnClick,'basBtn');

parcaBtn2:= AnaForm.AddNewProButton(AnaForm,'parcaBtn2','');
parcaBtn2.Align := alNone;
parcaBtn2.Height := 130;
parcaBtn2.Width := 130;
parcaBtn2.Left:= 60;
AnaForm.setImage(parcaBtn2,'https://i.hizliresim.com/pefkmcg.png');
AnaForm.AddNewEvent(parcaBtn2,tbeOnClick,'basBtn2');

parcaBtn3:= AnaForm.AddNewProButton(AnaForm,'parcaBtn3','');
parcaBtn3.Align := alNone;
parcaBtn3.Height := 130;
parcaBtn3.Width := 130;
parcaBtn3.Top:= 250;
parcaBtn3.Left:= 60;
AnaForm.setImage(parcaBtn3,'https://i.hizliresim.com/25n16f0.png');
AnaForm.AddNewEvent(parcaBtn3,tbeOnClick,'basBtn3');

parcaBtn4:= AnaForm.AddNewProButton(AnaForm,'parcaBtn4','');
parcaBtn4.Align := alNone;
parcaBtn4.Height := 130;
parcaBtn4.Width := 130;
parcaBtn4.Top:= 250;
parcaBtn4.Left:=200;
AnaForm.setImage(parcaBtn4,'https://i.hizliresim.com/awuhq8o.png');
AnaForm.AddNewEvent(parcaBtn4,tbeOnClick,'basBtn4');

baslaBtn:= AnaForm.AddNewButton(AnaForm,'baslaBtn','Karıştır');
baslaBtn.Align := alTop;
baslaBtn.Height := 50;
baslaBtn.Width := 130;
AnaForm.AddNewEvent(baslaBtn,tbeOnClick,'karBtn');

AnaForm.Run;

end;
]]> Fri, 04 Aug 2023 14:22:47 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=665#665 <![CDATA[Buton Kontrol : Bu konuda butonların yerini değiştirmek...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=664#664 Yazar: Alforce
Konu: 550
Gönderim Zamanı: 04 Ağustos 2023 Saat 14:20

Bu konuda butonların yerini değiştirmek yerine isimlerini ve resimlerini değiştirmek daha mantıklıdır.

Kodunuzu paylaşırsanız yardımcı olabilirim.
]]> Fri, 04 Aug 2023 14:20:15 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=664#664 <![CDATA[Buton Kontrol : Merhabalar, bir yap-boz uygulaması...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=662#662 Yazar: sqlae
Konu: 550
Gönderim Zamanı: 04 Ağustos 2023 Saat 11:48

Merhabalar, bir yap-boz uygulaması hazırlamaya çalışıyorum 3x3 bir zemin mevcut toplam 9 butondan oluşuyor ekte görsel tasarımı mevcut ; 



Buton1'e tıklandığında buton2 ile yer değiştirmesini istiyorum bu sorunsuz gerçekleşiyor fakat buton1 ve 2 yer değiştirdikten sonra buton2 buton1'in yerine geçtiğinden dolayı buton3 e tıklanırsa buton2'nin yeni konumu yani en soldaki ve en sağdaki yer değiştiriyor. Olması gereken sağdan sola soldan sağa aşağıdan yukarı yukarıdan aşağı olması gerekirken işlem karmaşık şekilde gerçekleşiyor yapılacak olan algoritma veya kullanılması gereken kod işlemini çözemiyorum. ;

EĞER (Buton1.Left=200) ve (buton2.Left=60) ise
{
yerleri değiştir
}
Değilse eğer (Buton1.Left=60) ve buton3.Left=200) ise
{
yerleri değiştir
}

Şeklinde denedim fakat başarısız oluyor.

Buton1 tıklandığında buton2 ile değiştir şeklinde denedim fakat bu defa buton3 ile değiştiremiyorum yine başarısız oluyor.

Aşağıda görsel bir şablon halinde çizerek paylaştım.

YEŞİL RENK SEÇİLEN
KIRMIZI RENK EYLEM

1. Buton1 ve buton 2 yer değiştirdi



2. Buton3'ü seçtim buton 2 ile yer değiştirdi olması gereken buton1 veya buton6 ile yer değişmesini sağlamak


3. SONUÇ;


Burada 2x2 olan bir kod mevcut 3x3 şeklindeyken de burada yazanlarla aynı şekildeydi.
]]> Fri, 04 Aug 2023 11:48:25 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=550&PID=662#662