|
Ну не знаю, как у тебя, я писал тоже самое, так:
if Edit1.Focused then
Edit1.Clear
else
Edit2.Clear
Потом пишу текст в обоих. Оставляю курсор в первом, менюшку правым кликом на лругом, выбираю очистить и чистится первый, а не второй.
Пока вышел так:
На них обоих сделал один обработчки попапа
procedure TForm1.EditContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
PopUper:=(Sender as TEdit) //Запоминаем, у кого выпало меню
end;
а потом в функции PopUper.Clear
Но это не красиво. Не может быть, чтобы так оно было криво.
|