диалоговые окна в API

← →
Dober_m@N (2003-01-07 07:23) [0]

Привет всем !!!
Как на API вызвать диалоговые окна: выбор цвета, выбор файла, и др. ?

← →
Song (2003-01-07 10:04) [1]

Нарисовать их сначала, потом вызвать.

← →
Groove_ (2003-01-07 14:31) [2]

А что, нельзя кинуть Opendialog1 или ColorDialog1 на форму и вызывать их??

← →
Чих-пых (2003-01-07 22:59) [3]

Посят же на API :-)

← →
Чих-пых (2003-01-07 22:59) [4]

Просят же на API :-)

← →
Александр Спелицин (2003-01-07 23:36) [5]

См. ChooseColor, GetOpenFileName, GetSaveFileName, PrintDlg, ...

← →
Evgeny (2003-01-08 05:07) [6]

Вот один из вариантов для одного такого диалога:

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;

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

← →
Dober_m@N (2003-01-09 02:50) [7]

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

← →
ещё вопрос!! (2003-01-09 04:10) [8]

почему никто неотвечает?

← →
Evgeny (2003-01-09 05:09) [9]

>почему никто неотвечает?

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

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

CommDlg

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

← →
Dober_m@N (2003-01-09 05:22) [10]

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

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

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

диалоговые окна в API Найти похожие ветки