Delphi Forum

Sanırım Grid'teki ilgili kolonunun displayformat'ını dd.mm.yyyy olarak değiştirmek daha kolay bir çözüm.

MainMenu = Ana Menü
Menu2 = Diğer Menü;
şeklinde de manuel olarak menüleri mdichild gibi birleştirmen mümkün

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
private
procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
end;

var
Form1: TForm1 ...

Eğer alan integer ise ve kullanıcının görmek istediği rakam adedi belli ise
Field'ın displayformat özelliği (mesala 6 rakamlı olğu kesin ise) 000000 yazılabilir. Ayrıca bu değer manuel olarak FormatFloat('000000', Alan Değeri) yazılarakta alınabilir. Soruyu yanlış anladıysam özür...

Delphi'de ile beraber gelen standart kontrol genel olarak windows standardına uygundur. Bir TButton nesnesinin rengini değiştiremediğimiz gibi TDBGrid nesnesinde seçili alanın rengini değiştirmekte bir özelliğe bağlı değildir. Sizin ondrawcolumcell olayını nasıl kullandığınızı bilmiyorum fakat ...

Sanırım sorununu biraz daha detaylandırırsan (örnek kodlar, kodların yazıldığı olaylar gibi) yardımcı olabilirim. Genelde adres hataları yanlış kod kullanımı ile ilgili olmaktadır.
Saygılar...

Örnek bir kod:

var
DT: TDateTime;
I: Int64;
S: string;
begin
S := Trim(Edit1.Text);
if S = '' then
//boş

else
begin
DT := StrToDateTimeDef(S, 0);
if DT <> 0 then
// Tarih
else
begin
I := StrToInt64Def(S, 0);
if (I <> 0) then
//Sayı
else
// kelime veya kelime sayı karışımı
end ...

Belki de farklı bir yöntemi kullanmalısın. Mesala mutex. Mutexler işletim sisteminde kaydedilir. Program kapandığında otomatik olarak referansı silinir. Bu yüzden bir programın açık olup olmadığını bu şekilde kontrol edebilirsin.


program myMuhasebe;

uses
Forms,
Windows, // bu eklenecek ...