Einzelnen Beitrag anzeigen

Darlo

Registriert seit: 28. Jul 2008
Ort: München
1.196 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#4

AW: Objekte auf ScollView platzieren

  Alt 9. Jan 2014, 12:13
Das weiß ich

Abgesehen davon dass du keine ScrollView auf dem Form hast fehlt das Initialize;
Delphi-Quellcode:
procedure TForm1.TMSFMXNativeUIButton1Click(Sender: TObject);
var n: Integer;
    Y: Integer;
    orgHeight: double;
begin
 Y:=0;
 orgHeight := scrollView1.Height;
 for n:= 0 to 9 do
  begin
    View1.Height := (n+1)*40;
    View1.Initialize;
    scrollView1.Height := (n+1)*40;
    scrollView1.Initialize;
    with TTMSFMXNativeUIButton.Create(View1) do
      begin
       Parent:= View1;
       Position.Y:= Y;
       Position.X:= 50;
       Text:= 'Button Nr.'+n.ToString();
       Initialize;
      end;
    Inc(Y,40);
  end;
  scrollView1.Height := orgHeight;
end;
Habs Dir auch mal hochgeladen.
Angehängte Dateien
Dateityp: zip UIViewDyn_new.zip (8,5 KB, 2x aufgerufen)
Philip
  Mit Zitat antworten Zitat