26.01.2009, 10:49
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Form1 - наше окно
Form2 - окно авторизации
из первой - Form1.ShowModal;
и первая форма будет ждать, пока вторая не закроется
также на Form2 кнопкам можно присвоить ModalResult, тогда они будут закрывать форму (без всяких Close), а в первой форме мы будем знать какая кнопка была нажата во второй (Form2.ModalResult)
|
|
|
26.01.2009, 11:29
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
С нами:
10255414
Репутация:
151
|
|
Зачем 2 формы-то? Не проще посередине прям над объектами формы повесить либо фрейм с inputbox'ами, либо какой-нибудь groupbox с ними же. Ну а дальше, как и отписался народ выше, блочить всё, что нужно, пока не авторизуешься, а далее делать фрейму\групбоксу visible:=false...
|
|
|
|
26.01.2009, 14:27
|
|
Познающий
Регистрация: 06.03.2007
Сообщений: 59
С нами:
10095779
Репутация:
137
|
|
как можно передать какое либо значение пхп скрипту?
|
|
|
|
26.01.2009, 14:31
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
С нами:
10255414
Репутация:
151
|
|
К примеру, на форму idHTTP закинь (в инди клиентс ищи), в uses добавь IdMultipartFormData
далее
IdHTTP1.Post('http://bla-bla.ru/index.php', data)
где data: TIdMultiPartFormDataStream
в дату добавляем data.AddFormField('имя параметра','значение параметра')
|
|
|
|
26.01.2009, 14:39
|
|
Познающий
Регистрация: 06.03.2007
Сообщений: 59
С нами:
10095779
Репутация:
137
|
|
как это всё можно реализовать не используя формы?
|
|
|
|
26.01.2009, 15:15
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
С нами:
10255414
Репутация:
151
|
|
Ну, видимо, как-то так, если с инди...
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
IdHTTP,
IdComponent,
classes;
var
IdHTTP1: TIdHTTP;
Data: TStringList;
begin
Data := TStringList.Create;
IdHTTP1:= TIdHTTP.Create(nil);
{$R *.res}
Data.add('bla-bla');
IdHTTP1.Post('http://sait.ru' ,Data);
end.
Хотя, в сторону сокетов тоже глянуть можно  |
|
|
|
26.01.2009, 19:06
|
|
Познающий
Регистрация: 08.12.2007
Сообщений: 92
С нами:
9698030
Репутация:
35
|
|
подскажите)
Как прописать путь к файлу лежашим в 1ной папке с Проджект1?
(полный путь вида С:......../.... не подходит)
кто не понял)
у мну есть флеш аниме, и когда я в нем пишу путь к файлу он создает полный путь(с именем диска и папок) при етом если я переименую диск или 1 из папок флеш не находиться(((
Последний раз редактировалось DiSi; 26.01.2009 в 19:14..
|
|
|
|
26.01.2009, 20:08
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Сообщение от DiSi
подскажите)
Как прописать путь к файлу лежашим в 1ной папке с Проджект1?
(полный путь вида С:......../.... не подходит)
кто не понял)
у мну есть флеш аниме, и когда я в нем пишу путь к файлу он создает полный путь(с именем диска и папок) при етом если я переименую диск или 1 из папок флеш не находиться(((
Код:
ExtractFilePath(ParamStr(0))+'anime.swf'
|
|
|
|
27.01.2009, 16:08
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
С нами:
9785147
Репутация:
137
|
|
Здравствуйте, как выполнить через делфи нужную Dos команду, например я хочу выполнить как нее ковырялся с ShellExecute и WinExec не получается |
|
|
|
27.01.2009, 17:33
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
Сообщение от ZET36
Здравствуйте, как выполнить через делфи нужную Dos команду, например я хочу выполнить как нее ковырялся с ShellExecute и WinExec не получается ShellExecute(0, nil, 'mkdir', 'c:\111'. nil, sw_hide)
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
