15 Fenster

00 Erstes Fenster

 Selfhtml

Erstes Memo-Fenster.

Der Constructor wird vererbt, so das von Anfang an ein neues Fenster erstellt wird.
type
  TMyApp = object(TApplication)
    constructor Init;

    procedure InitStatusLine; virtual;
    procedure InitMenuBar; virtual;

    procedure NewWindows;
  end;
  constructor TMyApp.Init;
  begin
    inherited Init;   // Der Vorfahre aufrufen.
    NewWindows;       // Fenster erzeugen.
  end;
Neues Fenster erzeugen. Fenster werden in der Regel nicht modal geöffnet, da man meistens mehrere davon öffnen will.
  procedure TMyApp.NewWindows;
  var
    Win: PWindow;
    Rect: TRect;
  begin
    Rect.Assign(0, 0, 60, 20);
    Win := New(PWindow, Init(Rect, 'Fenster', wnNoNumber));
    if ValidView(Win) <> nil then begin
      Desktop^.Insert(Win);
    end;
  end;



zurück