delphi4arab منتديات دلفي للعرب

[FONT="Comic Sans MS"][COLOR="RoyalBlue"]السلام عليكم و رحمة الله تعالى و ركاته

الاخوة الا فاظـــــل ماهي الطريقة لكتابة الحرف الاول بالاحرف الكبيرة في Edit[/COLOR]

[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;

Anter2010

Anter2010