ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
Страница 388 из 677 « Первая < 288338378 384 385 386 387 388 389 390 391 392 398438488 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #3871  
Старый 02.07.2009, 12:45
transserg
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284

Репутация: 52
Отправить сообщение для transserg с помощью ICQ
По умолчанию
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 в обработчике событий поставь у баттонов этот обработчик!
 

  #3872  
Старый 02.07.2009, 13:03
A_V
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108

Репутация: 107
По умолчанию
помойму вы меня не совсем поняли

сначала исполняется первая часть кода, а для продолжения надо нажать баттон 2 и тогда выполнится вторая
часть кода
 

  #3873  
Старый 02.07.2009, 13:09
0ldbi4
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699

Репутация: 69
По умолчанию
он хочет вроде паузы в console application...
 

  #3874  
Старый 02.07.2009, 13:17
0ldbi4
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699

Репутация: 69
По умолчанию
moder plz del this post
Последний раз редактировалось 0ldbi4; 02.07.2009 в 13:20..
 

  #3875  
Старый 02.07.2009, 13:19
transserg
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284

Репутация: 52
Отправить сообщение для transserg с помощью ICQ
По умолчанию
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 писал с кпк возможны ошибки
 

  #3876  
Старый 02.07.2009, 13:30
A_V
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108

Репутация: 107
По умолчанию
transserg
Спасибо, но все равно не то, что надо.

Попробую пойти другим путем.
 

  #3877  
Старый 02.07.2009, 15:00
[n]-c0der
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
Провел на форуме:
270228

Репутация: 70
По умолчанию
Цитата:
Сообщение от A_V  
помойму вы меня не совсем поняли

сначала исполняется первая часть кода, а для продолжения надо нажать баттон 2 и тогда выполнится вторая
часть кода
А что мешает создать две функции, выполнить сначала одну, а по нажатию батона2 выполнить вторую функцию...
О_о
 

  #3878  
Старый 05.07.2009, 08:16
_GlaD1aT(OR)_
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397

Репутация: 31
Отправить сообщение для _GlaD1aT(OR)_ с помощью ICQ
По умолчанию
А какой функцией можно сделать, чтобы при нажатии на кнопку открывалась какая-либо папка? Заранее благодарен
 

  #3879  
Старый 05.07.2009, 13:00
slesh
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


Отправить сообщение для slesh с помощью ICQ
По умолчанию
как вариант winexec('explorer c:\windows',sw_show);
 

  #3880  
Старый 05.07.2009, 13:01
[n]-c0der
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
Провел на форуме:
270228

Репутация: 70
По умолчанию
эээ...ShellExecute,WinExec, CreateProcess
 
 
Страница 388 из 677 « Первая < 288338378 384 385 386 387 388 389 390 391 392 398438488 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