Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: seclien alani dbgridde göstermek  (Okunma sayısı 2197 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı manavgat

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
seclien alani dbgridde göstermek
« : 06 Ocak 2006 00:51:25 »
saygi deger delphiciler


sizden bi kod istiyorum...
formumda 10 checkbox ve 1dbgird var
ve alanlar checkboxta yazılı
sadece chechked alanlar dbgridde gözükecek
checkboxtaki celtiği kaldırıncada gridden o alan kalkacak
nasıl yapabilirim

manavgatside@yahoo.com
Kayıtlı

muderless

  • Ziyaretçi
Ynt: seclien alani dbgridde göstermek
« Yanıtla #1 : 06 Ocak 2006 04:53:30 »
Ekteki örnek sana fikir vericektir. Üzerinde biraz çalış...

iyi çalışmalar....
Kayıtlı

Çevrimdışı manavgat

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: seclien alani dbgridde göstermek
« Yanıtla #2 : 07 Ocak 2006 13:06:27 »
abicim programi inceledim ama anlatmak istediğimi anlatamadim
şu gonderdiğim eki incelermisin

teşekkür ederim
« Son Düzenleme: 07 Ocak 2006 13:18:29 by manavgat »
Kayıtlı

muderless

  • Ziyaretçi
Ynt: seclien alani dbgridde göstermek
« Yanıtla #3 : 02 Şubat 2006 15:45:52 »
Biraz geç oldu ama dostum kusura bakma artık istediğin örnek ekte mevcut

iyi çalışmalar
Kod: [Seç]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, DB, DBCtrls, Grids, DBGrids, DBTables;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Table1SIZE: TSmallintField;
    Table1WEIGHT: TSmallintField;
    Table1AREA: TStringField;
    Table1BMP: TBlobField;
    DataSource1: TDataSource;
    Table1NAME: TStringField;
    AnimGrid: TDBGrid;
    SizeCheck: TCheckBox;
    AreaCheck: TCheckBox;
    NameCheck: TCheckBox;
    procedure SizeCheckClick(Sender: TObject);
    procedure AreaCheckClick(Sender: TObject);
    procedure NameCheckClick(Sender: TObject);
    procedure AnimGridDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
    procedure GenislikAyarla;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GenislikAyarla;//// gizlenen kolonun boyutlarını ayarlamak için bir procedure
var
  i, gen: word;
begin
  gen := 0;
  for i := 0 to AnimGrid.FieldCount - 1 do
    if AnimGrid.Columns[i].Visible then gen := gen + AnimGrid.Columns[i].Width;
  AnimGrid.Width := gen + 41;
end;

procedure TForm1.SizeCheckClick(Sender: TObject);
begin
  AnimGrid.Columns[0].Visible := SizeCheck.Checked;
end;

procedure TForm1.AreaCheckClick(Sender: TObject);
begin
  AnimGrid.Columns[2].Visible := AreaCheck.Checked;
end;

procedure TForm1.NameCheckClick(Sender: TObject);
begin
  AnimGrid.Columns[4].Visible := NameCheck.Checked;
end;

procedure TForm1.AnimGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  GenislikAyarla;
end;

end.
Kayıtlı

Çevrimdışı manavgat

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: seclien alani dbgridde göstermek
« Yanıtla #4 : 16 Şubat 2006 02:25:15 »
sağol kardeş
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »