Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
8. Apr 2006
heyy danke vielmals :)
das nennt man guten start in den tag :thumb:
ahh allerdings springts bei assigned(lelem) immer raus :(
grüße Nico :)
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
es geht doch noch nicht :(
procedure TMyArtz.NeuClick(Sender: TObject);
var newsheet:ttabsheet;
begin
newsheet := ttabsheet.Create(tabs);
newsheet.Name := 'ts_' + IntToStr(nr);
newsheet.PageControl := tabs;
newsheet.Caption := 'Unbekannt_' + IntToStr(nr);
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
danke das mit dem sender stimmte natürlich - ich hab als sender ja das popupmenu
@ christian ich versteh nich ich hab die richtigen tagwerte bekommen bei meiner kontrolle und bin in den block gekommen?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
also das ist eigentlich nur ein test diese zeile - normal sollte es das bild halt leeren
das mit dem sender vom popup kommt mir aber seltsam vor weil ich komme trotz
if Tpaintbox(Sender) <> nil then ... absicherung in den block rein ;)
grüße Nico
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
ging auch nicht ;)
der initialisierungswert ist 0 aber mit eins gehts auch nicht vorneweg ;)
@hawk - leider nicht - aber danke dass hab ich sowieso vergessen gehabt stimmt :oops:
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
@christian - hi
hatte ich vorhin zur kontrolle drinnen - der sender stimmt.
@mkinzler - danke, aber ist sicher nicht das problem(habs auch probiert ;) )
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
newsheet.PageControl := tabs; genügt wenn ich mich nicht irre
zumal das unten irrelevant ist :zwinker:
Forum: Sonstige Fragen zu Delphi
Delphi
by Nicodius,
7. Apr 2006
procedure TMyArtz.NeuClick(Sender: TObject);
var newsheet:ttabsheet;
begin
newsheet := ttabsheet.Create(tabs);
newsheet.Name := 'ts_' + IntToStr(nr);
newsheet.PageControl := tabs;
newsheet.Caption := 'Unbekannt_' + IntToStr(nr);
pb := TPaintbox.Create(Tabs);
pb.Parent := Tabs.Pages;
pb.Tag := nr;