Значение TEdit для переменной

Question

У меня есть то, что я считаю простой проблемой, просто не могу опустить голову.

Пытается написать сценарий с одной страницей.

Комбобокс и поле редактирования.

Комбобокс работает нормально, я могу получить его содержимое в зависимости от того, что было выбрано.

Моя панель редактирования, однако, я не могу ее обновить, если текст в поле изменен.

[Code] 
var 

server: string; 

procedure InitializeWizard; 
var 
Edit: TNewEdit; 

begin 
    server := '127.0.0.1'; 

    Edit := TNewEdit.Create(CustomPage); 
    Edit.Top := DescLabel2.Top + DescLabel2.Height + 6; 
    Edit.Width := CustomPage.SurfaceWidth div 2 - ScaleX(8); 
    Edit.Text := server; 
    Edit.Parent := CustomPage.Surface; 

Невозможно выяснить, что я делаю неправильно.

Answer 1

Может быть, часть моего кода поможет:

// The name of the virtual machine 
Edit1 := TEdit.Create(WizardForm); 
with Edit1 do 
begin 
    Parent  := Panel3; 
    Left  := ScaleX(Offset); 
    Top  := ScaleY(0*LineHeight) + ScaleY(5); 
    Width  := ScaleX(145); 
    Height  := LineHeight; 
    Text  := ''; 
    ShowHint := True; 
    Hint  := ExpandConstant('{cm:VBoxConfig1Hint}'); 
    TabOrder := 0; 
    OnExit  := @GetVM_Name; 
    OnKeyPress := @CheckEditInput; 
end; 

Отметьте OnExit !! этот кусок забыл про программировать.

Procedure GetVM_Name(Sender: TObject); 
// Get the machineName 
{} 
begin 
VirtualMachineName := AddQuotes(Edit1.Text); 
end; 

Чтобы избежать нежелательного ввода, создайте процедуру проверки. Пример выглядит так:

Procedure CheckEditInput(Sender: TObject; var Key: char); 
// This procedure checks if the character entered is a wanted one 
{} 
begin 
if (Key = '{') or (Key = '}') or (Key = '<') or (Key = '>') then 
    begin 
    Beep; 
    Key := #0; 
    end; 
if (Key = '[') or (Key = ']') or (Key = '`') or (Key = '~') then 
    begin 
    Beep; 
    Key := #0; 
    end; 
if (Key = '(') or (Key = ')') or (Key = '#') or (Key = '%') or (Key = '*') then 
    begin 
    Beep; 
    Key := #0; 
    end; 
if (Key = ';') or (Key = ':') or (Key = ',') or (Key = '?') or (Key = '@') then 
    begin 
    Beep; 
    Key := #0; 
    end; 
end;