Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Übergabeparameter groupbox und form


D. Annies - Sa 29.01.11 14:17
Titel: Übergabeparameter groupbox und form
Hi, Delpher,

ich will einer Prozedur als Übergabeparameter ein Stringgrid, und (meistens) eine Groupbox übergeben - aber auch ein
Formular.
Welchen Übergabeparameter muss ich dafür verwenden?


Delphi-Quelltext 
1:
2:
 
procedure Gridbreite(SG:TStringgrid; GB:TGroupbox); 
//                                    das geht ja leider nicht


Danke für Hilfestellung,
Detlef


bummi - Sa 29.01.11 14:21

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
procedure Gridbreite(SG:TStringgrid; C:TComponent);
begin
  if Assigned(C) then
    begin
      If C is TForm then TForm(C)...
            else If C is TGroubbox then TGroupBox(C)...  
          end;  
end;


D. Annies - Sa 29.01.11 14:35
Hi, Bummi,

danke für deine Lösung. Ich habe sogar eben selbst eine (noch) einfachere gefunden, da ich nur die Breite brauche, also
kann ich auch die Objektbreite als integer übergeben :)

Gruß, Detlef


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!