-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...
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