17 TView

05 Einfachstes TView

 Selfhtml

TView, ist die unterste Ebene von allen Fenster, Dialog, Button, etc.
Au diesem Grund habe ich dieses kleine Beispiel von TView gemacht.
An diesem View sind keinerlei Änderungen möglich, da noch keine Event, Steurerelemente vorhanden sind.

Im Konstructor wird das View erzeugt.
  constructor TMyApp.Init;
  begin
    inherited Init;   // Der Vorfahre aufrufen.
    NewView;          // View erzeugen.
  end;
Es wird ein einfaches View erzeugt, wie erwarte sieht man nicht viel, ausser eines grauen Rechteckes.
  procedure TMyApp.NewView;
  var
    Win: PView;
    Rect: TRect;
  begin
    Rect.Assign(10, 5, 60, 20);
    Win := New(PView, Init(Rect));

    if ValidView(Win) <> nil then begin
      Desktop^.Insert(Win);
    end;
  end;



zurück