StatusBar CheckBox

[Serhat]

İyi akşamlar;


StatusBar panel 7' nin lefti ile Checkbox left aynı hizada yani yan, yana göstermek istiyorum, form resize özelliğine kodladım fakat başarılı olmadı daha pratik nasıl yapabilirim???

Kod: Tümünü seç

procedure TMainForm.FormResize(Sender: TObject);
var
  Topla, J: Integer;
begin
  Topla := 0;
  with StatusBar1 do
  begin
    for I := 0 to Panels.Count - 1 do
    begin
      Topla := Topla + Panels[J].Width;
      CheckBox.Left := Topla;
      
     CheckBox.Top := StatusBar1.Top + 5;
    end;
  end;
end;

[ikra]

Kod: Tümünü seç

var
  C, L: integer;
begin
  with statusbar1 do
  begin
    C := panels.count;
    L := panels[C-1].left + .panels[C-1].width;
  end;
  
  checkbox1.left := L;
end;

[Serhat]

Kod: Tümünü seç

var
  C, L: integer;
begin
  with statusbar1 do
  begin
    C := panels.count;
    L := panels[C-1].left + .panels[C-1].width;
  end;
  
  checkbox1.left := L;
end;

Teşekkür ederim, Fakat yanılmıyorsam panels left özelliği yok.

[ikra]

telefondan yazinca bukadar oluyor.
o halde söyle yapalim.

Kod: Tümünü seç

var
  C, L: integer;
begin
  L := Statusbar1.Left;
  
  with statusbar1 do
  begin
    C := panels.count;
    L := L + panels[C-1].width;
  end;
  
  checkbox1.left := L;
end;

Aslinda Nesnenin Anchors Propertisini kullanarak da bu isi halledebilirsiniz.
Designtime'da panellerinizi ekleyin. Daha sonra CheckBox nesnenizi yerlestirip anchors propertisinde left'i false, right'i ise true yapin.
Form resize oldugunda otomatik olarak pozisyon alacaktir.

[Serhat]

Teşekkür ederim...

[ikra]

Kod: Tümünü seç

var
  I, L: integer;
begin
  L := Statusbar1.Left;
  
  with statusbar1 do
    for I := 0 to pred(panels.count) do
      L := L + panels[I].width;
  
  checkbox1.left := L;
end;

hata yapmisim pardon. Dogrusu yukarida.