+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية ارغام Tedit على كتابة الحرف الاول بالاحرف الكبيرة (/showthread.php?tid=2864)
كيفية ارغام Tedit على كتابة الحرف الاول بالاحرف الكبيرة - Anter2010 - 04-03-2011
[FONT="Comic Sans MS"][COLOR="RoyalBlue"]السلام عليكم و رحمة الله تعالى و ركاته
الاخوة الا فاظـــــل ماهي الطريقة لكتابة الحرف الاول بالاحرف الكبيرة في Edit[/COLOR]
كيفية ارغام Tedit على كتابة الحرف الاول بالاحرف الكبيرة - Anter2010 - 04-03-2011
[color="royalblue"]السلام عليــــــــــكم و رحمة الله تعالى و بركاته
الاخوة الافـــــــــــاظل قد تم و بحمد الله حل المشــــكلة[/color]
كود :
procedure TForm1.Edit1Change(Sender: TObject);
var
OldChange: TNotifyEvent;
OldStart: Integer;
begin
with (Sender as TEdit) do
begin
OldChange := OnChange;
OnChange := nil;
OldStart := SelStart;
if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then
begin
SelStart := SelStart - 1;
SelLength := 1;
SelText := AnsiUpperCase(SelText);
end;
OnChange := OldChange;
SelStart := OldStart;
end;
end;