Не сохраняется

[Rebel123]

Кароче, на ListBox занес слова, сохраняю и выхожу, в exe захожу а этих слов нету. Захожу в project они там есть. Не подскажите почему такое происходит? То есть не сохраняется оно.

[ОДИНОЧЕСТВО В СЕТИ]

а вы при создании формы ListBox -у Clear случаем не делаете??

[Stilet]

код в студию.

[Rebel123]

[QUOTE=Stilet;304060]код в студию.[/QUO

Ну я не совсем дурак что Clear нажимать, А Код выставлять нет смысла по сколько\у в коде нету еще не чего.... вот прога ...разичие между exe и project

[Вавел из ГМТУ]

Всё сохраняется. Возможно трабла в "занес слова, сохраняю и выхожу, в exe захожу а этих слов нету."
Что понимается под словом "сохраняю" ?
.exe обновляется только после билда. Тоесть File->Save не есть обновление exe.

После внесения изменений жми Ctrl + F9 (компиляция). Или можно запустить на выполнение (F9).

PS: советую создавать какуюто БД для словаря. Заносить в ЛистБох руками это изврат, да и обновление словаря затруднено...

[Rebel123]

Вавел из ГМТУ - спасибо вам большое!
вот хочу сделать так чтоб при перемотки одного из СкроллБаров которые на ЛистБоксе, чтоб и перематывалась другая. Так думаю легче будет пользователю не терять перевод на нужное ему слово!

[Stilet]

чтоб и перематывалась другая.

Ну вот тебе пример по твоему:

type
   TlistBox=class(StdCtrls.TListBox)
   procedure vs(var m:TWMVScroll); message WM_VScroll;
  end;

  TForm4 = class(TForm)
    ListBox2: TListBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
...
{ TlistBox }
procedure TlistBox.vs;
begin
inherited;
 Form4.ListBox2.TopIndex:=m.Pos;
end;

[Rebel123]

Спасибо за код, но работает он не полноценно, вот я выложил экзешник, можете посмотреть сами и добавить что где не правильно буду блогадарен!

[Stilet]

Хм. Странно... Перескакивает назад... Никогда такого не видел.

Впрочем вот выход:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;

type
   TlistBox=class(StdCtrls.TListBox)
   procedure vs(var m:TWMVScroll); message WM_VScroll;
  end;

  TForm4 = class(TForm)
    ListBox2: TListBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure T(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation



{$R *.dfm}




procedure TForm4.FormCreate(Sender: TObject);
begin
end;

{ TlistBox1 }

procedure TlistBox.vs(var m: TWMVScroll);
begin
inherited;
 Form4.ListBox2.TopIndex:=m.Pos;
 form4.T(self);
end;

procedure TForm4.T(Sender: TObject);
begin
  ListBox2.TopIndex:=ListBox1.TopIndex;
end;

end.

[Rebel123]

Stilet - одного не понял, что подразумевается под строкой Form4.T(self);
T - это что такое? у меня там ошибка кода вылазиет!