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

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

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

диалоговые окна в API [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

Dober_m@N © (2003-01-07 07:23:00)
Привет всем !!!
Как на API вызвать диалоговые окна: выбор цвета, выбор файла, и др. ?

Dober_m@N (2003-01-09 05:22:00) [1]
это легко находится поиском в каталоге исходников.

первым делом когда не захотел компилироваться я попробовал найти("слово или фраза в файле") в папке Delphi слово TChooseColor, но результатов не дало, почемуто.

Всё заработало - спасибо !!!

Evgeny (2003-01-09 05:09:00) [2]
>почему никто неотвечает?

Потому что ночью спросил

>при компиляции ругается на TChooseColor , какие модули надо подключать(в help не нашел) ?

CommDlg

это легко находится поиском в каталоге исходников.

ещё вопрос!! (2003-01-09 04:10:00) [3]
почему никто неотвечает?

Dober_m@N (2003-01-09 02:50:00) [4]
при компиляции ругается на TChooseColor , какие модули надо подключать(в help не нашел) ?

Evgeny (2003-01-08 05:07:00) [5]
Вот один из вариантов для одного такого диалога:

function TColorDialog.Execute(Parent : Integer) : Boolean;
var
cc : TChooseColor;
aColors : array[0..15] of Integer;
begin
FillChar(cc, SizeOf(cc), 0);
FillChar(aColors, SizeOf(aColors), 0);
with cc do
begin
lStructSize := SizeOf(cc);
hwndOwner := Parent;
rgbResult := Color;
lpCustColors:= @aColors;
Flags := CC_FULLOPEN + CC_RGBINIT
end;
Result := ChooseColor(cc);
Color := cc.rgbResult
end;

остальные диалоги вызываются примерно так же. Посмотри в справке там это имеется.

Александр Спелицин (2003-01-07 23:36:00) [6]
См. ChooseColor, GetOpenFileName, GetSaveFileName, PrintDlg, ...

Чих-пых (2003-01-07 22:59:00) [7]
Посят же на API :-)

Чих-пых (2003-01-07 22:59:00) [8]
Просят же на API :-)

Groove_ (2003-01-07 14:31:00) [9]
А что, нельзя кинуть Opendialog1 или ColorDialog1 на форму и вызывать их??

Song (2003-01-07 10:04:00) [10]
Нарисовать их сначала, потом вызвать.

Наверх

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