Tdbgrid und TComponenteName

[fips0705]

Hy,
könnt ihr mir mal bitte einen Tip geben wie ich aus einen TComponenteName ein Tdbgrid mache.
Ich bin dabei ein Grid zu sortien, dies funktioniert auch sehr gut. Nur habe ich mehrere Grids auf einem Form und will die

Delphi-Quellcode:

procedure THauptForm.DbGridActivTitleClick(Column: TColumn);

ins Programm schreiben und nicht immer DbGrid1TitleClick, DbGrid2TitleClick ... usw.

Zur Zeit sieht es mit DbGridActivTitleClick so aus

Delphi-Quellcode:

 if  ActiveControl.Name = 'DbGrid1' then
 DBGridActiv :=DbGrid1;
 if  ActiveControl.Name = 'DbGrid2' then
 DBGridActiv :=DbGrid2;
 if  ActiveControl.Name = 'DbGrid3' then
 DBGridActiv :=DbGrid3;

weil

Delphi-Quellcode:

 DBGridActiv :=ActiveControl.Name;

ja logischerweise nicht funktioniert. Aber wie geht es ???

Dann habe ich noch eine 2. Frage.

Vielen Dank.
Wie kann man die Schriftgröße im Hint ändern (Delphi5) oder funzt das nicht.

[mkinzler]

Man könnte es per .FindComponent() machen

[fips0705]

Delphi-Quellcode:

 DBGridActiv :=FindComponent(ActiveControl.Name);

gibt mir der Compiler die gleiche Fehlermeldung.
Inkompatible Typen
was mache ich fasch?

[mkinzler]

Delphi-Quellcode:

DBGridActiv := TDBGrid(FindComponent(ActiveControl.Name));

oder

Delphi-Quellcode:

    If ActiveControl is TDBGrid then (ActiveControl as TDBGrid). ...

Wurde bei TMS wirklich der Parameter Sender wegrationalisiert?

[fips0705]

Sorry habs schon.
Vielen Dank mkinzler

Hint Schriftart ... ändern
Torry's Delphi Pages