mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Funzione LOCATE

Ho avuto la necessità di usare la funzione LOCATE per posizionare il
puntatore sul record cercato all'interno di un database. Il problema è
che al momento della compilazione del progetto mi esce un errore "Not
enough actual parameters".
Sembra che il problema sia dato dall'opzione TLocateOptions che io non
ho bisogno di specificare.
E' inutile dire che ho provato anche a specificarla ma il risultato non
cambia.
Qualcuno sa se questo può essere un bug di Delphi 5 o se sbaglio
qualcosa? La riga è la seguente:
Form1.ADOTable1.Locate('TYPE','POS');
grazie in anticipo
Ernesta.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Form1.ADOTable1.Locate('TYPE','POS');
Should be :
Form1.ADOTable1.Locate('TYPE','POS',[]); 
                                   ^^^^^
bye,
Morde.
morde [at] programmer [.] net

 ha scritto nel messaggio
news:ae5c0826bb24d2f8d0e...@mygate.mailgate.org...


Ciao,
sono sicura che qualcuno potrà aiutarmi. Il mio problema è il seguente:
devo verificare se, all'interno di una tabella, esiste un record con un
determinato valore in un campo specifico.
Apro la tabella con un ADOTable ed ho pensato di usare la funzione
LOCATE()
Form1.ADOTable1.Locate('TYPE','POS');
Questa istruzione al momento della compilazione mi da il seguente
errore:
[Error] Unit2.pas(55): Not enough actual parameters
Ovviamente ho gia provato a specificare un parametro opzionale ma il
risultato è il seguente:
[Error] Unit2.pas(55): Undeclared identifier: 'loCaseInsensitive'
Non è che magari stia lottando con un bug di Delphi5 ?
grazie in anticipo.
E.bacci


Form1.ADOTable1.Locate('TYPE','POS', [] )
Ernesta oh bacci ernesta!
tu che fosti cosi' lesta
ad inoltrar altra richiesta...
Colpevole fu mailgate newsserver:
il quale ti consiglio: lascial perder....
Ciao!


 >Non è che magari stia lottando con un bug di Delphi5 ?


scusa ho sbagliato : devi inserire DB nella sezione uses
ciao

 il quale ti consiglio: lascial perder....
Costui è il mio mito :)
-- 
Jax
Newsgroup: it.comp.lang.delphi
Titolo: FFT....un pò diversa dal solito

