Huruf Awal Besar ( Kapital ) pada EditBox [Delphi]

Bagaimana membuat huruf awal pada EditBox didelphi. ini lah codingnya.
-Buat Prosedure 

procedure HurufAwalBesar(sender:TObject);
var
  Perubahan : TNotifyEvent; //mengeset variabel yang dibutuhkan
  Awal: Integer;
begin
  with (Sender as TEdit) do
    begin
      Perubahan := OnChange; //assign var sebelumUp seperti onChange
      OnChange := nil;
      Awal := SelStart;
      if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then
        begin
          SelStart := SelStart - 1;
          SelLength := 1;
          //menjadikan karakter pertama menjadi upperCase
          SelText := AnsiUpperCase (SelText); 
        end;
      OnChange := Perubahan;
      SelStart := Awal;
    end;
end;
 
-Penggunaannya,simpan pada event OnChange di EditBox

procedure TForm1.Edit1Change(Sender: TObject);
begin
HurufAwalBesar(Sender);
end;

Sekian dan Terima kasih..

Title : Huruf Awal Besar ( Kapital ) pada EditBox [Delphi]
Description : Bagaimana membuat huruf awal pada EditBox didelphi. ini lah codingnya. -Buat Prosedure  procedure HurufAwalBesar(sender:TObject); var P...

0 Response to "Huruf Awal Besar ( Kapital ) pada EditBox [Delphi]"

Posting Komentar