Genau dort nervt mich diese wilde Platzierung von Methoden ganz besonders. Daher hab ich mir angewöhnt, nicht nur bei Properties immer nur eine Deklaration auf einmal zu machen, dann bleibt die Sucherei im Rahmen. Auch bei der automatischen Deklaration von Komponenten-Ereignissen (Aktionslisten, Buttons usw.) nervt die Sucherei. Mit meinem Sortierschema verschwende ich keine Zeit damit, die nächste Buttonklick-Methode zu finden oder erst einmal zum Anfang der
Unit springen zu müssen, um die nächste Methode mit Strg-Mausklick zu sehen. Dabei wäre es sicher irgendwie möglich, die Deklaration von Komponenten-Methoden und die entsprechenden Methoden, die man erzeugt, so anzuordnen, wie die Komponenten im Interface-Teil angeordnet sind:
Delphi-Quellcode:
TYPE
TFormMain = CLASS(TForm)
AktionsListe : TActionList;
AL_DB_Login : TAction;
AL_DB_Logout : TAction;
AL_DB_NewUser : TAction;
AL_DB_Close : TAction;
AL_ED_Append : TAction;
AL_ED_Delete : TAction;
AL_ED_Edit : TAction;
AL_ED_Post : TAction;
AL_ED_Cancel : TAction;
AL_ED_Open : TAction;
AL_ED_Save : TAction;
AL_ED_Print : TAction;
AL_ED_Find : TAction;
HauptMenu : TJvMainMenu;
HM_DB : TMenuItem;
HM_DB_Close : TMenuItem;
HM_DB_Login : TMenuItem;
HM_DB_Logout : TMenuItem;
HM_DB_NewUser : TMenuItem;
HM_DB_1 : TMenuItem;
HM_ED : TMenuItem;
HM_ED_Append : TMenuItem;
HM_ED_Delete : TMenuItem;
HM_ED_Edit : TMenuItem;
HM_ED_Post : TMenuItem;
HM_ED_Cancel : TMenuItem;
HM_ED_1 : TMenuItem;
HN_ED_Open : TMenuItem;
HM_ED_Save : TMenuItem;
HM_ED_Print : TMenuItem;
HM_ED_Find : TMenuItem;
StatBarMain : TJvStatusBar;
Panel_Navi : TPanel;
BitNavi_Append : TJvBitBtn;
BitNavi_Delete : TJvBitBtn;
BitNavi_Edit : TJvBitBtn;
BitNavi_Post : TJvBitBtn;
BitNavi_Cancel : TJvBitBtn;
BitNavi_Load : TJvBitBtn;
BitNavi_Save : TJvBitBtn;
BitNavi_Print : TJvBitBtn;
BitNavi_Find : TJvBitBtn;
BitNavi_Close : TJvBitBtn;
PgCtrl_Main : TJvPageControl;
TS_Zentrale : TTabSheet;
TS_Recherche : TTabSheet;
PgCtrl_Recherche : TJvPageControl;
TS_Recherchieren : TTabSheet;
TS_Kategorien : TTabSheet;
TS_Land : TTabSheet;
PgCtrl_Land : TJvPageControl;
TS_Kontinente : TTabSheet;
Panel_Kontinent : TPanel;
DBGrid_Kontinent : TJvDBGrid;
DBImg_Kontinent : TJvDBImage;
Panel_KontinentEdit : TPanel;
DBEd_Kontinent : TJvDBMaskEdit;
DBSpin_Kontinent_Flaeche : TJvDBSpinEdit;
DBSpin_Kontinent_Einwohner : TJvDBSpinEdit;
DBSpin_Kontinent_Dichte : TJvDBSpinEdit;
DBSpin_Kontinent_Laender : TJvDBSpinEdit;
DBRich_Kontinent : TJvDBRichEdit;
Lbl_Kontinent : TLabel;
Lbl_Kontinent_Flaeche : TLabel;
Lbl_Kontinent_Einwohner : TLabel;
Lbl_Kontinent_Dichte : TLabel;
Lbl_Kontinent_Laender : TLabel;
TS_Staaten : TTabSheet;
DBGrid_Staaten : TJvDBGrid;
Split_Staaten : TJvSplitter;
Panel_Staaten : TPanel;
DBEd_Staaten_Staat : TJvDBMaskEdit;
DBLU_Staaten_Waehrung : TJvDBLookupCombo;
DBLU_Staaten_Kontinent : TJvDBLookupCombo;
DBEd_Staaten_Hauptstadt : TJvDBMaskEdit;
DBEd_Staaten_Wiki : TJvDBMaskEdit;
DBSpin_Staaten_Einwohner : TJvDBSpinEdit;
DBEd_Staaten_KFZ : TJvDBMaskEdit;
DBEd_Staaten_Vorwahl : TJvDBMaskEdit;
DBEd_Staaten_TLD : TJvDBMaskEdit;
DBEd_Staaten_HDI : TJvDBMaskEdit;
DBEd_Staaten_Iso : TJvDBMaskEdit;
DBRich_Staaten : TJvDBRichEdit;
DBImg_Staaten_Wappen : TJvDBImage;
DBImg_Staaten_Flagge : TJvDBImage;
Lbl_Staaten_Staat : TLabel;
Lbl_Staaten_Kontinent : TLabel;
Lbl_Staaten_Waehrung : TLabel;
Lbl_Staaten_Hauptstadt : TLabel;
Lbl_Staaten_Wiki : TLabel;
Lbl_Staaten_Einwohner : TLabel;
Lbl_Staaten_KFZ : TLabel;
Lbl_Staaten_Vorwahl : TLabel;
Lbl_Staaten_TLD : TLabel;
Lbl_Staaten_HDI : TLabel;
Lbl_Staaten_Iso : TLabel;
TS_Waehrungen : TTabSheet;
DBGrid_Waehrung : TJvDBGrid;
Split_Waehrung : TJvSplitter;
Panel_Waehrung : TPanel;
DBEd_Waehr_Waehrung : TJvDBMaskEdit;
Lbl_Waehr_Waehrung : TLabel;
DBLU_Waehr_Einheit : TJvDBLookupCombo;
DBLU_Waehr_Einteilung : TJvDBLookupCombo;
DBLU_Waehr_Kuerzel : TJvDBMaskEdit;
DBDate_Waehr_Datum : TJvDBDateEdit;
TimeEd_Waehr_Zeit : TJvTimeEdit;
DBSpin_Waehr_Kurs : TJvDBSpinEdit;
DBLU_Waehr_Iso : TJvDBMaskEdit;
DBLU_Waehr_IsoNum : TJvDBMaskEdit;
Check_WaehrungPics : TCheckBox;
DBRich_Waehrung : TJvDBRichEdit;
Lbl_Waehr_Einheit : TLabel;
Lbl_Waehr_Einteilung : TLabel;
Lbl_Waehr_Kuerzel : TLabel;
Lbl_Waehr_Iso : TLabel;
Lbl_Waehr_IsoNum : TLabel;
Lbl_Waehr_Kurs : TLabel;
Lbl_Waehr_Datum : TLabel;
Lbl_Waehr_Zeit : TLabel;
TS_Kurse : TTabSheet;
TS_Optionen : TTabSheet;