sanal klavye

[cagyus]

herkese slm öncelikle ben yeni kaıt oldum.arkadaşlardan isteğim "sanal klavye programı"bilen varsa yardımına ihtiyacım var

[lazio]

hoşgeldin, öncelik Forum Kurallarını oku.
bir forma a-z, 0-9 space, backspace vs. button larını koyarak başla, takıldığın yerleri bu başlık altında sorarsın.
kolay gelsin.

[fahrettin]

Hoşgeldiniz....
lutfen forum kurallarini okuyun. Ayni mesajdan 2 tane atmissiniz.. digerini sildim....

Belki diyeceksiniz ki 2 cevap var ikisi de uyari.... Ama adi ustunde...

Delphi Forum başka forumlara benzemez! LÜTFEN FORUM KURALLARINI OKUYUP, UYUN!!!....

cevap alabilmek icin daha acik ve net sormaniz lazim... Hazir bir sanal klavye programimi ariyorsunuz? Yoksa kendiniz mi sanal klavye yazmak istiyorsunuz?

[cagyus]

öncelikle yaptığım hatalardan dolayı özür dilerim.admin abi sanal klavyeyi delphi ile yapmam gerekiyo.yani edit kutusu üzerinde harfler ve rakamlar yazılacakve bitane de "karıştır" butonu koyup ona basınca edit içerisindeki tüm yazılı olanlar yer değiştirecek.örneğin;"123a" ise karıştır butonuna basınca "a213" olucak .inşallah anlatabilmişimdir.

[lazio]

bu şekilde olduğuna eminmisin? sanal klavyelerde genelde kullanıcılar edit e giriş yapamazlar. buttonlara tıklayarak işlem yaparla ve karıştır tuşuna basıldığında buttonların değeri değişir..

[cagyus]

ew söylediğin gibiymiş ben yanlış anlamışım. vizeler başladığı için biraz kopukluk olabilir ama ilgilerinizi lütfen eksik etmeyin.

[lazio]

daha önce sadece rakamlar için aşağıdaki gibi bişey yapmıştım, bundan yola çıkarak geliştirebilirsin..

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1 : TButton;
    Button2 : TButton;
    Button3 : TButton;
    Button4 : TButton;
    Button5 : TButton;
    Button6 : TButton;
    Button7 : TButton;
    Button8 : TButton;
    Button9 : TButton;
    Button10 : TButton;
    Edit1 : TEdit;
    procedure Button1Click(Sender : TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1 : TForm1;

implementation

{$R *.dfm}

procedure GetKey(Button : TObject);
begin
  Form1.edit1.Text := Form1.edit1.Text + (Button as TButton).Caption;
end;

function KeyKontrol(sayi : Byte) : Boolean;
var
  status : Boolean;
  x : Integer;
begin
  status := false;
  for x := 0 to Form1.ComponentCount - 1 do
    if Form1.Components[x].ClassName = 'TButton' then
      if (Form1.Components[x] as TButton).Caption = IntToStr(sayi) then
        Status := True;
  result := Status;
end;

procedure Karistir;
var
  xnum, numok, x : Byte;
begin
  for x := 0 to Form1.ComponentCount - 1 do
    if Form1.Components[x].ClassName = 'TButton' then
      (Form1.Components[x] as TButton).Caption := '';
  numok := 0;
  Randomize;
  for x := 0 to Form1.ComponentCount - 1 do
    if Form1.Components[x].ClassName = 'TButton' then
    begin
      while numok <> 10 do
      begin
        xnum := Random(10);
        if not KeyKontrol(xnum) then
        begin
          (Form1.Components[x] as TButton).Caption := IntToStr(xnum);
          Inc(numok);
          break;
        end;
      end;
    end;
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  GetKey(Sender);
  Karistir;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '';
  Karistir;
end;

end.

[cagyus]

ilgin için çok saol.aradığım tam bööle bişeydi. teşekkürler.