Scusate l'intrusione , sto cercando l'algoritmo FFT (in Pascal ,Fortran)
o anche libri in italiano  sull'argomento in questione per poter
implementare una FFT che dia la possibilità di scegliere quali frequenze
usare.Mi spiego meglio:
se scrivo una FFT  di 64k campioni ottengo  32k amplitudini massime ("lo
spettro") delle frequenze che vanno da 0  a  32768 Hz  {0,1,2,3....32767}.
Più correttamente si definisce una densità spettrale centrata a queste
frequenze 0,1,2,3.....ecc.
A me serve ricavare le amplitudini per frequenze tipo 0.4 , 1.8, 2,7 ecc
e tra parentesi arrivare solo a 22050 come massimo....
Non mandatemi al diavolo...anche la IFFT non sarebbe male.
Grazie e auguri.

 o anche libri in italiano  sull'argomento [...]
Sulla Fast Fourier Transform trovai qui
(
http://members.tripod.com/vagul/
) qualche cosa d'interessante.
In generale, pero', ti consiglio di controllare sul sito delle Numerical
Recipes (
http://www.nr.com/
) per gli algoritmi numerici ... 
In italiano, facendo un giretto con google [ 
http://tinyurl.com/ykij
 ],
hai l'imbarazzo della scelta :D
L.
PS : NON CROSSPOSTARE,  PLEASE ... :( 
-- 
    /|                   L i n o G e
  \'o.O'  "Io ho vissuto a lungo, migliaia di anni, ma
  =(___)= non sono un dio e nemmeno uno degli immortali."
     U                                          s. kinG

Se ti serve veramente ti posso cercare il materiale che ho utilizzato per la
tesi nel 1985.
In fortran 4 ossia non strutturato.
In pratica io posseggo una subroutine di 700 righe che esegue l'analisi
spettrale di una serie di dati numerici senza buchi.
Si potrà tradurre facilmente in delphi proprio perchè il linguaggio oggi
risulta quasi a basso livello.
Tieni presente la 'bontà' dell'algoritmo nonchè della serie di dati richede
che, per le basse frequenze, siano presenti, per una buona interpolazione,
almeno 20 periodi. Ossia se hai dati per 180 giorni rilevi solo frequenze di
9 o 10 giorni e tutte le frequenze più alte(quali frquenze più alte te lo
dice la quantità di dati che hai).
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.delphi
Titolo: Crystal Reports 10

Ho un problema con un'applicazione test sviluppata con Delphi 7 e la VCL
di Crystal Reports 10.
Nel mio PC di sviluppo (dove è installato CR) funziona tutto perfettamente
mentre sul client, al lancio del programma, compare l'errore:
"Exception ECrpeError in module test.exe at [...]
Error: 100 Error loading library: CRPE32.DLL"
Sul PC client ho copiato (sotto system32) tutte le DLL necessarie, come
facevo per il deployment delle versioni precedenti. Ho anche utilizzato il
programma 'Dependency Walker' per un confronto ma non sono riuscito a
risolvere nulla :-(
Entrambi i PC hanno WinXP Professional SP1.
Qualcuno ha avuto problemi simili?
Grazie, Donato
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Error: 100 Error loading library: CRPE32.DLL"
hai controllato quante versioni di questa dll sono presenti sul pc del 
tuo cliente?
AS

 Grazie, Donato
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

 prova a registrarla, start->esegui->regsvr32 
[CUT]
Avevo provato anche a registrarla (CRPE32.DLL), ma mi compare il messaggio:
"c:\windows\system32\crpe32.dll è stato caricato, ma il punto di ingresso
DllRegisterServer non è stato trovato. Questo file non può essere
registrato."
Significa che NON deve/può essere registrata?
Quello che mi scoccia di più è che con le versioni precedenti di CR andava
(quasi) tutto liscio!
Grazie dell'attenzione, Donato


Alberto Salvati ha scritto:


Ha solo la CRPE32.DLL del CR10, purtroppo...


Newsgroup: it.comp.lang.delphi
Titolo: Deichiarazioni {$DEFINE}

Oggi vi propongo questa domanda, sperando che qualcuno sappia darmi 
risposta:
utilizzando le dikiarazioni durante la compilazione {$DEFINE}, {$IFDEF}
{$ELSE}{$ENDIF} ecc.. posso in qualke modo metterle in una UNIT separata 
(magari in una UNIT solo di costanti) e usare comodamente l'istruzione 
{$IFDEF} in un'altra UNIT del progetto riferendomi al {$DEFINE} di quella 
UNI "di costanti"??
Non è possibile che debba dichiarare {$DEFINE xxxx} in ogni UNIT...se poi 
non voglio piu' stare in fase di DEBUG in tutti e 15 i miei FORM/UNIT? 
ovviamente dovrei commentare in ogni UNIT la riga di dikiarazione...
si puo' aggirare questo?
grazie 10000000
--- posted by geoForum on 
http://www.delphiedintorni.it

Scrivi de varie {$DEFINE e {$UNDEF in un file di testo e poi includilo 
nelle unit con la direttiva $I
Esempio
File Define.pas
{$DEFINE UNO}
{$DEFINE DUE}
{$UNDEF TRE}
come vedi senza clausole Unit, Uses od altre.
Nei file che utilizzano le define includi (in testa alla unit di solito) 
il file in questa maniera:
{$I Define.pas}
ovviamente devi inserire anche la path; quindi diventa....
{$I C:\MieiProg\Define.pas}
Ciao,
David

 ha scritto nel messaggio 
news:BPFle.4000$Wb....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Help TListBox

Salve Ragazzi,
ho un problemino con una tlistbox, praticamente vorrei inserire la barra di
scorrimento orizzontale perchè le scritte che inserisco con il metodo add,
sono troppo lunghe e non vengono visualizzate per intero.
Chi mi dà una dritta?
Sono sicuro che si può fare (più che altro lo spero) e che è una cavolata.
Grazie a tutti.
Ciao
-- 
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

 barra di scorrimento orizzontale perchè le scritte che inserisco con
Non per deluderti, ma non è possibile a meno di derivarsi un componente
ad hoc.
Comunque, su torry trovi THListBox già pronto: è per D2, ma il source è
incluso e credo proprio che si compili su qualsiasi versione.
--
Jax

 incluso e credo proprio che si compili su qualsiasi versione.
Sono deluso anche se non è colpa tua.
Non mi sembra il caso di derivare un altro componente sarebbe troppo
complicato.
Alla fine non è indispensabile questa funzione potrei aggirarla in un altro
modo.
Adesso vedo che cosa dice il THListBox e poi ti faccio sapere.
Ciao

"Karletto" ha scritto nel messaggio
| ho un problemino con una tlistbox, praticamente vorrei inserire la barra
di
| scorrimento orizzontale perchè le scritte che inserisco con il metodo
add,
| sono troppo lunghe e non vengono visualizzate per intero.
| Chi mi dà una dritta?
| Sono sicuro che si può fare (più che altro lo spero) e che è una
cavolata.
| Grazie a tutti.
Guarda la proprieta' ScrollWidth.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

 Chi mi dà una dritta?
Se non ricordo male per far apparire la barra oriz. basta un mex:
listbox1.Perform( LB_SETHORIZONTALEXTENT, maxlen, 0 ); dove maxlen è la
lunghezza massima del testo nel listbox
Saluti
^_Goblin_^

 Guarda la proprieta' ScrollWidth.
Diavolaccio! Mi era sfuggita!
Devo ripassarmi la VCL...
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Edit che non vuole colorarsi

Anche se puo' non essere il modo di affrontare un problema, semplifico al
massimo la domanda sperando di avere uno spunto, se sara' il caso postero'
maggiori dettagli.
D2006, ho un form (o una? e' maschile o femminile?) con diversi componenti.
In particolare ho impostato la proprieta' color di una edit (ma ho provato
anche con una label ed il comportamento non cambia) ad un certo valore, es.
green: all'avvio del programma dovrebbe quindi diventare verde.
E invece quando va in esecuzione, non c'e' verso, il fondo rimane bianco.
Ho provato sia a designtime che da codice, impostando la proprieta'
nell'evento oncreate del form ma niente, sfondo inesorabilmente bianco.
Quello che mi meraviglia e' che ho provato a fare la stessa cosa mettendo
soltanto un form ed una edit e questa all'avvio si colora regolarmente.
Mi sembra di diventare matto...
Che cosa, in linea generale, puo' influire sul comportamento del componente
e della sua proprieta' color?
Giuro che ho cercato su Google, inutilmente, ma forse e' talmente banale che
solo un newbie come me puo' fare una domanda del genere, grazie comunque a
chi mi evitera' la neuro
-- 
F&R

e della sua proprieta' color?
L'uso o meno dei temi di XP nella tua applicazione.

 L'uso o meno dei temi di XP nella tua applicazione.
Cosa sono i temi di XP? Scusa l'ignoranza ma io non lo ho su nessuna
macchina, il mio sistema operativo e' Win2000.
-- 
F&R

macchina, il mio sistema operativo e' Win2000.
Allora è da escludere.

 bianco.
Ho trovato dove nasce il problema.
Se la proprieta' formstyle del form e' impostata a fsNormal allora tutto
l'edit si colora secondo quanto impostato nella sua proprieta' color.
Se invece - come e' nel mio caso - formstyle e' fsMDIForm allora lo sfondo
della edit rimane bianco, e non riesco a modificarlo ne' a designtime ne' a
runtime.
Secondo voi questo comportamento e' corretto?
E quale puo' essere un modo per risolvere?
Grazie
-- 
F&R

Newsgroup: it.comp.lang.delphi
Titolo: Puntatore ad array

Ho realizzato un puntatore ad array:
v:array [1..4] of integer;
        ptr:pointer;
begin
        ptr:=@v;
come si fa' ora a ritornare da ptr al valore di v? ad es v[0]
Ciao Enrico

come si fa' ora a ritornare da ptr al valore di v? ad es v[0]
type TArray = array [1..4] of Integer ;
     PArray = ^TArray ;
procedure TForm1.Button1Click(Sender: TObject);
var P : Pointer ;
    A : TArray ;
begin
  P := @A ;
  A[1] := 4 ;
  ShowMessage( IntToStr( PArray(P)^[1] ) ) ;
end ;
--
Andrea Laforgia (ICQ 87230455)
------------------------------ 
#exclude <windows.h>
Newsgroup: it.comp.lang.delphi
Titolo: n° file su hd

Salve a tutti,
sapete se č possibile sapere il numero dei file in un hd/partizione con
un'api o componente senza dover fare per forza un search di tutti i file?
(un po' come quando si clicca nelle proprietą di un drive e/o cartelle)
Grazie mille :)

Mi dispiace ma non credo proprio che esista un API che faccia al caso
tuo, certo non mi sono guardato tutta la Windows SDK Guide quindi
non sono sicuro, buona fortuna ;D
-- 
Ciao,
Giulio "RedXIII"
"I/O" <Tropp...@quindi.chiedimela> ha scritto nel messaggio
news:LvZ5b.25561$R32.7...@news2.tin.it...


 non sono sicuro, buona fortuna ;D
Ummm... capito... dovrò arrangiarmi in qualche modo :)

Ummm... capito... dovrò arrangiarmi in qualche modo :)
Non è molto difficile.
uses
  Masks;
type
  TSFFCallBack = procedure(const F: TSearchRec);
var
  FileCount: Integer;
procedure SearchForFiles(const Folder, Mask: String; CallBackFunc:
TSFFCallBack);
   procedure SearchIntoFolder(const Folder: String);
   var
     F: TSearchRec;
   begin
     ChDir(Folder);
     if FindFirst('*.*', faAnyFile - faVolumeID, F) = 0 then
     begin
       repeat
         if (F.Name[1] <> '.') and
            ((F.Attr and faDirectory) <> 0) and
            ((F.Attr and faSysFile) = 0) then
           SearchIntoFolder(F.Name)
         else
         begin
           if MatchesMask(F.Name, Mask) then
             CallBackFunc(F);
         end;
       until FindNext(F) <> 0;
       FindClose(F);
     end;
     ChDir('..');
   end;
begin
  SearchIntoFolder(Folder);
end;
procedure MyCallBack(const F: TSearchRec);
begin
  Inc(FileCount);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  FileCount := 0;
  SearchForFiles('C:\', '*.*', MyCallBack);
  ShowMessageFmt('In C: ci sono %d file', [FileCount]);
end;

 Non è molto difficile.
Grazie, ma come dicevo su vorrei evitare di dover fare la scansione di tutto
l'hd (o cmq delle partizioni/dir interessate)
Cmq già che ci siamo ne approfitto per chiederti una curiosità, nel codice
da te postato è possibile _escludere_ alcuni file dalla ricerca? esempio
voglio che mi restituisca tutti i txt "*.txt" tranne i file "readme.txt".
Grazie mille

voglio che mi restituisca tutti i txt "*.txt" tranne i file "readme.txt".
Così com'è il codice non è possibile escludere nulla, ma puoi
aggiungere una Mask di esclusione e far diventare il controllo:
if MatchesMask(NomeFile, ExcludeMask) then // escludi 
else
if MatchesMask(NomeFile, IncludeMask) then // conta

 On Sat, 06 Sep 2003 10:31:55 GMT, "I/O" <Tropp...@quindi.chiedimela>
[cuttotutto]
OK, grazie mille delle info... appena posso cercherò di misurare il tempo
necessario per tutto, sperimao bene :)
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: Formato data in una query

Ciao a tutti!
Ho una dbgrid collegata a una query. Quando la dbgrid visualizza i campi di
tipo data del database, li mostra con il formato data che e' settato nel
sistema operativo. Posso bypassare questa cosa scegliendo io il tipo di
visualizzazione per le date? Come?
Grazie in anticipo, Christian

visualizzazione per le date? Come?
Imposta le variabili ShortDateFormat e LongDateFormat.
-- 
Andrea Laforgia
#exclude <windows.h>

 ha scritto nel messaggio
news:b1t65f$286q$1...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: Distribuire un'applicazione che usa il Rave Report

Salve a tutti,
qualcuno ha fatto qualcosa con i Rave Reports?
Come li avete trovati?
Per distribuire un'applicazione che li usa cosa bisogna fare? Quali files
bisogna includere nel pacchetto di installazione? Cosa consigliate?
Grazie anticipate,
Roberto

)

Newsgroup: it.comp.lang.delphi
Titolo: Forma SpeedButton

con D2006 Win32 , avrei voglia di usare una forma diversa da
quella usuale , per capirci simile a WinAmp o AdAware.
non cerco componenti gia' fatti , mi piacerebbe invece capire
se e come si possa riuscire .
Maurizio

Maurizio ha scritto:

Potresti cercare componenti già fatti almeno per analizzarli e capire 
come sono stati ottenuti certi effetti e prendere spunto per scrivere di 
tuo pugno (o dito?) un nuovo controllo visuale. ;-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]

Newsgroup: it.comp.lang.delphi
Titolo: Documentazione scritta su Procedure e Metodi

ciao a tutti,
pur avendo i file di documentazione del CD di Delphi non riesco a trovare
una spiegazione di tutti i metodi e le procedure delle varie Unit...
D'accordo che attraverso l'Help ci si arriva ma mi servirebbe avere un
documento cartaceo per studiarmele meglio.
Ho guardato male? Dove si può trovare questo tipo di documentazione?
grazie
Paolo

 ha scritto nel messaggio
news:ai2o1v$1123ic$1...@ID-83500.news.dfncis.de...> ciao a tutti,


 wrote in message
news:Ni719.13675$lu5.3...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: FastMM, su sourceforge il sorgente del memory manager di Pierre La Riche

http://sourceforge.net/projects/fastmm/
-- 
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"

 
Lo hai/avete provato? E' (visto he fa anche il report dei memory leak) da sostituire a MemCheck?
Ciao Daniele

> Lo hai/avete provato? E' (visto he fa anche il report dei memory leak) da
sostituire a MemCheck?
In produzione utilizzo RecyclerMM, sto testando FastMM, da il report dei
memory
leak, ma solo in chiusura, per cui è necessario l'utilizzo di MemProf


 
Il report che fa memcheck è completo, non ha bisogno di memproof!.
Il report di FastMM ti dice solo quanti blocchi ti sei perso, *poi* vai di memproof.
Per la fase di debug è ok, ma...
io ho delle app, H24 e se mi danno un memory leak dopo 5 ore di funzionamento come faccio a saperlo con memproof?
Come ti comporti in questi casi con RecyclerMM?
Ciao Daniele

 come faccio a saperlo con memproof?
FastMM e RecyclerMM sono solo una versione più perfromante del MM
di Delphi, e gestiscono meglio le free di memoria, ma non ti aiutano nel
debug
dei memory leak, per cui sono da applicare solo quando l'applicazione è
a posto.


 a posto.
Certo, anche memcheck ha un suo gestore della memoria (non so se + o - performante di quello di Delphi)
ma ti da info su *dove* ci sono stati i problemi.
Il mio obbiettivo è sapere se memcheck puù sostituire FastMM o RecyclerMM *anche* in produzione
ad applicazione finita.
Ciao Daniele

Newsgroup: it.comp.lang.delphi
Titolo: Frames: cosa sono esattamente?

Salve,
ho installato Delphi 5.0 dopo aver programmato in
C++Builder, e ho trovato i Frames: ma cosa sono?
Sono evoluzioni dei Form? Sono cose del tutto nuove?
Qualcuno può spiegarmelo, per favore?
Un'altra cosa: gli oggetti compatibili Delphi 1.0 me li devo
tenere o li posso togliere dai compilati? Servono ancora a qualcosa?
Grazie

 Sono evoluzioni dei Form? Sono cose del tutto nuove?
[...]
La seconda che hai detto, anche se sono nella unit forms. Per come le
uso io, sono un modo comodo per raggruppare componenti che devono
lavorare insieme.
Es: ho un frame con: un Gauge + un Edit + una Label che formano un
visualizzatore per misure analogiche. Alla frame ho aggiunto un metodo
Create per impostare l'unita' di misura (string: visualizzata dalla
label) e il min e max (per il gauge) ed una proprieta' Value (double)
read FValue write SetValue che mi consente di impostare il valore da
visualizzare.
Una volta definito il tutto e salvato, si puo' mettere il frame nella
palette come fosse un componente. A quel punto, ne puoi mettere N nel
tuo progetto.
Non si perde l'accesso ai componenti interni del frame (che sono anzi
accessibili tramite l'OI): ad es: se hai nel frame un TButton e hai gia'
usato il suo OnClick nel Frame, puoi comunque aggiungere delle azioni:
l'handler che viene creato in automatico contiene la chiamata esplicita
al metodo della frame (puoi aggiungere il tuo codice prima o dopo).
Ed altro, ma ho scritto quelli che secondo me sono gli aspetti piu'
interessanti.
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Un aiuto per favore....

Ciao a tutti:
Ho un piccolo problema: sono in possesso delle guide a Delphi ver. 5, in
Inglese ed in formato Acrobat Reader, residenti sul CD.
Vorrei sapere se esistono anche in Italiano, ed eventualmente dove trovarle.
Grazie. Orso Informatico   
orso...@ciaoweb.it

non mi risulta, ma magari mi sbaglio.
--
Ciao Ciao.
Gnaffy - 
Gna...@wappi.com

Newsgroup: it.comp.lang.delphi
Titolo: Scomparsa di proprietà dei campi DataSource

Ciao a tutti!
Ho una questione fastidiosa da porvi : il mio form contiene parecchi
elementi db-aware che ora funzionano correttamente. Quando però chiudo
bds 2006 e rientro nel progetto il form, in tutti i suoi elementi
dbaware, nell'object inspector la voce datasource rimane vuota, anche
se prima di chiudere e salvare i campi risultavano assegnati e
funzionanti. In più il dataset collegato risulta disattivato
(proprietà active a false). Ogni volta è necessario riassegnare il
campo dataset agli elementi dbaware e attivare i dataset...ma come è
possibile? perchè il mio progetto "perde" queste proprietà ad ogni
apertura/chiusura? Ho controllato all'uscita dal progetto il .dfm del
form e le proprietà sono elencate correttamente...c'è qualche opzione
del progetto che io non conosco?


Il datasource e' nella stessa form o in un altro datamodule (o form) ?
Se e' cosi' allora il problema potrebbe essere che quando carichi la tua 
form delphi non trova il datasource perche' non ha caricato il 
datamodule in memoria.
In quel caso l'unico modo e' aprire il datamodule prima della form. 
Inoltre per limitare il problema al minimo puoi mettere il datasource 
nella form con i componenti visuali, in questo modo si perde solo il 
riferimento del datasource al dataset e devi sistemare una cosa sola 
mentre gli altri componenti  visuali restano collegati al loro datasource.
Se invece hai tutto nella stessa form una possibile causa di confusione 
e' data dal file .dfm che e' in read-only: mentre il .pas se e' RO non 
te lo fa modificare, con il dfm e' piu' subdolo! te lo fa modificare e 
poi non salva le modifiche sul file :)
ciao
Giacomo

 mentre gli altri componenti  visuali restano collegati al loro datasource.
Infatti appena apro bds2006 mi carica la form "visuale" : per far
partire il tutto devo aprire il datamodule e attivare il
datasource...che strano, però, perchè ho un altro progetto
strutturato nella medesima maniera (cioè dividendo datamodule con
tutti i componenti di accesso al db in un file sè stante) e tutto lì
funziona correttaemente...tutti i file dei 2 progetti hanno permessi
identici...misteri arcani

 datasource...
Ciao, io in D7 farei un View as Source del project e magari sposterei la 
riga dell' Application.CreateForm del DataModul eprima di quella del form.
In D2006 spero sia più o meno uguale, prova a fare questo tentativo.
Ciao, Vittorio

 riga dell' Application.CreateForm del DataModul eprima di quella del form.
Ho tentato ma purtroppo non funziona...non capisco proprio perchè...
Newsgroup: it.comp.lang.delphi
Titolo: Lancio di exe

Ho la necessità da un programma Delphi di lanciare altri programmi win
e dos.
Come posso fare ??
Stefano

 Come posso fare ??
leggi le FAQ !! :D

Newsgroup: it.comp.lang.delphi
Titolo: EnumCachedPassword

Salve.
Qualcuno potrebbe ri-postare il prototipo di questa API di Windows?
TNX
AS
"Se è Microsoft non funziona"

