Delphi Forum

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure PanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ...

Arkadaşlar bir aidat ve yakıt paralarını tutan borçluları listeleyen bir program yazıyorum.
Borçları
ID ... UYEID.. TARIH....... ODEME... BORC...KALAN.... ODEMESEKLI
1 1 20.01.2020 - 150 150 AİDAT ---> üyeye aidat borcu yazıyorum
2 1 20.01.2020 100 - -100 AİDAT ----> üyenin yaptığı ödemeler ...

herhangi bir item seçilmediği için oluyor. kodun başına bir koşul yazarsan çözüm sağlanmış olur
if CheckListBox1.ItemIndex>-1 then
begin
edit4.text:=CheckListBox1.Items[CheckListBox1.ItemIndex];
Edit7.Text := Copy(CheckListBox1.Items[CheckListBox1.ItemIndex], 1, 3);
end;

Sanırım tek prosedurde 2 tane StringGrid i renklendirmek istiyorsun StringGrid1 yazan yerlere Sender yazıp StringGrid2 ye de drawcell ine bu prosedürü atmalısın

Tşkler

1) Numaralar bir görev ifade ediyor her numaranın bir görevi var 1,2,3 diye ben salladım bu 2-4-6 gibi de gidebilir. Görev numarası olduğu için bugun 1 nolu gorevi yapan yarın 2 nolu gorevi yapar o yuzden tekrarlaması gerekiyor?
2) "sabah", "n sabah" , akşam "n akşam" bunların her bir görev ...

Şöyle bir sorunum var. Bir çizelge programı yapmaya çalışıyorum.
Bir iş yeri var 100 küsür çalışan var bunlar 3 varsiya çalışıyor.
haftaiçi
sabah 1 2 3 4 5 6 7 8 9 10 11
n sabah 21 22 23 24 25 26 27 28 29
akşam 51 52 53 54 55 56 57 58 59 60 61
n akşam 70 71 72 73 74 75 76 77 78 79

Cumartesi ...

bence image koymalısın 2 tane biri normal biride değişecek renk 2 tane resim oluşturup imagelere atamalaısın image1 adını normalresim, image 2 adını degisenresim olarak değiştir. ve çizdiğin resimleri imagelere ata.




procedure Tanaform.BASLIKYAZ(UZERINDE, basili: boolean; resim: TImage; baslik ...

Eğer yanlış anlamadiysam. Tüm labelleri alt alta koyun autosize false yapın belli bir uzunluk verin Label aligment left yada right kullanarak hangisi sağ hangisi sol tarafa yazılacağını hizalayin.

Kod başına
ListView1.BeginUpdate
Sonuna da
ListView1.EndUpdate
Denermisin

Viplay diye bir proje vardı winamp benzeri program. Dc-Dsp filter bileşenleri ni kullanıyordu tam olarak hatırlamıyorum ama nette bir araştır ordan tüm bu dediklerini yapabiliyorsun. Yanlız Direct 9 üzerinden di sanırım. http://www.dsp-worx.de bileşenler burada

sonuc: integer; yerine sonuc: extended; girersin inttostr yerine floattostr..... strtoint yerine strtofloat.....

Tüm butonlara tag atarsın 0-9 arası hangi rakam yazacaksa ve hepsinin onclick olayına buton1 i atarsın gereksiz kod yazmakla ugrasmazsın
procedure TForm1.Button1Click(Sender: TObject ...

Label koyduysan üzerinde sağ tıklayıp bringtofront yaparsan her zaman üstte olur. Form ve label in doublebuffer ini de true yaparsan titreme yapmaz

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var i: SmallInt; x:Integer ;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then begin
if ActiveControl is TEdit then begin
try
x:=StrToIntDef(TEdit ...