Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#4

Re: alle Objecte der Hauptform an andere Unit übergeben?

  Alt 4. Jul 2009, 16:17
Du redest hier wohl von Controls (Steuerlemente).
Dann ist es sinnvoll ein Objekt der Klasse TWinControl an die 2. Unit weiterzugeben.
Delphi-Quellcode:
Unit Unit2;

interface

procedure MachAlleEditsGruen(c:TWinControl);

implementation

procedure MachAlleEditsGruen(c:TWinControl);
var i : integer;
begin
  if not Assigned(c) then Exit;
  if c is TEdit then
    TEdit(c).Color := clGreen;
  for i := 0 to c.ControlCount-1 do
     MachAlleEditsGruen(c.Controls[i]);
end;
Der Aufruf im Formular wäre:
MachAlleEditsGruen(self);
fork me on Github
  Mit Zitat antworten Zitat