Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
4.067 Beiträge
 
Delphi 12 Athens
 
#10

AW: Delphi Rio (10.3): nichts geht mehr?

  Alt 7. Dez 2018, 08:16
Ok, Tms rauswerfen hat nichts gebracht.
Eine neue .dproj anlegen lasen hat nichts gebracht.

Aber ein ganz neues Projekt aufsetzen hat es bei mir gelöst.

Irgendwas scheint an deinem Projekt nicht OK zu sein (dpr, dproj) ?

Mein funktionierende Demo im Anhang.

EDIT:
Ok, das interessiert mich warum:

1. Unterschied: .dpr
Delphi-Quellcode:
program FormLabelTest;

uses
  System.StartUpCopy,
  FMX.Forms,
  LabelTest in 'LabelTest.pas{Form1},
  FMX.WebBrowser in 'FMX.WebBrowser.pas'; // <-- Diese Zeile könnte das Problem verursachen

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
2. .dproj Unterschiede, na klar, aber erstmal nichts auffälliges.
Ich hätte das die Packages der Fremdkomponenten im Verdacht, aber die werden hier ja gar nicht benutzt.


3. Unterschied .fmx
Delphi-Quellcode:
object Form1: TForm1
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize] //<-- Das kann es doch nciht etwa sein =
  Caption = 'Form1'
  ClientHeight = 474
  ClientWidth = 1052
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]

  DesignerMasterStyle = 0
  object WebBrowser1: TWebBrowser
    Size.Width = 649.000000000000000000
    Size.Height = 355.000000000000000000

    Size.PlatformDefault = False
    Position.X = 8.000000000000000000
    Position.Y = 6.000000000000000000
  end
end
4. .pas
Delphi-Quellcode:
interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation
  , FMX.TMSWebBrowser // <-- Tms mit/ohne macht keinen Unterschied
  , FMX.TabControl, FMX.WebBrowser,
  FMX.TMSBaseControl, FMX.TMSGridCell, FMX.TMSGridOptions, FMX.TMSGridData,
  FMX.TMSCustomGrid, FMX.TMSGrid, FMX.TMSCustomButton, FMX.TMSBarButton,
  FMX.TMSButton, FMX.TMSMemo, FMX.Layouts, FMX.Forms;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;

  private
    { Private-Deklarationen }
    nr:integer; // <<- Könnte nr ein reserviertes Wort sein ? Ich schreibe mindestens Fnr um solche Fehler auszuschliessen
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}



Rollo
Angehängte Dateien
Dateityp: zip T236_WinRioWebBrowser.zip (7,6 KB, 5x aufgerufen)

Geändert von Rollo62 ( 7. Dez 2018 um 08:26 Uhr)
  Mit Zitat antworten Zitat