stringgrid-visiblecolcount

[filiz]

merhabalar

colcountu 4 olan bir stringgiridin son kolununu görünmez yapmak istiyorum

Kod: Tümünü seç

stringgrid1.visiblecolcount:=3;

derlenmiyor..Aşşağıdaki hatayı veriyor
Error:Cannat assign to a read-only property

acaba bu kodu yazdığım yer mi yanlış..yani bu stringgrid1 in bir event ına mı yazmak gerekir

[hdayi]

Kod: Tümünü seç

StringGrid1.ColCount:=3;

İşini görmez mi?

[filiz]

hayır içi dolu olacak ama görünmeyecek..işimi görecek böyle bişey

[hdayi]

String gridin genişliğini, azalt. Görünmesini istemediğin kolon görünmesin.

Kod: Tümünü seç

StringGrid1.ScrollBars:=ssVertical;

ile artık o kolon görünmez olur.

Kolay Gelsin...

[vedatkaba]

Şu şekildede yapabilirsin

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
i:=stringgrid1.ColWidths[1];
stringgrid1.ColWidths[1]:=stringgrid1.ColWidths[1]-i;
end;

end.

Burda i değişkenine stringgrid de gizlemek istediğiniz sutunun index ini alarak daha sonra yeni genişliğini bu şekilde belirterek gizlenebilir ..

kolay gelsin

[vedatkaba]

yukarıda ki açıklama için düzeltme yapmam lazım bugün bende bir hal var ama...

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
i:=stringgrid.ColWidths[1]; // stringgrid 1 nolu kolon genişliğini i ye at****
stringgrid1.ColWidths[1]:=stringgrid1.ColWidths[1]-i;///kendi genişliğinden kendi genişliğini çıkart ve gizle****
end;

end.

Tekara kolay gelsin üstte index ini aldemiştim sonradan farkettim..

[hdayi]

@vedatkaba,

Kod: Tümünü seç

(kendi genişliği)-(kendi genişliği)=0

doğrudan 0 yazsak da oluyor.
0 yapınca grid çizgisi biraz kalınlaşıyor -1 yapılırsa hiç belli olmuyor.

Kolay Gelsin...

[vedatkaba]

Haklısın hdayi biliyorum dedim ya bende bir haller var sonradan bende farkettim ama bir daha mesaj atmak istemdim,, daha açıklayıcı olur dedim..
neyse kolay gelsin