unit Unit1;
interface
uses
  Windows, SysUtils, Classes, Forms, ShellAPI, Controls, StdCtrls, Dialogs;
type
  TForm1 = class(TForm)
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    ListBox: TListBox;
    procedure Label1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    hMPR: THandle;
  end;
var
  Form1: TForm1;
const
  Count: Integer = 0;
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw:
DWord): Word; stdcall;
implementation
{$R *.DFM}
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw:
DWord): Word; external mpr name 'WNetEnumCachedPasswords';
type
 PWinPassword = ^TWinPassword;
 TWinPassword = record
   EntrySize: Word;
   ResourceSize: Word;
   PasswordSize: Word;
   EntryIndex: Byte;
   EntryType: Byte;
   PasswordC: Char;
  end;
var
  WinPassword: TWinPassword;
function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool;
stdcall;
var
  Password: String;
  PC: Array[0..$FF] of Char;
begin
  inc(Count);
  Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
  PC[WinPassword.ResourceSize] := #0;
  CharToOem(PC, PC);
  Password := StrPas(PC);
  Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize +
WinPassword.ResourceSize);
  Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
  PC[WinPassword.PasswordSize] := #0;
  CharToOem(PC, PC);
  Password := Password + ': ' + StrPas(PC);
  Form1.ListBox.Items.Add(Password);
  Result := True;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
   begin
    Application.MessageBox('Utente non loggato', 'Error', mb_Ok or
mb_IconWarning);
    Application.Terminate;
   end
  else
   if Count = 0 then
    ListBox.Items.Add('Nessuna Password Trovata');
