두 개의 TEdit을 독점적으로 만들기

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

다음과 같은 KeyPress 이벤트

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