Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
3. Jan 2006
Mit dem Button auf dem MainForm fuktioniert's :lol:
Dann muss ich mir eben was für's Layout einfallen lassen. :gruebel:
Vielen Dank erstmal.
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
3. Jan 2006
Also daran scheint's nicht zu liegen.
Ich hab mir den Namen des Buttons mal in nem Edit ausgeben lassen und der heißt so wie in der OnClick-Prozedur. Die Prozedur wird also ausgelöst.
Was ist denn sonst verkehrt? Fehlt noch was?
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
3. Jan 2006
Wie gesagt hab ich es mit diesem Code versucht
procedure Tframeauftrag.Button1Click(Sender: TObject);
begin
(FindComponent('frameauftrag' + IntToStr(frmmain.pcauftrag.ActivePageIndex)) as TFrameauftrag).Free;
(FindComponent('tabauftrag' + IntToStr(frmmain.pcauftrag.ActivePageIndex)) as TTabSheet).Free;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
3. Jan 2006
Wie kann ich denn die erstellten Tabsheets wieder löschen?
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
3. Jan 2006
Hab ich getan.
Ups- das ist es aber trotzdem passiert noch nix und wenn ich den Frame mit .Destroy kille, bekomm ich ne Zugriffsverletzung.
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
3. Jan 2006
Hi nochmal,
Ich hab jetzt auf den Frame noch nen Button gesetzt, mit dem sich das aktuelle Tabsheet mit allem darauf befindlichem schließen soll.
Dazu dieser Code - den hab ich von hier:
procedure Tframeauftrag.Button1Click(Sender: TObject);
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
2. Jan 2006
Hab's hinbekommen, einfach umbenennen und schon funzt's
procedure Tfrmmain.Button1Click(Sender: TObject);
var newsheet:ttabsheet;
newframe:tframe1;
begin
newsheet:=ttabsheet.Create(pcauftrag);
newsheet.Caption:='neu'+ inttostr(pcauftrag.PageCount+1);
newsheet.PageControl:= pcauftrag;
NewFrame := TFrame1.Create(self);
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
2. Jan 2006
OK, ein komplettes Tabsheet kann ich so erstellen, beim zweiten meckert er mich allerdings an, das Frame1 schonmal existiert.
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
2. Jan 2006
Ich hab jetzt wenigstens schonmal rausbekommen, wie ich die Tabsheets zur laufzeit erzeue. Ich hab dafür folgenden code:
procedure Tfrmmain.Button1Click(Sender: TObject);
var newsheet:ttabsheet;
begin
newsheet:=ttabsheet.Create(pcauftrag);
newsheet.Caption:='neu'+ inttostr(pcauftrag.PageCount+1);
newsheet.PageControl:= pcauftrag;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
2. Jan 2006
Ich stelle mir also nen Button vor, von wegen "Auftrag in neuem Tab öffnen" und ich bekomme auf einem neuen Tab das komplette Formular des neuen Auftrags - in etwa so wie bei Firefox.
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
2. Jan 2006
Hört sich ja nicht schlecht an aber wie stell ich das an? Wie kann ich das Frame in das TabSheet einbetten?
Forum: Object-Pascal / Delphi-Language
Delphi
by buyden,
2. Jan 2006
Hi,
Schönes neues Jahr erstmal.
Ich möchte zur Laufzeit Tabsheets erstellen, komplett mit allen Objekten die darauf liegen.
Es handelt sich dabei um ein Formular zu einem Auftrag. Ich möchte für andere Aufträge jeweils ein neues TabSheet mit allen dazugehörigen Formulardaten erstellen.
Wie kann man das am einfachsten anstellen?