Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Перезагрузить страницу Примеры быдлокода, или как не нужно писать программы
Регистрация

Восстановить пароль		 Повторная активизация e-mail
Регистрация Задать
вопрос		 Заплачу
за решение		 Новые
сообщения 		Сообщения
за день 		Расширенный
поиск		 Правила Всё
прочитано

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
Страница 6 из 7 « Первая 2345 6 7
 
Опции темы Поиск в этой теме
Старый 18.06.2018, 22:50   #51
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию
Ну имена типа Button42 обычно давать не стоит (разве что это калькулятор), поэтому нужен.
+ поиск медленнее
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 18.06.2018, 23:02   #52
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию
Цитата:
Сообщение от type_Oleg Посмотреть сообщение
PS А может быть, если программирование уже искусство, то в нем появляется такой особый стиль, как нарочитая примитивность. Типа, как пирожки в поэзии.
Есть нечто похожее. Например, для языка C проводятся подобные конкурсы

Цитата:
Сообщение от JUDAS Посмотреть сообщение
Сам сайт на который ссылка - написана говнокодером
Интересно, он по этой причине сейчас не работает?

Цитата:
Сообщение от JUDAS Посмотреть сообщение
Вброс это когда тема называется "Что лучше С++ или Паскаль",
Это называется "холивар". ИМХО, вброс - это размещения какого-либо провокационного утверждения.


Цитата:
Сообщение от JUDAS Посмотреть сообщение
Досталось от пенсионера
ИМХО, нехорошо смеяться над пенсионерами.
Вадим Мошев вне форума Ответить с цитированием
Старый 18.06.2018, 23:11   #53
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию
Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Ну имена типа Button42 обычно давать не стоит (разве что это калькулятор), поэтому нужен.
Ладно, а как насчёт того, чтобы разместить все эти десять кнопок на какой-то панели, и, если у них имена не типа button42, а не однотипные, написать такой код
Код:
for i:=0 to panel1.componentsCount - 1 do begin
	(panel1.component[i] as TButton).enabled := (i <= cn);
end;
А чё табуляция длинной не два пробела?
Вадим Мошев вне форума Ответить с цитированием
Старый 18.06.2018, 23:29   #54
MihalNik
МегаМодератор
СуперМодератор
 
Регистрация: 27.11.2012
Сообщений: 5,657
По умолчанию
Там скорее всего, строго последовательный переключатель и цикл не нужен.
Благими намерениями устлана дорога на programmersforum.ru
Последний раз редактировалось MihalNik; 18.06.2018 в 23:33.
MihalNik вне форума Ответить с цитированием
Старый 18.06.2018, 23:34   #55
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию
Как это будет выглядеть?
Вадим Мошев вне форума Ответить с цитированием
Старый 18.06.2018, 23:58   #56
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию
Код:
b1.enabled:=(cn>0);
b2.enabled:=(cn>1);
b3.enabled:=(cn>2);
b4.enabled:=(cn>3);
b5.enabled:=(cn>4);
b6.enabled:=(cn>5);
b7.enabled:=(cn>6);
b8.enabled:=(cn>7);
b9.enabled:=(cn>8);
b10.enabled:=(cn>9);
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 19.06.2018, 00:33   #57
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию
Это шутка?
Вадим Мошев вне форума Ответить с цитированием
Старый 19.06.2018, 02:52   #58
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию
Цитата:
Сообщение от Вадим Мошев Посмотреть сообщение
Это шутка?
Нет, лень уровня EPIC.
Код:
 
