Panel

Hur gör man för att skapa nya "TPanel"
när man trycker på knappen?

Man ska kunna lägga upp hur många som helst!!

Detta borde funka.

var
APanel: TPanel;
i: integer;
begin
for i := 0 to 10 do
begin
APanel := TPanel.Create(self);
APanel.Parent := Self;
APanel.Top := i * APanel.Height;
APanel.Caption := IntToStr(i);

end;

Det funkar om man byter ut panel mot t.ex Button men Panel blir det bara fel med

Du måste ha med "extctrls" i USES annars hittar den inte TPanel.

jt's grej funkar fint även om jag föredrar att komponenter har nån annan
än sig själv som parent. T.ex. formuläret (Form1) eller nån annan panel kanske.

------------------
winne.net

Nu var det tänkt att self skulle vara ett formulär. Vilket kanske inte riktigt framgår av koden.

Ofta använder man tex en procedure liknande denna.
procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

Och då hänvisar Self till Form1.(Eftersom Buttonclick är en metod till objektet form1).

Extctrls finns redan med men det funkar iallafall inte

Helt rätt jt, om jag läst det lite noggrannare hade jag insett det.

Niclas: fattar inte hur man kan misslyckas. Plocka dit en vanlig knapp, dubbelklicka på den och klistra in koden som jt skrev innan.

Du ska tänka på att ta bort det översta "begin" som den skapar åt dig vid dubbelklicket och sen klistra in koden.

Om du trots detta inte får fram det så tala om mer noga vad Delphi säger är fel.

------------------
winne.net