buttona 3 defa basınca işlem yapsın ?

[erdogan_ozkaya]

hocam cevabınız için teşekkür ederim fakat çalışmadı

[erdogan_ozkaya]

yok hayır ekli ama çalışmadı hata aşağıdaki gibi.

Yine "hata veriyor" demişsiniz ama hatayı yazmamışsınız
Biz tahmin yaparak devam edelim en iyisi: XE8 için System.Classes unitini eklemelisiniz.

[adelphiforumz]

Size zahmet boş bir delphi projesi açıp
ekrana yalnızca bir button atın ve altınada
aşağıdaki kod içeriği şekline getirin başka hiç bir ayar yapmayın
ve o unit kısmınıda burda paylaşırmısınız

resimden gördüğüm kadarı ile sizin kodlarda {R *fmx} gibi içerikler görüyorum

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
  procedure prc_Sifirla;
  begin
      (Sender as TButton).Hint := IntToStr(GetTickCount);
      (Sender as TButton).Tag := 1;
      (Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
  end;
begin
    if (Sender as TButton).Hint = '' then
          prc_Sifirla
    else
    begin
        if (GetTickCount - StrToInt((Sender as TButton).Hint) ) <= 5000 then
        begin
            (Sender as TButton).Tag := (Sender as TButton).Tag + 1;
            if (Sender as TButton).Tag = 3 then
                (Sender as TButton).Caption := '5 sn. doldu'
            else
            if (Sender as TButton).Tag < 3 then
                (Sender as TButton).Caption := IntToStr((Sender as TButton).Tag)
            else
            if (Sender as TButton).Tag > 3 then
            begin
                prc_Sifirla;
                (Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
            end;
        end
        else
          prc_Sifirla;
    end;
end;

[erdogan_ozkaya]

Hocam yeni proje açtım ve ünit içeriği aşağıdaki gibi,
xe8 kullanıyorum.

Kod: Tümünü seç

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
  procedure prc_Sifirla;
  begin
      (Sender as TButton).Hint := IntToStr(GetTickCount);
      (Sender as TButton).Tag := 1;
      (Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
  end;
begin
    if (Sender as TButton).Hint = '' then
          prc_Sifirla
    else
    begin
        if (GetTickCount - StrToInt((Sender as TButton).Hint) ) <= 5000 then
        begin
            (Sender as TButton).Tag := (Sender as TButton).Tag + 1;
            if (Sender as TButton).Tag = 3 then
                (Sender as TButton).Caption := '5 sn. doldu'
            else
            if (Sender as TButton).Tag < 3 then
                (Sender as TButton).Caption := IntToStr((Sender as TButton).Tag)
            else
            if (Sender as TButton).Tag > 3 then
            begin
                prc_Sifirla;
                (Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
            end;
        end
        else
          prc_Sifirla;
    end;

end;

end.

[erdogan_ozkaya]

aynı hataları veriyor

[greenegitim]

http://www.getgnu.org/gnulinux/gnulinux ... rulur.html yanlış anlaşılma olmasın bu linkteki yazı kendim içinde geçerlidir.

[ertank]

hocam cevabınız için teşekkür ederim fakat çalışmadı

Öncelikle siz farklı cihazlar için derlenebilecek proje geliştiriyorsunuz. (File->New->Multi Device Application) Eğer uygulamanız sadece Windows altında çalışacak ise yeni projeye başlar iken File->New->VCL Forms Application seçeneğini seçmelisiniz.

Hata mesajını yorumlayabildiğim kadarı ile buton tıklaması ile gelen (Sender: TObject) bir TButton sınıfı değil. Bunun yerine TControl sınıfında bir nesne geliyor. Yukarıda bahsettiğim gibi VCL Forms Application türünde bir yeni proje başlattığınız zaman yine aynı hata mesajını alıyor musunuz? Eğer hata mesajı almıyor iseniz yüksek ihtimalle proje türünüz sebebi ile örnek kodu kullanamayacaksınız.

Muhtemelen aynı sebepten daha önce gönderdiğim test edilmiş kod derleme zamanında hata verdi.

[SimaWB]

http://www.getgnu.org/gnulinux/gnulinux ... rulur.html yanlış anlaşılma olmasın bu linkteki yazı kendim içinde geçerlidir.

+1

Hay Allah razı olsun!

[kimimben]

Sorduğunuz sorunun cevabı bu yazdığınız kodlar olduğuna emin misiniz?