Kod: Tümünü seç
Procedure Edit1onKeyPress ......
const
CharSet = ['.','?','='];
Begin
if Key in Charset then key:=#0;
End;
charset te istemediğin tuşları yaz
if satırında istiyorsan mesaj verdir.
Kod: Tümünü seç
Procedure Edit1onKeyPress ......
const
CharSet = ['.','?','='];
Begin
if Key in Charset then key:=#0;
End;
Kod: Tümünü seç
procedure Tfrm_kayit.Button1Click(Sender: TObject);
var
fn: string;
begin
fn:=ExtractFilePath(Application.ExeName) ;
fn:=fn+'UyeResim\'+edt_tc.text+'.jpg';
Image1.Picture.SaveToFile(fn);
end;