使兩個TEdits獨佔

Question

我有兩個TEdit框用於指定文件路徑，一個用於UNC路徑，另一個用於本地路徑。但是，如果用戶只能在一個框中輸入文本，我希望它。如果他們在一個框中輸入文本，則應該清除另一個文本。我應該如何去做這件事？此外，不知道我是否應該使用OnEnter，OnChange或其他方法。

Answer 1

你可以很簡單地做到這一點。創建一個OnChange處理程序，並使用Object Inspector的Events選項卡將其分配給兩個TEdits。然後你可以使用類似如下的東西：

procedure TForm1.EditChanged(Sender: TObject); //Sender is the edit being changed 
begin 
    if Sender = UNCEdit then // If it's is the UNCEdit being changed 
    begin 
    LocalPathEdit.OnChange := nil;   // Prevent recursive calling! 
    LocalPathEdit.Text := '';     // Clear the text 
    LocalPathEdit.OnChange := EditChanged; // Restore the event handler 
    end; 
    else 
    begin 
    UNCEdit.OnChange := nil; 
    UNCEdit.Text := ''; 
    UNCEdit.OnChange := EditChanged; 
    end; 
end; 

這可以簡化一點，但它不像其他人那樣可讀。它也可以通過try..finally進行保護，儘管只是簡單地清除編輯的文本內容，但它並不是真的需要。

procedure TForm1.EditChanged(Sender: TObject); 
var 
    TmpEdit: TEdit; 
begin 
    if Sender = UNCEdit then 
    TmpEdit := LocalPathEdit 
    else 
    TmpEdit := UNCEdit; 
    TmpEdit.OnChange := nil; 
    try 
    TmpEdit.Text := ''; 
    finally 
    TmpEdit.OnChange := EditChanged; 
    end; 
end; 

Answer 2

如果你想保留兩個編輯框，這是我將如何做到這一點。

procedure TForm1.Edit1Exit(Sender: TObject); 
begin 
    if (Edit1.text <> '') then 
    Edit2.text:= ''; 
end; 

procedure TForm1.Edit2Exit(Sender: TObject); 
begin 
    if (Edit2.text <> '') then 
    Edit1.text:= ''; 
end; 

您希望進行值檢查，以便在用戶選項卡通過字段時不會意外擦除值。

Answer 3

你可以大鉤編輯框下面的按鍵響應事件

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    If Sender = Edit1 then 
    Edit2.clear 
    else 
    if Sender = Edit2 then 
    Edit1.clear; 
end;