Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вывод пути в TEdit и блокировка Button. [D7, Win95/98]

an-na2002 © (2004-06-16 07:06:00)
Помогите изменить procedure:
with TOpenDialog.Create(nil) do
try
FileName := Edit1.Text;
if Execute then Edit1.Text := FileName
finally
Free
чтобы она вставляла в TEdit только имя директории.
И как заблокировать Button пока не введено в TEdit имя файла c расширением?

clickmaker (2004-06-16 11:00:00) [1]

> an-na2002 (16.06.04 10:58) [8]

не надо никаких if.
Button.Enabled := (ExtractFileExt(Edit1.Text) <> '');

an-na2002 (2004-06-16 10:58:00) [2]
Я сделал:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if ExtractFileExt(Edit1.Text) <> '' then BitBtn2.Enabled :=true;
end;
BitBtn появляется при написании . а когда точку стираешь BitBtn не исчезает.

clickmaker (2004-06-16 10:46:00) [3]

> an-na2002 (16.06.04 10:44) [6]

Тебе же все написали уже. [4]

an-na2002 (2004-06-16 10:44:00) [4]
А как сделать чтобы кнопка реагилровала на стирание расширения файла ?

Плохиш (2004-06-16 10:31:00) [5]
Судя по вопросу, надо добавить FileExist :-)

clickmaker (2004-06-16 10:21:00) [6]

> И как заблокировать Button пока не введено в TEdit имя файла
> c расширением?

Edit.OnChange

if Button.Enabled := (ExtractFileExt(Edit1.Text) <> '');

R (2004-06-16 08:59:00) [7]
Задавайте пожалуйста вопрос корректно
что значит быть с раширением

an-na2002 (2004-06-16 08:29:00) [8]
А как быть с расширением

R (2004-06-16 07:39:00) [9]
1
function ExtractFileDir(const FileName: string): string;
2 Enabled:=False/True

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »