Enes KÖROĞLU

The IDE supports since Delphi 2005 code folding of marked regions. {$REGION 'Hidden Code'} Beep; Beep; Beep; {$ENDREGION} folds down to just Hidden Code in the IDE editor window. Source:  http://www.tindex.net/Language/$REGION.html Kodlarınızda aşağıdaki gibi REGION tanımlarınızı yaptığınızdaki o kodu açtığınızda ikince resimdeki gibi yaptığınız tanımlar gözükecek istediğin iz kodu açıp inceleyebilirsiniz bu şekilde daha temiz bir görüntü elde etmiş olacaksınız. İkinci resimdeki görüntü geçen gün gönderdiğim More Coding in Delphi kitabında bahsedilen Spring framework’ünün sourcelarından alınmıştır.

Aşağıdaki kodla MRUEdit gibi cxLookupCombobox’a button ekleyip, butonlara da kendi yazdığınız ya da herhangi bir OnButtonClick event’ini bağlayabilirsiniz. Event’de AbuttonIndex kontrolü yapmazsanız LookupCombobox’ın standart butonu içinde –Liste açıkken tıklarsanız- yazacağınız kod çalışıyor. –Başka bir amaç için ihtiyacaç olabilir- type TcxCustomEditPropertiesAccess = class(TcxCustomEditProperties); ... TcxCustomEditPropertiesAccess(cmb_Park_Group.Properties).OnButtonClick := myPropertiesButtonClick; //event bağla with TcxCustomEditPropertiesAccess(cmb_Park_Group.Properties).Buttons.Add do begin Kind := bkEllipsis; LeftAlignment := True;  //Butonları sol tarafa alır end; procedure TForm1.myPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin if AButtonIndex = 1 then begin ShowMessage('TEST'); end;