Arkadaşlar yaptığım ufak bir çalışmada cxDBEdit in cxDBTextEdit bölümüne procedure tanımlayıp aşakıdaki kodları yazarsak cxDBTextEdit nesnesinde her zaman büyük harf yazabilirsiniz. Hemde UpperCase modundaki gibi türkçe karakter sorunu yaşamadan. Belki işinize yarar... Kolay gelsin...
Eklenecek procedure başlığı
.
.
.
TcxDBTextEdit = class(TcxCustomTextEdit)
private
function GetActiveProperties: TcxTextEditProperties;
function GetDataBinding: TcxDBTextEditDataBinding;
function GetProperties: TcxTextEditProperties;
procedure SetDataBinding(Value: TcxDBTextEditDataBinding);
procedure KeyPress(var Key : Char); override; //// eklediğim procedure
procedure SetProperties(Value: TcxTextEditProperties);
procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
protected
.
.
.
////procedure ün kendisi
procedure TcxDBTextEdit.KeyPress(var Key : Char);
const
TabKey = Char(VK_TAB);
EnterKey = Char(VK_RETURN);
begin
Begin
Case chr(Ord(Key)) of
'a': Key := 'A'; 'b': Key := 'B';
'c': Key := 'C'; 'ç': Key := 'Ç';
'd': Key := 'D'; 'e': Key := 'E';
'f': Key := 'F'; 'g': Key := 'G';
'ğ': Key := 'Ğ'; 'h': Key := 'H';
'ı': Key := 'I'; 'i': Key := 'İ';
'j': Key := 'J'; 'k': Key := 'K';
'l': Key := 'L'; 'm': Key := 'M';
'n': Key := 'N'; 'o': Key := 'O';
'ö': Key := 'Ö'; 'p': Key := 'P';
'q': Key := 'Q'; 'r': Key := 'R';
's': Key := 'S'; 'ş': Key := 'Ş';
't': Key := 'T'; 'u': Key := 'U';
'ü': Key := 'Ü'; 'v': Key := 'V';
'w': Key := 'W'; 'x': Key := 'X';
'y': Key := 'Y'; 'z': Key := 'Z';
End;
End;
inherited KeyPress(Key);
end;