dbGrid.TitelClick ingen Sender?

Det er ikke kønt mend et virker

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
case column.Index of
0 : showmessage('Du har klikket på første kolonne');
1 : showmessage('Du har klikket på anden kolonne');
end;
end;

Stoney

eller

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if column.Title.Caption = 'Beskrivelse' then
showmessage('du har klikket på' + column.Title.Caption);

end;


Den er case-sensitiv

Stoney

Ja det er nu ikke lige det jeg mener Stoney, jeg skal bruge OnTitelClickEventet generelt til flere forskellige Grids sådan her

procedure TFrameLogs.dbgTitleClick(Column: TColumn);
var
  dbg: TDBGrid;
begin
  if Sender is TDBGrid then
  begin
    dbg:= Sender as TDBGrid;
    if dbg = dbGrid1 then
      bla...bla...bla
    if dbg = dbGrid2 then
      bla...bla...bla
osv.

  end;
end;

Det lyder som en designfejl du er ved at rode dig ud i..? Er det ikke oplagt at subclasse grid-dimsen i stedet?

public
  procedure mortens_dbgrid_title_click(Sender : TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;
  gridcomp : Tcomponent;
  gridname : string;

implementation

{$R *.dfm}
procedure tform1.mortens_dbgrid_title_click;

begin
if gridname = 'DBGrid1' then
showmessage('dbgrid1');
if gridname = 'DBGrid2' then
showmessage('dbgrid2');
// husk den er case-sensitiv
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
mortens_dbgrid_title_click(gridcomp);
end;

procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
gridname := (TComponent(sender).Name);
end;


Sæt alle dine grids onenter event lig med "dbgrid1" i dette tilfælde
og alle dbgrid_title_click til dbgrid1titleclick.

Det er ikke kønt, men fanger dog dit gridnavn.

Stoney

a