Hallo ihr Lieben,
ich habe folgendes Hindernis zu überwinden:
Ich hab in meiner Oberfläche eine Toolbar mit selbstverständlich mehren Toolbuttons. Je nach dem welcher Button geklickt wird, soll sich das entsprechende Frame unter der Toolbar aufbauen.
Klappt soweit alles wunderprächtig. Nun wollte ich meinen Code noch einmal ein klein wenig umgestalten und mir wurde der Hinweis gegeben, dass ich den Code auch so bearbeiten sollte, damit bei eventuellen Änderungen, ich weniger Mühe habe.
Also klein-Maya packt alles in eine eigene Procedure.
Delphi-Quellcode:
procedure TAuswahl.Anzeigen1Click(Sender: TObject);
begin
FrameErzeugen(Tirgendein_Frame);
end;
[...]
procedure TAuswahl.FrameErzeugen(aTyp: TFrame);
begin
if (DummyFrame = aTyp) then exit
else
begin
DummyFrame.Free;
DummyFrame:=aTyp.Create(Self);
DummyFrame.Parent:=pnl2;
DummyFrame.Align:=alClient;
DummyFrame.Show;
end;
end;
Die Experten unter uns sehe sicherlich schon das Problem: da knallt es. Es ist mir nicht möglich, Tirgendein_Frame als Parameter zu übergeben.
Irgendjemand ein Tipp?
Danke!