Einzelnen Beitrag anzeigen

fips0705

Registriert seit: 13. Sep 2006
45 Beiträge
 
#1

Tdbgrid und TComponenteName

  Alt 25. Mär 2008, 11:48
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
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 = 'DbGrid1then
 DBGridActiv :=DbGrid1;
 if ActiveControl.Name = 'DbGrid2then
 DBGridActiv :=DbGrid2;
 if ActiveControl.Name = 'DbGrid3then
 DBGridActiv :=DbGrid3;
weil
 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.
  Mit Zitat antworten Zitat