end;
Ciao!
--
- Carlo -

Tnx :)))
AS
Newsgroup: it.comp.lang.delphi
Titolo: Aprire un file Word

Sembrerà banale ai più, ma qual è la via più semplice per aprire un
documento esistente in Word?
Non voglio scriverci nulla "da Delphi", solo aprirlo e dare la possibilità
all'utente di salvarlo con un altro nome.
Che schifo l'assenza della relativa documentazione....
Grazie.
           BedBaol


Per il poco che so io ci sono i componenti per l'Automating di Office
attraverso Delphi ... di più non so dirti ... questo è il POCO che so io ...
magari, anzi di sucuro, gli altri ti saranno di più aiuto di me! ... ciao
..::[ Panz ]::..

 ha scritto nel messaggio
news:Bau5a.288894$AA2.10...@news2.tin.it...


 ha scritto nel messaggio
news:kdG5a.291206$AA2.11...@news2.tin.it...


> Che schifo l'assenza della relativa documentazione....
La doc di word non compete a Mamma Borland.
Se fai una installazione custom di M$Office puoi spuntare la casella
relativa alla guida VBA dove trovi la descrizione di tutta l'interfaccia
offerta da Office disponibile per OLE automation.
Tale interfaccia può essere utilizzata usando le funzioni CreateOleObject e
getActiveOleObject di Delphi.
Bye
A.
Newsgroup: it.comp.lang.delphi
Titolo: Eccezione non gestita da try-except

Buongiorno a tutti
Una mia applicazione, in un thread secondario, esegue la connessione ad un
database. Se questa connessione fallisce (e può capitare), l'exception viene
gestita per evitare che l'applicazione ne risenta.
Il codice in pratica è:
makeLog('Accodamento MDB->Navision in corso...',Debug,LTInfo);
TRY
 tabellaODBC.ExecuteQueryDefSQL;
 makeLog('Accodamento MDB->Navision riuscito',Debug,LTInfo);
 ok:=true;
EXCEPT
 makeLog('Accodamento MDB->Navision fallito',Debug,LTERROR);
END;
da questo codice mi aspetto che se viene sollevata una qualunque eccezione,
essa non raggiunga mai l'applicazione, ma rimanga intrappolata nell'except.
Sul mio PC (W2000Pro+Delphi 5Pro) questo non funziona.
Mi viene mostrata la finestra con "si è verificato l'errore exception
eccezione software sconosciuta (0x0eedfade) nell'applicazione alla posizione
0x7962a4e1". Questo _fuori_ dall'IDE di delphi... facendo partire il
programma direttamente da Explorer.
Eseguendo il programma su Windows2000Srv, il programma *si chiude
direttamente senza sollevare errore*. Nessuna traccia neppure nel registro
eventi.
Il problema è che io so il motivo dell' errore, e non posso farci nulla. In
pratica le connessioni contemporanee al database sono contate (e sotto
licenza) se le licenze flottanti sono finite, la connessione è rifiutata (e
qui l'eccezione)... ma io non posso sapere se le licenze sono finite da
delphi...
Avete qualche suggerimento da darmi?
Ciao
Matteo

 eventi.
Su win server è attivo di default il drwatson.
Se vuoi vedere i veri errori generati dalla tua applicazione lo devi
disattivare.
Su questa cosa ci ho perso la testa per una 20a di minuti: avevo una app che
usa midas.dll e la dll non era registrata ma il buon watson si limitava
creare una riga non so in quale dei log degli eventi di sistema codificata a
modo suo.
Per la cronaca, l'unoco modo di disattivare drwatson consiste nel rimuovere
o alterare a mano alcune voci del registry. Per info + preciso cerca su
google o sulla guida in linea di windows.
Per il resto, 6 certo che la tua app non si inkazzi *prima*  di arrivare al
punto in cui gestisci la eccezione?
Bye
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
zzato(at)supereva;it
Please, don'r reply this message.
Use this address:
zzato(at)supereva;it

Sul mio PC (W2000Pro+Delphi 5Pro) questo non funziona.
Quando si ha a che fare con il multithreading, le situazioni si
complicano sempre.  Sotto Windows, ogni thread ha un suo "call stack".
Questo significa che un'eccezione sollevata dal codice del thread,
sfugge al normale controllo della VCL (che, ricordalo sempre, non è
thread-safe per il 90% del codice).  Il mio suggerimento è quello di
"trappare" l'eccezione con try/except nel metodo Execute, non cercare
di mostrare l'errore nel codice del thread, ma comunicalo (mediante
gli ordinari meccanismi di sincronizzazione) al thread principale.
Newsgroup: it.comp.lang.delphi
Titolo: try ... except senza messaggio

 nessun messaggio ma il ciclo continui tranquillo
