Кривая Delphi7 ?

[digitalis]

Переустановил Delphi7....
---------------------------
Беру салют обратно.
Попробовал старую прогу - вроде все ОК. Значит, Дельфия не при чем. Умудрился наваять нетленку, что не только себя вешает, но и
Delphi

[Pavia]

digitalis
Запускайте из под администратора. В свойствах ярлыка поставьте.

[digitalis]

Я на компе - единственный юзверь со всеми правми Дело в исходнике. Давно не брал я в руки шашек...

[Alex11223]

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

Запускайте из под администратора.

в ХР это вряд ли нужно.

[Вадим Мошев]

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

в ХР это вряд ли нужно.

Есть такая программа regOrganizer. Практика показала, что если ставить ломаную версию версию (то есть с ключом), то работать она будет только на той учётной записи, где её поставили. Чтобы она не отказывалась работать на других пользователях, надо запускать эту программу от имени того пользователя, под которым была установлена программа, даже если все пользователи (учётные записи) компьютера имеют права администратора.

[digitalis]

Все проще (или сложнее ?) Взял пустую форму, поочередно перетащил туда все компоненты (с проверкой каждый раз) из проблемного проекта - и все журчит! Мистка какая-то.
Но чтоб прога подвешивала не только себя, но и отлаживающую ее оболочку самой Делфи...
"
А ты твердишь, что на свете
Не бывает чудес" © из комсомольской песни.
На всяк случай - вдруг чего недоглядел - выкладываю этот мегапроект Потом удалим.

unit Unit1;

interface

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

type
    str64 = string[64] ;
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure Visu () ;
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  CurRgm: integer ;
  MasStr: array[0..64] of str64 ;
  F1 : Text ;
  N : integer ;

implementation

{$R *.dfm}
procedure TForm1.Visu () ;
var i,j,k : integer ;
ss : string ;
begin
  if CurRgm < 0 then Exit
  else
    j := 0 ;
    ListBox1.Clear ;
    for i := 0 to N do
      begin
        ss := MasStr[i] ;
        k := Ord(ss[1]) And 7;
        if k = CurRgm then
          begin ListBox1.Items.Add(Copy(ss,2,64)) ; Inc (j) end ;
      end ;
end ;

procedure TForm1.FormActivate(Sender: TObject);
var i : integer ;
begin
  AssignFile (F1,'Sites.txt') ;
  Reset (F1) ;
  for i := 0 to 64 do
    begin
       Readln (F1,MasStr[i]) ;
       if MasStr[i] = '//' then Break else N := i ;
    end ;
  CloseFile (F1) ;
   Visu () ;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  CurRgm := RadioGroup1.ItemIndex ; Visu ()
end;

end.

[Аватар]

OnActivate происходит когда форма получает фокус ввода. Проверь сколько раз событие отработает, если кликнешь по любой другой форме, потом опять по этой. В OnCreate формы такие вещи лучше

[digitalis]

В принципе оно работает и так нормально. Перенес

procedure TForm1.FormCreate(Sender: TObject);
var i : integer ;
begin
  AssignFile (F1,'Sites.txt') ;
  Reset (F1) ;
  for i := 0 to 64 do
    begin
       Readln (F1,MasStr[i]) ;
       if MasStr[i] = '//' then Break else N := i ;
    end ;
  CloseFile (F1) ;
  NZ := 0 ;
  Visu () ;

end;

...........................

procedure TForm1.FormActivate(Sender: TObject);
begin
  Inc (NZ) ; Form1.Caption := 'Sites ' + IntToStr (NZ) ;
end;

Activate не вызывается никогда - ни при перескоке с формы на форму, ни при сворачивании-разворачивании - в Form1.Caption остается Sites 1. Или наоборот - всегда происходит и Create, и Activate ?
Впрочем, загадку зависания оно по любому не решает. Ну и пес с ним. Буду аккуратнее лепить исходную форму.