44 Fertige MessageBoxen

00 Einfache MessageBox

 Selfhtml

Die einfachsten Dialoge sind die fertigen MessageBoxen.

Aufruf einer MessageBox.
  procedure TMyApp.HandleEvent(var Event: TEvent);
  begin
    inherited HandleEvent(Event);

    if Event.What = evCommand then begin
      case Event.Command of
        cmAbout: begin
        end;
        cmList: begin
          // MessageBox aufrufen.
          MessageBox('Ich bin eine Liste', nil, mfError + mfOkButton);
        end;
        else begin
          Exit;
        end;
      end;
    end;
    ClearEvent(Event);
  end;



zurück