![]() |
Добро пожаловать, гость ( Вход | Регистрация )
![]() |
-=CHE@TER=- |
![]()
Сообщение
#1
|
Walter Sullivan ![]() ![]() ![]() Группа: Root Admin Сообщений: 1,360 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 313 раз(а) ![]() |
Delphi programs in API.
На английском. Очень подробно всё описано, плюс есть исходные коды готовых юнитов. Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял). |
![]() ![]() |
-=CHE@TER=- |
![]()
Сообщение
#2
|
Walter Sullivan ![]() ![]() ![]() Группа: Root Admin Сообщений: 1,360 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 313 раз(а) ![]() |
Есть на форме 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; На удивление тоже не работает (вернее работает, но со второго раза). |
![]() ![]() |
Упрощённая версия | Сейчас: 25th August 2024 - 13:14 |