Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Webbrowser / 3 сообщений из 3, страница 1 из 1
02.04.2019, 10:57
    #39795008
Алексей222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser
Delphi 10 программа для Android
Проблема в том что выполняешь Webbrowser он выполняется но перестают работать все кнопки на xe7 И ANDROID ДО 6 всё работает
пример
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Button16Click(Sender: TObject);
begin
 memo1.Text:='';
Memo1.Lines.LoadFromFile(format('%s/news.txt', [GetHomePath]));
webBr:=Memo1.Text;
 
 ShowHtml(Webbrowser6,webBr);
end;
...
Рейтинг: 0 / 0
02.04.2019, 17:35
    #39795357
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser
Алексей222,

Э-э... Кнопки где? Вангую - ты статус WebBrowser`a не проверяешь.
...
Рейтинг: 0 / 0
05.04.2019, 15:49
    #39797372
Алексей222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser
Эта проблема решил вместо Tokiy поставил berlin
Но появилась другая при загрузки выдает черный экран переносишь часть форм в anvailable forms и всё работает
Вот одна из форм с ней чёрный экран
unit Unit25;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,
FMX.Memo, FMX.Edit, FMX.Layouts, FMX.StdCtrls, FMX.Controls.Presentation;

type
TForm25 = class(TForm)
ToolBar1: TToolBar;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Button9: TButton;
GridPanelLayout1: TGridPanelLayout;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form25: TForm25;

implementation

{$R *.fmx}

procedure TForm25.Button1Click(Sender: TObject);
begin
// Memo1.Text:= edit1.Text;
// Memo1.Lines.SaveToFile(format('%s/ip.txt', [GetHomePath]));
// showmessage ('Ip адрес изменен');
end;

procedure TForm25.Button2Click(Sender: TObject);
begin
Form25.Close;
end;

procedure TForm25.FormCreate(Sender: TObject);
begin
Memo2.Lines.LoadFromFile(format('%s/ip.txt', [GetHomePath]));
edit1.Text:=Memo2.text;
end;

end.
Почему с частью форм выдаёт черный экран
Зарастание спасибо
sdk 25.2.5 32bit
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Webbrowser / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]