Вниз
Скачать: CL | DM;

Как изменить имя файла при изменении типа файла в TSaveDialog   Найти похожие ветки 

 
Роман К   (2004-04-12 22:50) [0]

Есть TSaveDialog. Можно ли так зделать, чтобы при изменении типа файла в комбобоксе "Тип файла" изменялось расширение файла в "Имя файла".


 
Германн ©   (2004-04-13 01:56) [1]

Вообще-то говоря, сей комбобокс скорее предназначен для фильтрации списка файлов в выбранном каталоге. А в "Имя файла" принято (© Microsoft) принято показывать только имя, без расширения.
Но кто или что мешает воспользоваться событием OnTypeChange?


 
Роман К   (2004-04-13 02:49) [2]


> Но кто или что мешает воспользоваться событием OnTypeChange?


К сожалению это не проходит, я пробовал так:

st:=ExtractFileName(SaveDialog.FileName);
st:=ChangeFileExt(st,".png");
SaveDialog.FileName:=st;


 
Германн ©   (2004-04-13 03:06) [3]

А кто заставил тебя использовать ExtractFileName ?
А ну как прочитать хэлп?

function ExtractFileName(const FileName: string): string;

Description

The resulting string is the rightmost characters of FileName, starting with the first character after the colon or backslash that separates the path information from the name and extension. The resulting string is equal to FileName if FileName contains no drive and directory parts.

А уж в SaveDialog.FileName и то и другое всегда есть!


 
Роман К   (2004-04-13 12:32) [4]

В любом случае строчка: SaveDialog.FileName:=st; не срабатывает.


 
PVOzerski ©   (2004-04-13 12:49) [5]

Я это когда-то делал. Через нахождение Child-окна и посылку туда соответствующего сообщения. Правда, тот проект не уверен, что быстро найду. Единственное полезное замечание: tOpenDialog.Handle - на самом деле не настоящий хэндл его окошка, а хэндл какого-то дочернего, так что надо искать от GetParent(OpenDialogN.Handle).



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

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



Память: 0.46 MB
Время: 0.02 c
1-1081798973
Nekto
2004-04-12 23:42
2004.05.02
Excel


7-1074852683
Evgeniy_K
2004-01-23 13:11
2004.05.02
Работа с устройствами


1-1081969022
VirusIP
2004-04-14 22:57
2004.05.02
Randomize


1-1081958684
WQSing
2004-04-14 20:04
2004.05.02
Oбработка события


7-1079423908
rezya
2004-03-16 10:58
2004.05.02
Убить Exploer




   Наверх