Übergabeparameter groupbox und form

D. Annies · Verfasst: Sa 29.01.11 14:17

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?

markieren

Delphi-Quelltext

1:
2:

procedure Gridbreite(SG:TStringgrid; GB:TGroupbox); 
//                                    das geht ja leider nicht

Danke für Hilfestellung,
Detlef

_________________
ut vires desint, tamen est laudanda voluntas

bummi · Verfasst: Sa 29.01.11 14:21

markieren

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;

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

D. Annies · Verfasst: 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

_________________
ut vires desint, tamen est laudanda voluntas

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme