Delphi Forum

Merhaba.Arkadaşlar size uzun zamandır beni meraklandıran bir şey sormak istiyorum. Bildiğimiz gibi Delphi'de veri tabanı ile çalışmak için bir çok bileşen var. En çok kullanılanları da DBNavigator ve DBgrid. Biz de çoğu zaman bu bileşenleri kullanıyoruz. Ama acaba profesyönel bir şirket veri tabanıy...

ShowModal'dan sonra yazdıklarım şöyle if fLogin.ModalResult = 6 then begin if fLogin.LabelLock.Caption = '1' then begin with SP_UserLog do begin Active := False; Parameters.Refresh; Parameters.ParambyName('@COMPNAME').Value := ElnGetComputerNetName; Parameters.ParambyName('@COMPDATE').Value := Now; ...

Merhaba. Ben Login penceresi olan bir uygulama üzerinde çalışıyorum. Logın penceresini Main formun OnShow olayında çağırıyorum. Şöyle procedure TfMain.FormShow(Sender: TObject); begin Application.CreateForm(TfLogin, fLogin); fLogin.ShowModal; ..................................... ......................

Evet çok doğru buyurdunuz. Ben de bu soruyu sorduktan hemen sonra bunu denedim ve gerçekten de hatamı anladım. Ama her halde soruyu silmem gerekirdi. Boş yere vaktinizi aldım, kusura bakmayın.

Daha önceleri her halde verinin az olmasından dolayı fark edemediğim durumla karşılaştım. Raporlama için Fast Report kullanıyorum. DBGriddeki verileri rapora çıkarmak istediğimde mesela eğer 10 bin tane kayıt varsa sonuncuya varıncaya kadar scroll ediyor, öyle çıkarıyor. Bu da 10 bin kayıt için en a...

Yanıtlarınız içiç teşekkür ederim. Ama maalesef hiç biri yardım etmedi. Ben de artık bir prosedür yazarak bunu başardım. Ama Basit bir yöntemi varken ayrıca bir prosedür yazmak hiç hoş değil. Her halde TApplicationEvents nesnesinin bir etkisi olmuş.

Saygıdeğer uzmanlar. Benim statusbarın autohint özelliği ile ilgili bir problemim var. Daha önceleri hinti olan her hangi bir nesnenin üzerine geldiğim zaman status barın ilk hanesinde o nesnenin hinti çıktığı halde şimdi bir türlü çalışmıyor. Hatta çalışan başka bir uygulamadan copy/paste yaptım am...

Teşekkürler. Ben de TactionList Kullandım. Ama sadece bir action oluşturup ShortCut olarak F5 verdim. İşimi yaptı.

Evet, KeyPreview =True

Arkadaşlar, Ana formda kısayol tuşlarını kullanmak istiyorum ama bi türlü çalışmıyor. Kod şöyle: if (Key = VK_F7) and (Shift = [ssCtrl]) and (MenuServiceLib.Visible) then MenuServiceLib.Click; hatta basit bi if (Key = VK_F7) then ShowMessage('Tamam'); olmuyor. Diğer formlarda çalışıyor. FormStyle mD...

Daha önce bende her derlediğimde versiyon artıyordu.

Merhaba, arkadaşlar. Ben Delphi 2010 kullanıyorum. Project=>Options'da her defasında uygulamayı derlediğim zaman versiyonun da artması için Auto Increment diye bir seçenek var. Ama çalışmıyor. Yani her defa derlediğim zaman versiyon artmıyor. Ne yapa bileceğim konusunda bir bilgisi olan var mı?

Hayır ya, neden olmasın. Sadece Free Report'un 2010 için olanını bulman gerek. Hatta eğer kaynak kod sende varsa sen Delphı 2010da derleyip kura bilirsin. 2007 ile 2010 arasında Unikodu desteklemesi ve bir kaç küçük şey dışında çok fark yok. Ben hatta Delphi 6 için olan bir komponenti 2010'a uyarlad...

var fark, i, PazarSayi: Integer; t, tt: Tdate; begin PazarSayi := 0;//<== Bunu mutlaka yaz t := DateTimePicker1.Date; tt := DateTimePicker2.Date; fark := DaysBetween(t, tt);// Aradaki farkı atıyoruz for I := 0 to fark do //Sıfırdan fark'a kadar düngü koyuyoruz begin if i = 0 then//Başlangıç tarinin...

Arkadaşlar çok ilginç bi problemle karşılaştım. SELECT @COEF = COEF FROM LAZS_COEF AS CF WHERE (ONFORCEDATE < @CALCYEAR) AND (OFFORCEDATE >= @CALCYEAR) AND (SUBJGROUPID = @SUBJGROUPID) OR (ONFORCEDATE < @CALCYEAR) AND (OFFORCEDATE IS NULL) AND (SUBJGROUPID = @SUBJGROUPID) SET @CALCED = @AREA * @COEF...