page control

[Fahman]

Всем хай нужна помощь ваша ребята.
В общем я взял компонент кинул на форму потом на

procedure TForm1.ts4Enter(Sender: TObject);
begin
 Chromium3.Load('l');
end;

Поставил функцию вот так этакую но когда я открываю программу и кликаю по окну и у меня не открывается сайт а если подождать секунд 10-15 и потом опять перейти по какому нить окну то у меня открывается сразу сайт.. В чем мой косяк?

[Stilet]

ts4Enter

Это что за событие?

[Fahman]

Сообщение от Stilet

Это что за событие?

[Stilet]

Лучше опиши это действие в событии OnChange самого PageControl.
Дело в том что сам TabSheet не получает никакого фокуса (по которому срабатывает OnEnter). Событие сработает если какое-то содержимое этого таба, способное получить фокус его получает, но при смене вкладок этого не произойдет.

[Fahman]

Сообщение от Stilet

Лучше опиши это действие в событии OnChange самого PageControl.
Дело в том что сам TabSheet не получает никакого фокуса (по которому срабатывает OnEnter). Событие сработает если какое-то содержимое этого таба, способное получить фокус его получает, но при смене вкладок этого не произойдет.

OnChange самого PageControl. поставлю а у меня таких вкладок не одна же а 4 пока 4 )

if TabControl1.TabIndex = 0
 then Chromium1.load('site');

Так же надо проверять?

[Stilet]

Ану колись, что ты там такое задумал? Ась? Гуглохром переплюнуть?
Знаешь на твоем месте я бы организовал глобальную переменку для списка вкладок, и сделал так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { private declarations }
  public
    urls:TStringList;
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  urls.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  urls:=TStringList.Create;
  // Создаем вкладку добавления
  with PageControl1.AddTabSheet do begin
    Caption:='+';
  end;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
var tbs:TTabSheet; i:integer;
begin
  // Если выбрана она
  if PageControl1.ActivePage.Caption='+' then begin
    // Создаем новую вкладку
    tbs:=PageControl1.AddTabSheet;
    // Назначаем ей заглавие
    with tbs do begin
      Caption:=IntToStr(PageControl1.PageCount);
      // Ставим ее перед кнопкой добавления вкладки
      PageControl1.OnChange:=nil;
      PageIndex:=PageControl1.ActivePageIndex;
      PageControl1.OnChange:=@PageControl1Change;
    end;
    // И задаем ей в глобальном списке вкладок сайт
    urls.Objects[urls.Add(tbs.Caption+'='+'www.site.com')]:=tbs;
    // После активируем
    PageControl1.ActivePage:=tbs
  end else begin
    //Если же выбрана вкладка с сайтом
    i:=urls.IndexOfObject(PageControl1.ActivePage);
    //Получаем из глобального списка урл, связанный с этой вкладкой
    Chromium1.load(urls.ValueFromIndex[i]);
  end;
end;
end.

[Fahman]

Сообщение от Stilet

Ану колись, что ты там такое задумал? Ась? Гуглохром переплюнуть?
Знаешь на твоем месте я бы организовал глобальную переменку для списка вкладок, и сделал так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { private declarations }
  public
    urls:TStringList;
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  urls.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  urls:=TStringList.Create;
  // Создаем вкладку добавления
  with PageControl1.AddTabSheet do begin
    Caption:='+';
  end;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
var tbs:TTabSheet; i:integer;
begin
  // Если выбрана она
  if PageControl1.ActivePage.Caption='+' then begin
    // Создаем новую вкладку
    tbs:=PageControl1.AddTabSheet;
    // Назначаем ей заглавие
    with tbs do begin
      Caption:=IntToStr(PageControl1.PageCount);
      // Ставим ее перед кнопкой добавления вкладки
      PageControl1.OnChange:=nil;
      PageIndex:=PageControl1.ActivePageIndex;
      PageControl1.OnChange:=@PageControl1Change;
    end;
    // И задаем ей в глобальном списке вкладок сайт
    urls.Objects[urls.Add(tbs.Caption+'='+'www.site.com')]:=tbs;
    // После активируем
    PageControl1.ActivePage:=tbs
  end else begin
    //Если же выбрана вкладка с сайтом
    i:=urls.IndexOfObject(PageControl1.ActivePage);
    //Получаем из глобального списка урл, связанный с этой вкладкой
    Chromium1.load(urls.ValueFromIndex[i]);
  end;
end;
end.

Спасибо за код ну в общем не совсем гугл хром я хочу а вот


ну или вы как по советуете чтоб было красиво и удобно?

[Stilet]

Если вкладок не много то делай как ты говорил - через if или Case

[Fahman]

Сообщение от Stilet

Если вкладок не много то делай как ты говорил - через if или Case

Да максимум 6-8 вкладок будет это максимум но еще будут только они динамические будут и тут я подумал если я создам вкладку динамический можно ли будет сохранить ее? просто я создавал вкладку пустую а после того как закрыл программу и открыл по новой она у меня пропала... а пользователь там сам будет выбирать какую именно ему вкладку оставить а какую удалить кроме чата так как в основном я хотел сделать чат а остальное не так важно. Ну и потом понеслась добавить это добавить то)

[doktor255]

можно ли будет сохранить ее?

Свободное пространство на HDD в помощь. Сохраняй что пожелаешь.