
13.01.2008, 15:03
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме: 1819358
Репутация:
75
|
|
объясню заново. запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно из Win32 PageControl. жму F9. появляется программа. если ее развернуть то оболочка программы разворачивается а PageControl остается на месте. как сделать так что бы оболочка программы с PageControl разворачивались и сворачивались синхронно?
zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?!
делаю так -
запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно стандартные- Label.
два щелчка и появляется этот текст-
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
end.
вставляю код zlOy'ва так-
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);
end;
end.
при нажатии F9 просто выделяется бордовым цветом код который указал zlOy'ва а внизу это-
[Ошибка] Unit1.pas(28): Undeclared identifier: 'ShellExecute'
[Фатальная Ошибка] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
|
|
|