ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
02.07.2009, 12:45
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
A_V
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
case (Sender as Tbutton).Tag of
1:ShowMessage((Sender as Tbutton).Caption);
2:ShowMessage((Sender as Tbutton).Caption);
end;
end;
за место ShowMessage твой код 1 или код 2 но свойство tag у Buton'ов установи заранее! и на вкладке events в обработчике событий поставь у баттонов этот обработчик!
|
|
|
02.07.2009, 13:03
|
|
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108
Репутация:
107
|
|
помойму вы меня не совсем поняли
сначала исполняется первая часть кода, а для продолжения надо нажать баттон 2 и тогда выполнится вторая
часть кода
|
|
|
|
02.07.2009, 13:09
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
он хочет вроде паузы в console application...
|
|
|
|
02.07.2009, 13:17
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
moder plz del this post
Последний раз редактировалось 0ldbi4; 02.07.2009 в 13:20..
|
|
|
|
02.07.2009, 13:19
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
B]A_V[/B]
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Sender as Tbutton).Tag=2 then
(Sender as Tbutton).Tag:=123;
begin
первая часть кода
end;
while (Sender as Tbutton).Tag<>123 do
begin
application.processmessage;
sleep(1000);
end;
end;
пропробуй но с wahil думаю не лучший вариант
p.s писал с кпк возможны ошибки |
|
|
|
02.07.2009, 13:30
|
|
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108
Репутация:
107
|
|
transserg
Спасибо, но все равно не то, что надо.
Попробую пойти другим путем.
|
|
|
|
02.07.2009, 15:00
|
|
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
Провел на форуме:
270228
Репутация:
70
|
|
Сообщение от A_V
помойму вы меня не совсем поняли
сначала исполняется первая часть кода, а для продолжения надо нажать баттон 2 и тогда выполнится вторая
часть кода
А что мешает создать две функции, выполнить сначала одну, а по нажатию батона2 выполнить вторую функцию...
О_о
|
|
|
|
05.07.2009, 08:16
|
|
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397
Репутация:
31
|
|
А какой функцией можно сделать, чтобы при нажатии на кнопку открывалась какая-либо папка? Заранее благодарен
|
|
|
|
05.07.2009, 13:00
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
как вариант winexec('explorer c:\windows',sw_show);
|
|
|
|
05.07.2009, 13:01
|
|
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
Провел на форуме:
270228
Репутация:
70
|
|
эээ...ShellExecute,WinExec, CreateProcess
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [n]-c0der](/avatars/avatar75882.jpg?1364923){kind=avatar}
![Аватар для [n]-c0der](/avatars/avatar75882.jpg?1369314){kind=avatar}
Похожие темы
Линейный вид
