При клике курсором на едите не появляется фокус

← →
AIK © (2009-12-14 16:04) [0]

Создаю новое приложение и сразу же создаю ещё одну форму и кидаю на неё Edit
Подключаю вторую форму к первой и в обработчике на кнопке у первой формы пишу

Form2.Parent:= Form1; Form2.Show;

И эдит после этого не реагирует на клик левой клавиши мышки по нему, хотя правой клавишей мышки и нажатием клавиши таб я могу навести на неё фокус. Почему такое поведения и как исправить

← →
Медвежонок Пятачок © (2009-12-14 16:08) [1]

купил телевизор, и сразу вставил отвертку в ухо.
после этого включаю кривое зеркало, но звука нет.
помогите исправить поведение телевизора

ps пробовал вставлять пальцы в розетку, но не помогает.

← →
clickmaker © (2009-12-14 16:16) [2]

> Form2.Parent:= Form1;

а зачем это, если не секрет?

← →
AIK © (2009-12-14 16:17) [3]

чоб отобразить внутри первой формы

← →
oldman © (2009-12-14 16:22) [4]

> AIK © (14.12.09 16:17) [3]
> чоб отобразить внутри первой формы

То есть, для этого нужна Form2?
TPanel уже не катит?
И фокусы будут. И чудеса.

← →
AIK © (2009-12-14 16:22) [5]

> Медвежонок Пятачок © (14.12.09 16:08) [1]

Увеличь громкость и высунь отвертку из уха если ту не слышишь с одним ухом

← →
Медвежонок Пятачок © (2009-12-14 16:24) [6]

хотя правой клавишей мышки и нажатием клавиши таб я могу навести на неё фокус.

Вот правой и пользуйся.

← →
Игорь Шевченко © (2009-12-14 16:27) [7]

Фреймы рулез

← →
Игорь Шевченко © (2009-12-14 16:28) [8]

У тебя фокус попадает на форму, а не на эдит. Убери tabstop у формы для начала.

← →
AIK © (2009-12-14 16:44) [9]

> У тебя фокус попадает на форму

Эт я сразу понял, ведь он всё ещё остается на кнопке

> Убери tabstop у формы для начала.

А дальше.

← →
AIK © (2009-12-14 16:49) [10]

> oldman © (14.12.09 16:22) [4]
> То есть, для этого нужна Form2?
> TPanel уже не катит?
> И фокусы будут. И чудеса.

В принципе это тоже идея, но мне нужны кое какие события формы, а ручками много писать тоже не хотелось бы
И в конце концов как вариант можно потрудится сравнивая координаты курсора с едитом и далее наводить на неё фокус

Пока саммый оптималльный только это

procedure TForm2.Edit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Edit1.SetFocus; end;

Хотя писАть ещё надо
чтоб выделяла текст, меню правой мышки для текста

ну это же того стоит.
прямые же пути не для всех

> А дальше.

А дальше читай Тейксейру с Пачеко, как одну форму в другую встроить и будет тебе счастье.

Но лучше фреймы использовать для встраивания - они за этим и придуманы.

При клике курсором на едите не появляется фокус Найти похожие ветки