Malenkie pytanko ale inaczej!!

0

wiec mam coś takiego :
var
Button : TButton;
begin
with TTabSheet.Create(pageControl4)do
begin
pagecontrol:=pagecontrol4;
Caption:='Nowy';
end;
Button := TButton.Create(Self);
Button.Parent := Self;
end;

tworzona jest tu zakładka w pagecontrol4 i ma sie na niej tworzyć też przycisk dynamicznie ale tak nie jest -
próbowałem na różne sposoby - przycisk jest tworzony na głównej formie a nie na nowej zakładce w
pagecontrol - bardzo proszę o pomoc

0

Button.Parent := Self;

nie podoba mi się ta linijka. Może przypisz mu tabsheeta jako parenta?---------------------------
Delphi 6

Pozdrówka

0

var
Button : TButton;
begin
with TTabSheet.Create(pageControl4)do
begin
pagecontrol:=pagecontrol4;
Caption:='Nowy';
Button := TButton.Create(Self);
Button.Parent := Self;
end; // &lt- ty chyba błąd, za wcześnie end dałeś :)

end;

0

Tak z ciekawosci: Czy zamiast:
&gt Button := TButton.Create(Self);
&gt Button.Parent := Self;
nie wystarczy
Button:=TButton.CreateParented(Self.Handle);
?--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

raczej żaben sposób nie działa
PREGUSIA - robiłem już tak i też nic
moze ktoś ma inny pomysł jak rozwišzać mmój problem - prosze goršco o pomoc!!

0

A ja zrobilbym tak :

var Button:TButton;
begin
Button:=TButton.Create(self);
Button.Left:=100;
Button.Top:=100;
Button.Width:=100;
Button.Height:=100;
Button.Parent:=TabSheet2;

Do tego dodam, ze zrobilem to i mi dzialalo :-) :-)
--Delphi 5
[ www.dchcorp.host.sk] - niestety w budowie :((
Pozdrawiam

0

może:
Button:=TButton.Create(pageControl4);
ewentualnie dodaj jeszcze:
pageContro4.InsertControl(Button)--Vogel [Delphi 6 PE]

I TY możesz nauczyć się grać w bierki!

1 użytkowników online, w tym zalogowanych: 0, gości: 1