Il tuo codice è corretto. L'eccezione la vedi solamente perchè
l'applicazione è in debug dentro Delphi. Se lo esegui senza delphi non
vedrai nulla.
Ciao
Matteo

nessun messaggio ma il ciclo continui tranquillo
Suppongo che il tuo problema si verifichi soltanto quando esegui il
codice passo-passo dall'IDE, in quanto se il programma gira
normalmente, dovrebbe accadere proprio quanto chiedi.  Se e` cosi`,
vai su Tools/Debugger Options/Language Exceptions e spunta la checkbox
"Stop on Delphi Exceptions".
-- 
Andrea Laforgia
#exclude <windows.h>

Premesso che non condivido questa cosa in quanto, non sai XCHE è anato in
eccezione complicando quindi un processo di debug, il codice che tu hai
postato non mostra alcun messaggio. Se vedi il msg a DESIGNTIME è perchè hai
attiva, tra le opzioni di debug, la "stop on delphi exception".
Bye
A.

Grazie a tutti e tre !

Buona sera :
vi posto i miei problemi :
   while (not (db.Connected)) and (X<10000) do
    begin
        try
            db.Connected := true;
      except on exeption do
            begin
            Inc(X);
            Sleep(10);
            end;
        End;
    end;
  come faccio a far in modo che se entro nell'eccezione non si visualizzi
nessun messaggio ma il ciclo continui tranquillo
Come al solito grazie a tutti

   while (not (db.Connected)) and (X<10000) do
Scusa la domanda banale e superflua, ma la curiosità è troppa: perche' tentare 10mila accessi?
Non sono troppi? Non c'e' un modo per ottimizzare, magari con timer?
Ciao
Morde.
morde [at] programmer [.] net

eccezione 
In generale sono d'accordo, ma in molti casi puo` essere comodo (il
che non vuol dire che sia necessariamente corretto a livello formale)
eseguire un try/except, senza trappare l'eccezione.  
Se la cosa non produce grandi danni, vedi:
function IsAnInteger(S: String): Boolean;
begin
  Result := True;
  try
    StrToInt(S);
  except
    Result := False;
  end;
