Gauge'yi Nasıl Timer İle Haraket Etdire Bilirim

[subhan]

Selam Arkadaşlar

Benim yapmak istediyim şu

Form-da 1-tane gauge ve 1-tane Timer nesnesi var timer nesnesi ile gauge nasıl kaldirib indiricem
ve bir tane rakam üretici olucak sadece 100 kadar üreticek (kod lazım) raka üretici hangi rakamı belirlerse Timer Gaoge-yi
rakam üreticin belirlediyi rakam göre progress deyerini kaldiracak ve endiricek

birde Gauge nesnesi neden dikine kalmıyor bilen arsa yardlm ede bilirmi

[adelphiforumz]

Gauge nesnesinin dikey olması için kind özelliğini gkVerticalBar yap
progress değerinede istediğin sayısı ata

[subhan]

Gauge nesnesinin dikey olması için kind özelliğini gkVerticalBar yap
progress değerinede istediğin sayısı ata

Tamam da yanı gauge-yi dikine yapdım oldu da

sen ikinci sorumu yanlış anlamışsın benim sitediyim bir rakam uluşdurucu (100-e kadar)
raka oluşturucu kaç rakam uluşdurursa gauge-nin progres deyeri deyışıcek
(rakam uluşdurucu-nun uluşdurduğu rakamlara göre) otomatik olucak

[Search]

Delphide yenisin galiba arama yapsan rahatca bulabilirsin bu istediklerini...
Bu sordugun sorular zaten sitede mevcut...
Arama yapamayacak kadar yogunsun galiba ben yazayım
Timerin ilk once intervalini false yap

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var
value:integer;
begin
     value:=strtoint(edit1.text);
     Gauge1.Progress:=Gauge1.Progress+5;
  if Gauge1.Progress=value then
      begin
         Gauge1.Progress:=0;
      end;
   end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    Timer1.Enabled:=true;
end;

+5 degerini kafana gore degiştir

kolay gelsin...