Объект ввода текста (edit) в Delphi 7

[Petr0101]

Функция получает информацию из объекта Standard-->Edit, если в объекте (Edit) не записана информация, то программа не корректно завершает работу.
Чтобы решить эту проблему можно воспользоваться следующим кодом:
…
var
nname: String;
begin
…
nname:=PAnsiChar(Edit.Text);
if nname<>' ' then
SetWindowText(FindWindow(nil, PAnsiChar(Edit1.Text)), PAnsiChar(NewName.Text));
…

Возможно выполнить подобную операцию в среде разработки программы, то есть настроить необходимым образом объект Edit?

 

[zubr]

Можно, если создать свой компонент-наследник компонента TEdit.