end;
...si puo` soprassedere, per una volta, sugli aspetti formali...


 ha scritto nel messaggio
news:mebo2vcnvor43n0jt...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Derivare un componente?

Dovrei modificare una procedura del componente TShellTreeView.
In sostanza si tratterebbe di  modificare una semplice riga inserendo una
condizione:
procedure TCustomShellTreeView.WndProc(var Message: TMessage);
var
  ImageListHandle: THandle;
begin
  case Message.Msg of
{...}
    TVM_SETIMAGELIST:
      if not FImageListChanging and (Message.WParam<>TVSIL_STATE) <-- QUI !
     then begin
{...}
      end
      else inherited;
  else
    inherited WndProc(Message);
  end;
end;
Quale sistema suggerite? Purtroppo non sono ancora in grado di derivare un
componente. Se questa fosse l'unica strada dove posso trarre informazioni al
riguardo?
Grazie
Ciao
Valter

 riguardo?
Ho aggirato il problema alterando direttamente il sorgente dello
TShellTreeView, disinstallando e reinstallando il package con la unit
modificata. Si trattai in fin dei conti di una bug (che si è dimenticata
degli StateIndex ) dunque l'operazione è ammissibile...
ma se volessi ripristinare la condizione originaria e duplicare il package
con un'altro nome?
La guida alla scrittura dei componenti non è esaustiva e trattandosi di un
package (che comprende altri tre componenti) se cerco di derivare solo una
nuova TShellTreeView ottengo degli errori causa dipendenze varie.
Dove potrei trovare delle info al riguardo?
Grazie e ciao
Valter

 nuova TShellTreeView ottengo degli errori causa dipendenze varie.
Domanda: hai creato un nuovo package da compilare con la classe che eredita 
TShellTreeView? In caso di risposta affermativa, quali sono gli errori di 
dipendenze che ti vengono mostrati?
    Saluti,
    Antonio

Newsgroup: it.comp.lang.delphi
Titolo: Liminare un campo persistente

Nella mia Table ho dei campi persistenti.
In alcuni casi vorrei eliminare un campo persistente
ma non so propiro come fare...
Uso Delphi 7
Grazie

 ma non so propiro come fare...
Lo vuoi eliminare quando il programma è in esecuzione, cioè a runtime, o 
in fase di progettazione, cioè a designtime?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Lo voglio eliminare a runtime
A design time tutti i campi sono persistenti; se fosse utile
posso mettere il campo da eliminare per ultimo della lista.
Grazie
C.

Newsgroup: it.comp.lang.delphi
Titolo: ListBox modificato

Esiste un componente tipo ListBox simile a quello di outlook con Oggetto,
Da, Inviato etc?
Un listbox, cioč in grado di avere piů colonne differenziate.
Grazie
Iding

 ha scritto nel messaggio
news:LxA58.2205$ia6....@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: [d5][d6] mettere in esecuzione automatica

ciao a tutti, qualcuno sa come impostare in esecuzione automatica un
software??
Simone

)

 ha scritto nel messaggio
news:2jdsaeF...@uni-berlin.de...


Newsgroup: it.comp.lang.delphi
Titolo: icone e pulsanti con eseguibile da 10mb

ciao a tutti, avendo un programma pieno di grafica e di pulsanti grafici mi
ritrovo ad avere un eseguibile di quasi 10mb... è possibile inserire tutta
la grafica in file dll e caricarli??? avete qualche spezzone di codice che
mi possa aiutare?
Simone

 grafici mi ritrovo ad avere un eseguibile di quasi 10mb... è
Scusa se svicolo dal problema, ma come *cavolo* hai fatto a fare 10 mega???
Sei sicuro di non avere incluso TImage con immagini immense?
--
Jax
Journeying Artificial Xenomorph

all'interno ci sono delle immagini che devo usare per forza quindi
l'eseguibile si gonfia
"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:PIZ8a.1984$pG1....@news1.tin.it...



    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)

Scusa se svicolo dal problema, ma come *cavolo* hai fatto a fare 10 mega???
...Ho lavorato su codice che produceva un eseguibile che superava i 20
mega...
Ciao! ;)
Peppe
_____
ICQ #9759626
Togli levaccà per contattarmi via email.

 ha scritto nel messaggio
news:3e651c7f...@news.tin.it...


 .exe, risulta lento e faticoso, vorrei separare la grafica di base da
Lo so che non è la soluzione ottimale, ma che ne dici di usare uno zippone
(o tanti zippini, che è meglio, altrimenti se cambi un'immagine sola tocca
scaricare 10 mega) e poi unzippare le risorse che ti servono a runtime in
una cartella temporanea. Ovviamente nulla ti impedisce di avere data.dat
invece di data.zip... con questo espediente il 90% degli utenti non si
sognerà che è uno zip :)
Una volta fatta una funzione di estrazione, più generalizzata che puoi,
userai sempre quella senza preoccuparti di cosa faccia a basso livello.
Per gestire gli zip puoi usare DelphiZip che trovi su 
it.torry.net
.


 visto che in alcuni punti le immagini vengono ripetute,
Intanto, se non l'hai già fatto, visto che le immagini sono ripetute,
potresti ottimizzare un pò il tutto mettendole tutte in un unico form a
design e poi caricarle runtime sugli altri form dove ti servono.
Ciao
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: filtrare record per mese e anno

ciao a tutti,
come posso filtrare i record di una adotable per mese e anno contenuti in un
campo data del tipo 12/09/2002?
ciao

Devi usare un range di date.
DataDa:=EncodeDate(Anno, Mese, 1);
Inc(Mese);
If Mese>12 then
Begin
  Mese:=1;
  Inc(Anno);
end;
DataA:=EncodeDate(Anno, Mese, 1)-1;
Poi fai una select dove nel where imposti che la data sia compresa nel range
DataDa-DataA
Esempio:
Select * from Tabella Where Data between :pDataDa and :pDataA
Ovviamente passi i parametri alla Query:
ParamByName('pDataDa').asDateTime:=DataDa;
ParamByName('pDataA').asDateTime:=DataA;
Ciao,
  Fabio

vorrei solo filtrare record con il campo data del tipo 01/01/2002. Inserendo
il mese in una edit e l'anno in un'altra edit la dbgrid mi visualizza solo i
record che soddisfano la condizione
ciao
"Fabio Cillo" <fabio...@TOGLIQUESTOtiscali.it> ha scritto nel messaggio
news:amemks$odj$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.delphi
Titolo: Transazioni in BDE

 
          Salve a tutti, vorrei chiedere come si gesticono le transazioni su un db
firebird tramite bde con driver interbase, quindi con gli oggetti TDatabase,
TQuery....
Ho visto le proprietą ApplyUpdates e CommitUpdate che dovrebbero
corrispondere alla commit anche se non ho ben capito la differenza e poi non
ho capito come si fa per iniziare una transazione.
Grazie.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

ho capito come si fa per iniziare una transazione.
A livello di BDE non esistono le transazioni.... se usi FB dovresti
appoggiarti ad altri componenti, credo.
Tecnicamente UpplayUpdates si riferisce alla cache dei record modificati
quando il dataset e' di tipo liveupdate. Ma non c'entra con le transazioni.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/


Con paradox io usavo questi comandi penso vadano bene anche nel tuo caso
visto che i componenti sono li stessi (TDatabase,
TQuery....)
TDatabase.StartTransaction inizia transazione
TDatabase.Commit   - conferma operazioni su database e chiude transazione
TDatabase.Rollback - annulla operazioni su database e chiude transazione
ApplyUpdates e CommitUpdate  (come si vede negli esenpi del help di delphi)
si usa solo con cached updates e servono per scrivere i dati da buffer
client a Database.
non č obbligatoria (anche se io con paradox pčer le operazioni pił complesse
la utilizzavo inn quanto mi dava maggiore sicurezza) e comunque le
transazioni sono indipendenti.
Usare tutte e due le cose puņ dare un minimo di sicurezza in pił (almeno con
paradox che in rete dą problemi se vi sono molti accessi simultanei) ma
tieni presente che con cached updates non gestisci i lock.
Spero di esserti stato d'aiuto.
ciao. Guido.

appoggiarti ad altri componenti, credo.
Meglio contestualizzare la mia affermazione: a livello di BDE non esistono le
transazioni.... *parlando dei DBF*.


 --
Ciao e Grazie, sicuramente mi sfugge qualcosa, comunque usando i metodi
StartTransaction, Commit & RollBack dell'oggetto TDatabase
su db firebird sembra andare tutto bene....

Newsgroup: it.comp.lang.delphi
Titolo: System try

Potete aiutarmi a trovare il codice necesario per minimizzare una 
applicazione nella system try?
Grazie 

 ha scritto nel messaggio
news:41e67c3b$0$138$5fc...@news.tiscali.it...


Grazie provo subito

 applicazione nella system try?
Leggi le FAQ:
4.8
-DOMANDA:
Come faccio a mettere un'icona nella Tray (l'area in basso a destra vicino
all'orologio) ?
Le trovi qui 
http://makeashorterlink.com/?T2E12583A
Ciao.
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

sono una raccolta eccellente e gratuita.
Le rx, nonostante le uso anche io,bisogna sconsigliarle in quanto sono morte
da un pezzo.
Per avere una versione delle stesse controllata e certificata deve scaricarsi
invece la jedi library o la jvcl, non ricordo bene. Cmq roba JEDI.
http://www.delphi-jedi.org/
Ciao! :)
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 da un pezzo.
Se mi fossi riferito ad un componente DB capirei l'osservazione in quanto
sono oggetti che hanno necessita di evolvere ed adattarsi, ma per avere
un'icona nella TrayZone ... dal primo windows 95, all'attuale XP non e'
cambiato nulla (in ambiente Win32).
Ciao Giorgio

Newsgroup: it.comp.lang.delphi
Titolo: info su list box

Salve. Sto creando un programma dove ho un listbox con x numero di elementi
e vorrei che quando clicco su un elemento y, in un editbox mi venisse
scritto qualcosa. Ma come posso fare?
GRazie per l'aiuto
FACS

scritto qualcosa. Ma come posso fare?
basta gestire almeno un evento appropriato e poi puoi scriverci quello che
vuoi....anche se tu non hai spiegato cosa vuoi fare di preciso. Dici che
vuoi veder "scritto qualcosa". Ma cosa ?
Prova con l' OnClick abbinato alla proprietà "ItemIndex".
In ogni caso è un problema facilmente risolvibile, anzi....non è un problema
!! :-)))
Ciao..
Antonio Tarolla
BSSoftware Tips Mailing - List Support
Newsgroup: it.comp.lang.delphi
Titolo: Come gestisco gli eventi di un bottone o altro?

Vorrei sapere cosa devo fare per poter ascoltare gli eventi di un bottone,
dove devo creare il codice, quali classi devo utilizzare e magari un po' di
codice di esempio così che passa sbatterci la testa!
Please Help me!
Vi dico già grazie!

 Vi dico gi` grazie!
