Скачать: CL | DM;

Вывод пути в 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]

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

---

← →
clickmaker ©   (2004-06-16 10:46) [7]

> 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 не исчезает.

---

← →
clickmaker ©   (2004-06-16 11:00) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c