Вывод пути в TEdit и блокировка Button.

← →
an-na2002 (2004-06-16 07:06) [0]

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

← →
R © (2004-06-16 07:39) [1]

1
function ExtractFileDir(const FileName: string): string;
2 Enabled:=False/True

← →
an-na2002 (2004-06-16 08:29) [2]

А как быть с расширением

← →
R © (2004-06-16 08:59) [3]

Задавайте пожалуйста вопрос корректно
что значит быть с раширением

← →
clickmaker © (2004-06-16 10:21) [4]

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

Edit.OnChange

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

← →
Плохиш © (2004-06-16 10:31) [5]

Судя по вопросу, надо добавить FileExist :-)

← →
an-na2002 (2004-06-16 10:44) [6]

А как сделать чтобы кнопка реагилровала на стирание расширения файла ?

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

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

← →
an-na2002 (2004-06-16 10:58) [8]

Я сделал:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if ExtractFileExt(Edit1.Text) <> "" then BitBtn2.Enabled :=true;
end;
BitBtn появляется при написании . а когда точку стираешь BitBtn не исчезает.

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

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

Вывод пути в TEdit и блокировка Button. Найти похожие ветки