Delphi Forum

//on create
SelectedList:=TStringList.Create;


procedure TChi1dTemplateForm.dbgMainGridKeyDown(Sender: TObject; var Key: Word: Shift: TShiftState):
var
i : Integer:
bm: String;
begin
// Если нажата клавиша пробела, то
if Key=VK_f2 then
begin
// Определяем ключ строки
bm:=TDataSet(dbgMainGrid ...

Selam!

Dbgrid'de multiselect-i shift ve yon tuslari ile degilde mesela F2 tusu ile nasil yapabilirm

tesekkurler.

sizin kode ile form acilmadan once ama benim istedigim formlar kapanirken yani formlar acik duruyor tek tek kapiyorum
mesela
form1.edit1.text:=edit2.text;

runtimede create ettigim icin ve formlarin ismi ayni olunca iste yukaridakine benzer kodla aktaramiyorum

zaten form3 modal ...

hayir onactivate,onshow denedim olmuyor

try
form3:=tform3.create(nil);
form3.showmodal;
finally
freeandnil(form3);
end;


bu kodla bir formun icerisinden bircok ayni formu create ediyorum
en son kapanan formun edit1.text-i bir onceki edit1.text-e eklenmesi gerekiyor . yani ben bir global string tanimladim ve formun onclose-sinde ...

tesekkurler. local olarak her kullanici mesela -adres- table'nin temprorary yapmasini istiyorum bunuda cakismamasi icin her bilgisayarin ismi ve tablename seklinde dusunmustum
set @sql='select * into '+@tablename+' from adres where 1=2


'

burda table ismini #@tablename olarak adlandiriyor ...

Networkde her kullanici kendi bilgisayarinin ismine gore temp. table olusturmasini istiyorum bunu ms sql procedure ile yapmaya calistim basarili olamadim programla yapabiliyorum yardimci olursaniz sevinirim



declare @host nvarchar (100)
declare @sql nvarchar (100)
declare @tablename nvarchar (100 ...

Gridde enterle gezmek icin
gridin onkeypress-ine

If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then begin
with (Sender as TDBGrid) do
if selectedindex > 0 then
selectedindex := selectedindex - 1
else begin
//DataSource.DataSet.Prior;
selectedindex := fieldcount - 1;
end ...

cevaplar icin tesekkurler #,0.000 yapincada gosterirken virgulden sonraki 3 basamagi gosteryor ama ben istiyorumki virgulden sonra uc basamakdan sonra hic kabul etmesin yani yazidrmasin dbgridin bunuda ttable-nin icerisndeki displayformatta #,0.000 yazinca oluyormus

merhabalar
dbgrid-de displayformat boyle yaptim ###0.00 ve istiyorumki virgulden sonra 3 sayi yazsin ondan sonrakilere izin vermesin bunu nasil yapabilirim

tesekkurler

selam arkadaslar!!1

ihtiyacdan dolayi programimda cok query kullanmak zorundayim. bu programi yavaslatirmi mesela bir formda farkli 10 tane query cagyryorum ve onlari form kapatinca close yapiyorum ve dblookupcombobox'larinda listsource-sisini nil-liyorum

peki cok query yavaslatirsa siz ne ...

tesekkurler
turkce basligini nasil atacagimi bilemedigimden ingilizce yazmak zorunda kaldim
hem ogrenmek hem de bir projede kullanmak amaciyla arastiriyordum
http://www.luxand.com/facesdk/ buraya bakmistim

bunu delphide yapmak kolaymidir
kolaysa ipucu verirmisiniz
matematiksel islemlermi kullanilmali?
yardimci olursaniz cok sevinirim

Merhaba arkadaslar.

Delphide 2 tane query var bircok left joinler ve where, and-ler iceren. Iki query-de docid-ye gore group edilmis ve ben bu iki query-ye birlestirip bir reportta yazmak istiyorum. Iki query-ye birlestirmeye calistim olmadi, for loop kullandim olmadi, 1. datasource-a on change-ne ...