Metti un bottone sulla form, vai sull'object inspector, Scheda events,
scegli l'evento che vuoi gestire, ti sposti leggermente a destra e fai
doppi click, scrivi il tuo codice, schicci F9 e gioisci.
Saluti.
P.S. Da questa tua domanda si capisce che non sei molto ferrato in
materia, ti suggerisco o di comprarti un buon manuale o di scaricarti
Essential Pascal ed Essential Delphi dal sito di Macro Cantu' (
http://www.marcocantu.com
 )
-- 
I'am what I'am, I do what I can

 Vorrei sapere cosa devo fare per poter ascoltare gli eventi di un bottone,
piazzi un bottone su una form, ci fai doppio clic sopra a design-time e 
viene creato automaticamente il codice per il gestore d'evento OnClick. 
Sender, per usare un termine mafioso, è il "mandante" dell'evento, cioè 
colui che ha generato l'evento. Mediante un opportuno typecast si può 
accedere a tutti i metodi e proprietà di Sender.
Esempio:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(QuotedStr((Sender as TButton).Name) + ' pressed');
//  oppure:
//  ShowMessage(QuotedStr(TButton(Sender).Name) + #32'pressed');
end;
-- 
Mauro Falzari ( 
http://digilander.libero.it/mauro.falzari
 )
"Se guardi nell'abisso, anche l'abisso guarda in te." (Friedrich Nietzsche)

 ha scritto nel messaggio
news:Uao2b.264016$Ny5.8...@twister2.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: Form e regioni

Ho un form personalizzato mediante la CreateWndRgn(...).
Praticamente del form appare solo la regione che mi interessa.
Questa personalizzazione va persa quando attribuisco al form lo stile
fsStayOnTop, nel senso che ricompare tutto il form!!
Sapete come si puó evitare?
Ho provato a richiamare la CreateWndRgn dopo aver cambiato la proprietá
stayontop, ma non serve!!
GRAZIE!

> Ho un form personalizzato mediante la CreateWndRgn(...).
Ahem... in che unit l'hai trovata ? io uso Delphi 5 e non la trovo fra
quelle di default.
Comunque... per il tuo problema, invece di usare quella funzione, puoi
creare la finestra dall'ide di delphi, e su oncreate, per esempio :
var wrgn : hrgn;
begin
 SetWindowLong( Handle,     GWL_STYLE,     GetWindowLong( Handle,
GWL_STYLE ) and not WS_CAPTION );
 height := clientheight;
 width  := clientwidth;
// questo toglie la caption bar ... vedi se ti interessa.
 wrgn := createellipticrgn ( 0,0,400,200);
 setwindowrgn (handle,wrgn,true);
 deleteobject (wrgn);
end;
Ciao, e dimmi se funziona...!  Davide DG

  SetWindowLong( Handle,     GWL_STYLE,     GetWindowLong( Handle,


 caption non mi interessa per ora....
Ciao, ho appena provato questo... funziona :
al posto di formstyle := fsstayontop usi l'api :
 setwindowpos (handle, HWND_TOPMOST,0,0,0,0,SWP_NOMOVE +SWP_NOSIZE);
per capire come funziona ti rimando al help ...
Ciao!! Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: Esportare porzioni di dati da una tabella formato paradox

Salve a tutti. Ho un piccolissimo problema. Vorrei esportare da un
archivio contenente per esempio 1000 fatture dall'inizio dell'anno alla
fine dell'anno. Ebbene da questo archivio cosi strutturato vorrei
esportare su di un dischetto 500 fatture dal 30 di marzo al 10 di
giugno. Vorrei sapere se è possibile e se è possibile fare l'inverso.
Attendo fiducioso una risposta. Il mio email e 
ppi...@tin.it
--
Posted from 
mta22-acc.tin.it
 [212.216.176.75]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message 38AB1A8A...@tin.it...


giugno.
Non ho capito bene...per queste cose le query sono la scelta migliore
ma devi spiegarti meglio...
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista

Newsgroup: it.comp.lang.delphi
Titolo: Orrore sul FormKeyDown....

Buongiorno a tutti e buona domenica.
Vi scrivo perchè ho scoperto un'ORRORE (non errore...proprio ORRORE)...
Il FormKeyDown (su una normalissima form) durante la pressione del 
tasto, viene scatenato continuamente...è normale?
Esempio di codice...
 
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
if Key = VK_F1 then
    listbox1.Items.Add('pippo');
end;
 
Mentre tengo premito il tasto F1 il listbox per magia si riempe di 
"pippo"...io me ne aspettavo solo uno!
 
Idee in merito? (devo usare i tasti funzione tassativamente...)
 
Grazie infinite!


Ed usare il ...KeyUp?

> Ed usare il ...KeyUp?
 
Sul keyup no ho problemi...
Il problema è che nel mio piccolo applicativo (per farla semplice), 
l'utente tiene schiacciato il tasto F1 e l'applicazione "ammutolisce un 
tmediplayer (pause) ed appena lo rilascia il tmediaplayer riparte (resume).
Purtroppo l'evento keydown viene scatenato continuamente dopo 2 secondi 
di pressione continuativa (in pratica si prende il "key-repeat" di 
windows...).
 
Idee?
 


Si'. Usi una variabile Stato: boolean che vale false allo start. Al 
primo evento keydown va a true e ci resta finche l'evento keyUp non la 
riporta a false.
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
if (Key = VK_F1) and (Stato=False) then
    begin
	listbox1.Items.Add('pippo');
	Stato:=True;
    end;
 
...
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
 
Shift: TShiftState);
if Key = VK_F1 then
 
	begin
 
	Stato:=False;
 
	end;

      end;
 
Proverò...sembra una soluzione banale ma efficace! :)
Thanks!