Hi DPler,
Ich möchte Teile einer
Unit in eine andere auslagern, um Übersichtlichkeit zu waren. (kein Codefolding in D7)
Beispiel:
in Form1:
Delphi-Quellcode:
procedure THauptform.Drucken1Click(Sender: TObject);
begin
...
//viel Code
...
end;
Das Problem ist, dass ich Methoden von Objekten der Form auslagern will oder Eigenschaften von Objekten verändern möchte:
Delphi-Quellcode:
procedure THauptform.FormResize(Sender: TObject);
var
i: Byte;
begin
HauptBoxpanel.Width := clientwidth - 158;
HauptBox.Width:=HauptBoxpanel.Width-4;
Toolpage.Height:=0;
Hauptboxpanel1.Height:=ClientHeight-50;
Hinweisbutton.Caption:='Hinweise';
Hinweisbutton.Left:=Trunc(HauptBox.Width/2)-Trunc(Hinweisbutton.Width/2);
FormularTabPanel.Align := alNone;
FormularTabPanel.width := 158;
FormularTabPanel.Left := clientwidth - 158;
FormularTabPanel.Height:=Clientheight-JvToolBar1.height-statusbar.height;
FormularTab.Height := FormularTabPanel.Height - 43;
DGFormulare.ColWidths[0] := 10;
DGFormulare.ColWidths[1] := DGFormulare.Width - 8;
JahrZurueck.Left := FormularTabPanel.Width - 18;
for i := 1 to 4 do
JahrButton[i].Left := 18 + 30 * (i - 1);
end;
ich habe die Methoden und Ereignisse, welche ich nicht mehr ändern möchte, nun erst
einmal in eine Include- Datei ausgelagert, aber das erscheint mir nicht sonderlich elegant.
eventuell gibts da einen Tip.
mfg
BrunoT