type 
  TForm1 = class(TForm) 
    OpenDialog1: TOpenDialog; 
    Panel1: TPanel; 
    StatusBar1: TStatusBar; 
    btn_DumpFile: TBitBtn; 
    PageControl1: TPageControl; 
    TabSheet1: TTabSheet; 
    TabSheet2: TTabSheet; 
    TabSheet3: TTabSheet; 
    TabSheet4: TTabSheet; 
    TabSheet5: TTabSheet; 
    TabSheet6: TTabSheet; 
    Edit_FileName: TEdit; 
    Panel_Header: TPanel; 
    Panel_OptionalHeader: TPanel; 
    lv_Directory: TListView; 
    Panel6: TPanel; 
    TreeView1: TTreeView; 
    StaticText_1: TStaticText; 
    StaticText_2: TStaticText; 
    StaticText_3: TStaticText; 
    StaticText_4: TStaticText; 
    StaticText_5: TStaticText; 
    Bevel1: TBevel; 
    Bevel2: TBevel; 
    StaticText_6: TStaticText; 
    StaticText_7: TStaticText; 
    StaticText_8: TStaticText; 
    Bevel4: TBevel; 
    Edit_1: TEdit; 
    Edit_2: TEdit; 
    Edit_3: TEdit; 
    Edit_4: TEdit; 
    Edit_5: TEdit; 
    Edit_6: TEdit; 
    Edit_7: TEdit; 
    Edit_8: TEdit; 
    GroupBox1: TGroupBox; 
    StaticText_9: TStaticText; 
    Edit_9: TEdit; 
    Bevel6: TBevel; 
    StaticText10: TStaticText; 
    cb_file_1: TCheckBox; 
    cb_file_2: TCheckBox; 
    cb_file_11: TCheckBox; 
    cb_file_12: TCheckBox; 
    cb_file_13: TCheckBox; 
    cb_file_14: TCheckBox; 
    cb_file_3: TCheckBox; 
    cb_file_4: TCheckBox; 
    cb_file_5: TCheckBox; 
    cb_file_15: TCheckBox; 
    cb_file_6: TCheckBox; 
    cb_file_8: TCheckBox; 
    cb_file_7: TCheckBox; 
    cb_file_9: TCheckBox; 
    cb_file_10: TCheckBox; 
    btn_OpenFile: TBitBtn; 
    Shape1: TShape; 
    StaticText0: TStaticText; 
    Bevel7: TBevel; 
    StaticText11: TStaticText; 
    SaveDialog1: TSaveDialog; 
    Bevel8: TBevel; 
    StaticText_10: TStaticText; 
    Edit_10: TEdit; 
    StaticText_24: TStaticText; 
    StaticText_23: TStaticText; 
    StaticText_25: TStaticText; 
    StaticText_13: TStaticText; 
    Edit_13: TEdit; 
    Edit_25: TEdit; 
    Edit_23: TEdit; 
    Edit_24: TEdit; 
    StaticText_28: TStaticText; 
    StaticText_29: TStaticText; 
    StaticText_30: TStaticText; 
    StaticText_11: TStaticText; 
    Edit_11: TEdit; 
    Edit_28: TEdit; 
    Edit_29: TEdit; 
    Edit_30: TEdit; 
    Bevel12: TBevel; 
    StaticText_26: TStaticText; 
    Edit_26: TEdit; 
    StaticText_27: TStaticText; 
    Edit_27: TEdit; 
    StaticText_31: TStaticText; 
    Edit_31: TEdit; 
    StaticText_12: TStaticText; 
    Edit_12: TEdit; 
    StaticText_14: TStaticText; 
    Edit_14: TEdit; 
    StaticText_15: TStaticText; 
    Edit_15: TEdit; 
    StaticText_16: TStaticText; 
    Edit_16: TEdit; 
    StaticText_17: TStaticText; 
    Edit_17: TEdit; 
    StaticText_18: TStaticText; 
    Edit_18: TEdit; 
    StaticText_34: TStaticText; 
    Edit_34: TEdit; 
    StaticText_35: TStaticText; 
    Edit_35: TEdit; 
    StaticText_19: TStaticText; 
    Edit_19: TEdit; 
    StaticText_20: TStaticText; 
    Edit_20: TEdit; 
    StaticText_22: TStaticText; 
    Edit_22: TEdit; 
    StaticText_21: TStaticText; 
    Edit_21: TEdit; 
    StaticText_33: TStaticText; 
    Edit_33: TEdit; 
    StaticText_32: TStaticText; 
    Edit_32: TEdit; 
    Panel4: TPanel; 
    pc_Section: TPageControl; 
    TabSheet0: TTabSheet; 
    StaticText38: TStaticText; 
    Edit1: TEdit; 
    StaticText39: TStaticText; 
    Edit2: TEdit; 
    Edit3: TEdit; 
    StaticText40: TStaticText; 
    StaticText41: TStaticText; 
    StaticText42: TStaticText; 
    StaticText43: TStaticText; 
    StaticText44: TStaticText; 
    StaticText46: TStaticText; 
    StaticText47: TStaticText; 
    StaticText45: TStaticText; 
    Edit9: TEdit; 
    Edit8: TEdit; 
    Edit7: TEdit; 
    Edit10: TEdit; 
    Edit5: TEdit; 
    Edit6: TEdit; 
    Edit4: TEdit; 
    GroupBox2: TGroupBox; 
    CheckBox1: TCheckBox; 
    CheckBox2: TCheckBox; 
    CheckBox3: TCheckBox; 
    CheckBox4: TCheckBox; 
    CheckBox5: TCheckBox; 
    CheckBox6: TCheckBox; 
    CheckBox7: TCheckBox; 
    CheckBox8: TCheckBox; 
    CheckBox9: TCheckBox; 
    CheckBox10: TCheckBox; 
    CheckBox11: TCheckBox; 
    CheckBox12: TCheckBox; 
    CheckBox13: TCheckBox; 
    CheckBox14: TCheckBox; 
    Bevel3: TBevel; 
    StaticText_39: TStaticText; 
    Edit_39: TEdit; 
    StaticText_40: TStaticText; 
    Edit_40: TEdit; 
    StaticText_41: TStaticText; 
    Edit_41: TEdit; 
    StaticText_37: TStaticText; 
    Edit_37: TEdit; 
    StaticText_38: TStaticText; 
    Edit_38: TEdit; 
    StaticText_36: TStaticText; 
    Edit_36: TEdit; 
    Bevel5: TBevel; 
    ProgressBar1: TProgressBar; 
    PopupMenu1: TPopupMenu; 
    E1: TMenuItem; 
    C1: TMenuItem; 
    ProductName: TLabel; 
    ProgramIcon: TImage; 
    Copyright: TLabel; 
    Version: TLabel; 
    lblOs: TLabel; 
    lblMemory: TLabel; 
    lb_email: TLabel; 
    lb_HomePage: TLabel; 
    homepage: TLabel; 
    email: TLabel; 
    Bevel9: TBevel; 
    Bevel10: TBevel; 
    Label1: TLabel; 
    Timer1: TTimer; 
    Label2: TLabel; 
    StaticText54: TStaticText; 
    btn_OutText: TBitBtn; 
    TreeView2: TTreeView; 
    F1: TMenuItem; 
    procedure btn_DumpFileClick(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure btn_OpenFileClick(Sender: TObject); 
    procedure btn_OutTextClick(Sender: TObject); 
    procedure StatusBar1DrawPanel(StatusBar: TStatusBar; 
      Panel: TStatusPanel; const Rect: TRect); 
    procedure TreePop1Click(Sender: TObject); 
    procedure ServiceClick(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure PageControl1Change(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
    procedure TreeView1DblClick(Sender: TObject); 
    procedure PopupMenu1Popup(Sender: TObject); 
    procedure F1Click(Sender: TObject); 
  private 
    Dumped:Boolean; 
    procedure WMDropFiles(var Msg:TWMDropFiles); message WM_DROPFILES; 
    procedure ResetForm; 
    procedure AddInfoToListView(ListView: TListView; Info1, Info2, Info3, 
      Info4, Info5: String); 
    procedure CheckFileCharacteristics(Value:Cardinal); 
    function CheckFileMachine(Value: Cardinal): String; 
    function AddValue(W: Byte; Value: Cardinal): String; 
    procedure CreateSectionTabSheet(SectionIndex:Integer; title: String; 
      info1, info2, info3, info4, info5, 
      info6, info7, info8, info9, info10: Cardinal); 
    procedure DoPEDump(FileName:String); 
    procedure GetBuildInfo; 
    procedure GetMemoryInfo; 
    procedure GetOSInfo; 
    function CheckResourceType(W: Byte): String; 
    function GetShortcutTarget(ShortcutFilename: String): String; 
    { Private declarations } 
  public 
    { Public declarations } 
  end;
Код какого-то китайца. Застрелиться можно.
Последний раз редактировалось Человек_Борща; 19.06.2018 в 02:58.
Человек_Борща вне форума Ответить с цитированием
Старый 19.06.2018, 07:09   #59
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,814
По умолчанию
вот у меня похожее что-то. делал игрушку лет 7 назад - 100 панелей и 100 процедур к ним
Код:
type TForm1=class(TForm)
     Timer1:TTimer;
     N1:TMenuItem;
     N2:TMenuItem;
     Panel1:TPanel;
     Panel2:TPanel;
     Panel3:TPanel;
     Panel4:TPanel;
     Panel5:TPanel;
     Panel6:TPanel;
     Panel7:TPanel;
     Panel8:TPanel;
     Panel9:TPanel;
     Panel10:TPanel;
     Panel11:TPanel;
     Panel12:TPanel;
     Panel13:TPanel;
     Panel14:TPanel;
     Panel15:TPanel;
     Panel16:TPanel;
     Panel17:TPanel;
     Panel18:TPanel;
     Panel19:TPanel;
     Panel20:TPanel;
     Panel21:TPanel;
     Panel22:TPanel;
     Panel23:TPanel;
     Panel24:TPanel;
     Panel25:TPanel;
     Panel26:TPanel;
     Panel27:TPanel;
     Panel28:TPanel;
     Panel29:TPanel;
     Panel30:TPanel;
     Panel31:TPanel;
     Panel32:TPanel;
     Panel33:TPanel;
     Panel34:TPanel;
     Panel35:TPanel;
     Panel36:TPanel;
     Panel37:TPanel;
     Panel38:TPanel;
     Panel39:TPanel;
     Panel40:TPanel;
     Panel41:TPanel;
     Panel42:TPanel;
     Panel43:TPanel;
     Panel44:TPanel;
     Panel45:TPanel;
     Panel46:TPanel;
     Panel47:TPanel;
     Panel48:TPanel;
     Panel49:TPanel;
     Panel50:TPanel;
     Panel51:TPanel;
     Panel52:TPanel;
     Panel53:TPanel;
     Panel54:TPanel;
     Panel55:TPanel;
     Panel56:TPanel;
     Panel57:TPanel;
     Panel58:TPanel;
     Panel59:TPanel;
     Panel60:TPanel;
     Panel71:TPanel;
     Panel72:TPanel;
     Panel73:TPanel;
     Panel74:TPanel;
     Panel75:TPanel;
     Panel76:TPanel;
     Panel77:TPanel;
     Panel78:TPanel;
     Panel79:TPanel;
     Panel80:TPanel;
     Panel81:TPanel;
     Panel82:TPanel;
     Panel83:TPanel;
     Panel84:TPanel;
     Panel85:TPanel;
     Panel86:TPanel;
     Panel87:TPanel;
     Panel88:TPanel;
     Panel89:TPanel;
     Panel90:TPanel;
     Panel91:TPanel;
     Panel92:TPanel;
     Panel93:TPanel;
     Panel94:TPanel;
     Panel95:TPanel;
     Panel96:TPanel;
     Panel97:TPanel;
     Panel98:TPanel;
     Panel99:TPanel;
     Panel100:TPanel;
     MainMenu1:TMainMenu;
     procedure Timer1Timer(Sender:TObject);
     procedure N1Click(Sender:TObject);
     procedure N2Click(Sender:TObject);
     procedure FormKeyPress(Sender:TObject;var Key:Char);
     procedure FormCreate(Sender:TObject);
     procedure FormKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
     procedure New;
     procedure NumBut(Button:TMouseButton);
     procedure Proverka;
     procedure Nadpis(num:Integer;par:Byte);
     procedure Panel1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel2MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel3MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel4MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel5MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel6MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel7MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel8MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel9MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel10MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel11MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel12MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel13MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel14MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel15MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel16MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel17MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel18MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel19MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel20MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel21MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel22MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel23MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel24MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel25MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel26MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel27MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel28MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel29MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel30MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel31MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel32MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 19.06.2018, 07:09   #60
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,814
По умолчанию
продолжение
Код:
Panel33MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel34MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel35MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel36MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel37MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel38MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel39MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel40MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel41MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel42MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel43MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel44MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel45MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel46MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel47MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel48MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel49MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel50MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel51MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel52MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel53MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel54MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel55MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel56MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel57MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel58MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel59MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel60MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel61MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel62MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel63MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel64MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel65MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel66MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel67MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel68MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel69MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel70MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel71MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel72MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel73MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel74MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel75MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel76MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel77MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel78MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel79MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel80MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel81MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel82MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel83MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel84MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel85MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel86MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel87MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel88MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel89MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel90MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel91MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel92MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel93MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel94MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel95MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel96MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel97MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel98MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel99MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     procedure Panel100MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
     private{Private declarations}
     public{Public declarations}
end;
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Ответ
Страница 6 из 7 « Первая 2345 6 7


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Посоветуйте редактор текста или как его писать maloun Общие вопросы Delphi 7 17.09.2014 17:14
Написание парсера или грабера на php, как писать? timeStoper PHP 4 09.05.2013 16:21
Как писать программы на Лиспе? MrBrain Помощь студентам 0 16.10.2011 21:30
Какие программы нужно установить чтобы писать программы для телефонов nokia Кристинка89 Общие вопросы по Java, Java SE, Kotlin 2 17.02.2011 15:15
Метод Монте-Карло литература или примеры программ на С++ или С MIKI Помощь студентам 2 09.12.2008 13:33

Реклама на форуме - Обратная связь - Правила - Исходники Delphi - Справочник Delphi - Архив - Вверх