Delphi-PRAXiS - Delphi Tdbgrid und TComponenteName

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Tdbgrid und TComponenteName (https://www.delphipraxis.net/110814-tdbgrid-und-tcomponentename.html)

Tdbgrid und TComponenteName

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.

Re: Tdbgrid und TComponenteName

Man könnte es per .FindComponent() machen

Re: Tdbgrid und TComponenteName

Delphi-Quellcode:

DBGridActiv :=FindComponent(ActiveControl.Name);

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

Re: Tdbgrid und TComponenteName

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?

Re: Tdbgrid und TComponenteName

Sorry habs schon.
Vielen Dank mkinzler

Hint Schriftart ... ändern

Torry's Delphi Pages