Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
30.05.2008, 23:23
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
И ещё один вопрос, есть компоненты: ComboBox1, Edit1 и рядом с программой лежит файл config.ini
В этом файле информация расположенна так:
line1=text1
line2=text2
line3=text3
Как сделать так, чтобы в ComboBox1 появились линии с названием line1, line2, line3. и при выборе скажем line2 в поле Edit1 появлялся текст text2
???
|
|
|
31.05.2008, 00:53
|
|
HARDstasy
Регистрация: 26.11.2004
Сообщений: 1,367
Провел на форуме:
4226592
Репутация:
2175
|
|
нужно установить такие свойства объекта
skinnfile = path to skinfile
active = true
builtin = true
|
|
|
|
31.05.2008, 01:42
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
Сообщение от xaker-boss
Кто знает как программно нажать на кнопку 'Enter' ?
Если незатруднит напишите кодом, плиз
можно так:
Код:
procedure _Click(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;
использование:
procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(nil,'Form1');
_Click(h,'Enter');
end;
//Ищет окно с заголовком Form1 и нажимает в нем на кнопку с кепшном Enter =)
|
|
|
|
31.05.2008, 01:53
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
2 Nighware
Там просто ошибка! Надо : SetWindowRGN))) А пользоваться так:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile('C:\2.bmp');
SetWindowRGN(Form1.Handle, BitmapToRegion(bmp,clwhite), True);
finally
Bmp.Free;
end;
end;
|
|
|
|
31.05.2008, 19:56
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от Nightmarе
И ещё один вопрос, есть компоненты: ComboBox1, Edit1 и рядом с программой лежит файл config.ini
В этом файле информация расположенна так:
line1=text1
line2=text2
line3=text3
Как сделать так, чтобы в ComboBox1 появились линии с названием line1, line2, line3. и при выборе скажем line2 в поле Edit1 появлялся текст text2
???
Кто нить плз помогите уже 3 день ничё в голову не лезет!!!
|
|
|
|
31.05.2008, 20:04
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
config.ini :
PHP код:
[Combo1]
line1=line
[Combo2]
line2=line
[Combo3]
line3=line
и сам код в OnCreate кинь
PHP код:
var
Ini: Tinifile;
begin
Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'config.ini');
ComboBox1.Text := ini.ReadString('Combo1','line1',Combobox1.Text);
ComboBox2.Text := ini.ReadString('Combo2','line2',Combobox2.Text);
ComboBox3.Text := ini.ReadString('Combo3','line3',Combobox3.Text);
end;
// писал прямо в формочке на форуме |
|
|
|
31.05.2008, 20:19
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от LEE_ROY
config.ini :
// писал прямо в формочке на форуме
Опять не то, программа изначально знает название line2 и уже по нему получает параметр принадлежащий line2.
А мне нужно чтобы программа получала неизвестный список:
line1
line2
line3
(на этом месте могут быть любые слова)
и уже получив их пихнула в один ComboBox, а при выборе из ComboBox какой нить линии уже в поле edit шло значение этой линии.
То есть в тексте такая инфа:
?=?
?=?
?=?
И то и другое неизвестно.
Можно использовать и такой вид:
[Combo1]
?=?
[Combo2]
?=?
[Combo3]
?=?
Где Combo1, Combo2, Combo3 уже известны(но количество линий в файле может быть любым), но то что под вопросом не известно программе.
В любом случае спасибо за помощь!!!
...
ВСЁ! Спасибо мне помогли!!!
Последний раз редактировалось begin_end; 01.06.2008 в 23:07..
|
|
|
|
01.06.2008, 06:54
|
|
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
[Combo1]
Count=2
Combo0=aaa
Combo1=aaa
Combo2=aaa
Считываешь параметр Count и потом в цикле все остальное ..
|
|
|
|
01.06.2008, 13:10
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
procedure TForm1.Button1Click(Sender: TObject);
var nitem,n:integer;
begin
idsmtp1.Host:='smtp.mail.ru';
idsmtp1.port:= 25;
idsmtp1.Username:='anti.killer';
idsmtp1.Password:='*****';
idmessage1.From.address:='anti.killer@mail.ru';
idmessage1.body.text:='asdasd';
idmessage1.Subject:='asdasd';
nitem:=listbox1.ItemIndex;
nitem := 0 to 2 do
idmessage1.Recipients.Add.address:=listbox1.Items[nitem];
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
showmessage('send');
inc(nitem);
idsmtp1.Disconnect();
end;
у меня такой код.когда я добовляю три майла в listbox отсылает на все три потому что стоит значение nitem := 0 to 2 do добовляю 4 емайла вызалиет ошибка как сделать чтоб при добовление строк добовлялось в значение nitem := 0 to сюда
Последний раз редактировалось /Boom\; 12.06.2008 в 00:35..
|
|
|
|
01.06.2008, 13:30
|
|
Участник форума
Регистрация: 11.05.2007
Сообщений: 149
Провел на форуме:
6373157
Репутация:
247
|
|
Nitem := 0 to listbox1.items.count do
Как то так попробуй
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
