Delphi, Asm, C, WinAPI, PHP, ..., FAQ Опции

[-=CHE@TER=-]

Delphi programs in API.
На английском.
Очень подробно всё описано, плюс есть исходные коды готовых юнитов.
Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял).

[-=CHE@TER=-]

Есть на форме UpDown1, ассоциированный (Associate) с ним Edit1 и кнопка.

На кнопке такой код:

CODE

Procedure TForm1.Button1Click(Sender: TObject);
Var TI: TINIFile;
Begin
  If OpenDialog1.Execute Then
    Begin
      TI:=TINIFile.Create(OpenDialog1.FileName);
      UpDown1.Position:=TI.ReadInteger('Section', 'Value', 0);
      TI.Free;
    End;
End;

Пашет только если нажать два (!) раза подряд (с открытием файла, конечно). А если написать так:

CODE

      TI:=TINIFile.Create(OpenDialog1.FileName);
      Edit1.Text:=IntToStr(TI.ReadInteger('Section', 'Value', 0));
      TI.Free;

Или даже так:

CODE

      UpDown1.Position:=123;

То Edit1 обновляется вместе с UpDown1 с первого раза. В чём засада кто-нибудь знает? Refresh / Update у Edit1 и UpDown1 (а также вызов OnChanging) не спасли гиганта мысли. Такой код:

CODE

X:=TI.ReadInteger('Section', 'Value', 0);
UpDown1.Position:=X;

На удивление тоже не работает (вернее работает, но со второго раза).