mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: OnKeyUp, down non funzionano

Salve a tutti, rieccomi a postare, sono uno di quelli che rompe sempre!:p
Ho un problema con l'evento OnKeyUp, OnKeyDown.
Ho scritto le seguenti istruzioni:
procedure TfmMain.FormKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if Key = VK_F4 then
  begin
    ......[Sequenza Istruzioni].....
    Key := 0;
  end;
end;
L'applicazione non mi scatena l'evento sulla form, ma solo sui singoli
oggetti.
Come devo fare per evitare di scrivere codice 100000000000 di volte, ovvero
una volta per ogni oggetto di ogni form?
Spero di essermi spiegato,
Grazie mille a tutti coloro che mi risponderanno,
Davide

Per ogni oggetto selezioni nell'object inspector l'evento che hai appena
fatto
A finale non fare doppio click ma seleziona l'evento dal menu a tendina

 ha scritto:

Non credo che il metodo predefinito ti dia Var Key: Word (per riferimento).
Non ho capito che cosa intendi ma comunque :
tu puoi definire una procedura ed assegnarla all'evento come credi.
E' sufficiente che gli argomenti della procedura/metodo siano
gli stessi.
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it


Mi correggo esiste Var nella dichiarazione predefinita.
Comunque tu puoi assegnare una procedura esistente all'evento se la
procedura è gia stata definita e scritta (solo Begin End); ed ha gli
argomenti permessi.


Grazie a tutti per la risposta...
Malgrado i vostri aiuti, ho trovato una soluzione, aiutato dal capo (seno'
che capo e???), per aggirare l'ostacolo.
Ho creato una voce di menu alla quale ho impostato come proprieta shortcut
il tasto prescelto.
Ad esempio alla voce Help il tasto F1
Dato che la voce di menu si trova nella form "contenitore" della mia
applicazione MDI mantiene attivo il controllo sui tasti premuti.
In questo e solo in questo metodo mi funziona, altrimenti dovevo linkare
tutti gli oggetti di tutte le form allo stello evento, cosi come ha detto
Mario (che ringrazio), se non ho capito male.
In questo modo mi sembra di aver aggirato l'ostacolo in maniera egregia!
Grazie ancora a chi mi ha risposto,
Davide

Nell'help do Delphi trovo:
TCustomForm.KeyPreview;
Specifies whether the form should receive keyboard events before the
active control.
property KeyPreview: Boolean;
Description
If KeyPreview is True, keyboard events occur on the form before they
occur on the active control. (The active control is specified by the
ActiveControl property.)
If KeyPreview is False, keyboard events occur only on the active
control.
Navigation keys (Tab, BackTab, the arrow keys, and so on) are unaffected
by KeyPreview because they do not generate keyboard events.
KeyPreview is False by default.
Acqua
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 active control.
.........
Grazie!!!!!
Newsgroup: it.comp.lang.delphi
Titolo: script inno setup

è possibile impostare in uno script di inno setup la possibilità di avviare
prima dell'installazione del software principale l'installazione di software
esterni(che hanno già un loro setup)? qualcuno mi saprebbe dare un esempio?
Grazie.

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

Newsgroup: it.comp.lang.delphi
Titolo: Microsoft's .Net IS Borland's Product

Segnalo quest'altra notizia
Conspiracy Theory: Microsoft's .Net IS Borland's Product
Is it possible that the whole .NET framework is Borland's idea?
http://delphi.about.com/od/delphifornet/a/conspiracydnet.htm?nl=1
Saluti a tutti
GP

 Segnalo quest'altra notizia
E' vecchia come il cucco... :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 ha scritto nel messaggio
news:43f2ee23$1...@x-privat.org...


E poi Borland era capace di fare molto meglio...
Non credo visto che il papà del C# è, in fondo, lo stesso di Delphi...

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

Ciao a tutti,
il mio problema è il seguente 
ho un Monthcalendar dal quale prelevo la data
var data1 : TDate;
....
data1 := MonthCalendar1.Date;
se la data che prelevo è la data corrente 
o corrisponde alla data che ho settato nella proprietà date del
MonthCalendar la variabile data1 non è un valore xxx ma è un valore
xxxx.yyyy
come faccio a togliere .yyyy (che dovrebbe corrispondere hh.mm.ss)???
grazie 
Enrico

 wrote in message
news:3FEE2276...@lightblueeyes.it...

data1 := Trunc(MonthCalendar1.Date);
Poochie©

Grazie Mille!!!
Semplice ma efficace
non ci avevo pensato!!
Ciao
Enrico
Poochie ha scritto:


Newsgroup: it.comp.lang.delphi
Titolo: Domanda quasi cretina

Vediamo se mi potete aiutare,
mi servirebbe un componente di tipo TIMAGE ma che carichi l'immagine da 
un indirizzo web (tipo 
www.sito1.com/img/immagine.jpg
) che dite si puo' 
fare?
Grazie,
David

SI
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

OK grazie ma il come?
thank

Hai bisogno di un componente che ti scarichi l'immagine (tipo tidHTTP o
tidFTP), salva l'immagine(in file o in memoria) e poi la ricarichi sul
TImage
Bye,
Raktzo

non lo stare a pensare cosě facendo lavori il triplo.
Esiste un vcl che si chiama TWebImage e visualizza l'immagine web tramite un
URL.
Ciao e fammi sapere.
Pinco Pallino


Newsgroup: it.comp.lang.delphi
Titolo: Problemi di risoluzione

Ciao a tutti,
avrei un problema che sicuramente potrete risolvermi
ho realizzato un programma per la gestione di modulistica varia ma è
visualizzabile in una risoluzione 800x600. Considerato che il numero di
campi sui form è abbastanza elevato, sono costretto ad usare quella
risoluzione minima.
Il PC dove andrà installato, avendo una scheda grafica vecchiotta, arriva al
massimo a 640x480.
La domanda è questa: esiste qualche modo la possibilità di autodimensionare
il form con tutti i suoi componenti in modo tale che si adatti alla
risoluzione attuale ?
Grazie anticipatamente per la risposta.
Ciao

 ha scritto nel messaggio:
forse cerchi ScaleBy()
HTH
--
- Carlo -
c.b...@libero.it
Newsgroup: it.comp.lang.delphi
Titolo: [ot] usare .net per interfacciarsi a paradox

ciao a tutti, è possibile via asp oppure via applicazione web (che gira su 
server IIS) interfaccare tabelle paradox?
Simone 

 server IIS) interfaccare tabelle paradox?
Il tag [OT] va bene per discussioni che sono variano leggermente 
rispetto al contesto del forum......ma tu sei troppo OT. :-)
Non vedo perchè non dovresti postare nei gruppi indicati per le 
tecnologie a cui fai riferimento: hai senz'altro maggiori possibilità di 
risposta.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

ok scusa, pensavo fosse in argomento con delphi visto che il db sono file 
paradox
Simo 

 paradox
Solo se li usi con Delphi, oppure se con "usare .NET" ti riferisci 
all'uso di Delphi 8/2005/2006 (con le tecnologie 
VCL.NET
, WinForms o 
ASP.NET
). :-)


Newsgroup: it.comp.lang.delphi
Titolo: tesina sull'intelligenza artificiale

Sto preparando una tesina sull'intelligenza artificiale. Sarò grato
a chiunque mi vorrà segnalare materiale interessante (o anche
vagamente attinente) all'argomento. Grazie mille
in anticipo
felis
www.ambovo.com

vagamente attinente) all'argomento
Il materiale interessante ce l'hai dentro la scatola cranica.
A parte gli scherzi, non ritieni opportuno chiarire che tipo di
applicazioni ti interessano?
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.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: e-commerce Web Server Application HELP!

Salve a tutti, ho un piccolo problema:
Ho sviluppato un motore di e-commerce con una Web Server Application (DLL)
che ha (purtroppo) la necessità di usare un database Access.
Il problema si viene a creare quando il cliente aggiorna i dati.......
La DLL non lavora soltanto per il singolo utente ma per diversi clienti
(tenendo traccia dell'IP assegnato)
Oltre alla DLL che si occupa del motore di e-commerce esiste un'altra DLL
che si occupa dell'aggiornamento dei dati.
Tale asggiornamento avviene in questo modo:
Il cliente via FTP invia il suo Database al server e poi tramite una
chiamata HTTP lancia la DLL di aggiornamento; Tale DLL apre due Connessioni,
una al DB trasferito ed una al DB che realmente viene usato dall'e-commerce;
Avendo il problema che durante l'aggiornamento potrebbero trovarsi in linea
degli utenti che lavorano con l'è-commerce, non posso aprire le tabelle in
modalità escusiva x Svuotarle e Riempirle con i nuovi dati o compattare il
DB.
Avete qualche consiglio da darmi?
X quanto riguarda l'aggiornamento attualmente x ogni tabella PRIMA elimino
record x record e poi record x record inserisco i nuovi dati :(  ?
Altro problema è che aggiornando, il DB aumenta sempre + notevolmente di
dimensioni...... perchè? Perchè non usa lo spazio svuotato.....
Inizialmente pesava 7,8 MB ieri pesava 1,2 GB..... Bisogna compattarlo? Se
sì, Come? Ma se lo compatto devo accedervi "esclusivamente"!
HELP! Tra una settimana dovrei consegnare il lavoro e non sò proprio cosa
fare
 Grazie a tutti x l'attenzione.
Ciao
--
Alessandro Storniolo

 ha scritto nel messaggio
news:fCkW6.4561$T52.1...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: salvare un file di testo in formato unix.

devo salvare il testo in una tstringslist come un file di testo
formato unix/linux.
quale e' la procedura.
ovvero che simboli devo usare per eon e quale x eof?
Grazie
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <Remove DELTHIS from the address to reply>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_

 quale e' la procedura.
Devi semplicemente usare al posto di CR+LF come 
sequenza di a capo, solo LF.
Cioe', anziche' #13#10 solo #10.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Cioe', anziche' #13#10 solo #10.
ok grazie per la tua risposta quindi cosi e' corretto?
ciao
procedure saveunixformat(filedata:tstrings;filename:string);
const lf=#10;
var stream:tfilestream;
    text:string;
    I:longint;
begin
stream:=tfilestream.create(filename,fmCreate,fmShareExclusive);
try
for i :=0 to filedata.Count-1 do begin
    text:=filedata.Strings[i]+lf;
    stream.WriteBuffer(text[1],length(text));
    end;
finally
stream.Free;
end;
end;


 ovvero che simboli devo usare per eon e quale x eof?
non mi risulta che i file di testo in unix siano diversi
dai file di testo DOS.
Se parli di un file di testo ASCII non c'e' differenza.
saluti,
airenzo
P.S. complimenti per la signature :)

 Se parli di un file di testo ASCII non c'e' differenza.
Certo che lo sono, invece.
Sotto UNIX e' diversa la sequenza di "a capo" utilizzata.


Sotto UNIX e' diversa la sequenza di "a capo" utilizzata.
non e' che sai anche mac?


non e' che sai anche mac?
Nel caso dei MAC credo che lo standard sia CR anziche'
CR+LF.
In sostanza:
Windows: CR+LF
Unix:    LF
Mac:     CR
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

Mac:     CR
Grazie mille di nuovo :D
Ciao



buono a sapersi!
ma io ho sempre letto sotto windows file di testo creati con il 'vi'
di linux...
in questo momento, comunque, mi e' venuto un dubbio!
Va beh, la prossima volta ci faro' caso
saluti,
airenzo
Newsgroup: it.comp.lang.delphi
Titolo: Stampa su stampanti ad aghi

Ho la necessità di stampare delle elaborazioni su alcune stampanti ad aghi
in modalità testo (saltando il driver di Windows). Qualcuno conosce qualcosa
che mi funzioni decentemente con delle funzionalità di definizione del
layout della stampa?
grazie

 wrote in message
9v2317$lgp$1...@fe2.cs.interbusiness.it...

che io sappia vi è un solo metodo stanfa in un file ascii (testo) e usa il
vecchio comando Print del Dos per stamparlo.
Ho visto parecchi applicativi che usanoi questo metodo.

 ha scritto nel messaggio
news:9v2317$lgp$1...@fe2.cs.interbusiness.it...


 ha scritto nel messaggio
news:9v2pi6$ciae7$1...@ID-114068.news.dfncis.de...


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

qualcuno sa come aumentare il tempo di permanenza degli Hint?
Ciao e grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

In "TApplication" trovi tutto ciò che puoi fare sugli hint.

Newsgroup: it.comp.lang.delphi
Titolo: DBGrid & QueryField

Ciao a tutti e grazie per tutti gli aiuti che mi state dando.
Atro quesito:
Ho un campo percentuale della mia Query e vorrei venisse visualizzato in un
altro colore quando è negativo:
nero se positivo o zero
e rosso se negativo.
C'è la proprietà di formattazione di edit del campo che mi permette di
associare formati diversi di layout in base se >0 =0 <0, ma posso cambiare
anche il colore?
Che altro metodo posso utilizzare?
--
Chrys-bj
http://digilander.iol.it/chrysbj

 ha scritto nel messaggio
news:JliB6.17531$r67.4...@news2.tin.it...


 ha scritto nel messaggio
news:9b4bns$rl8$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.delphi
Titolo: Activex, questo sconosciuto!!!

Un saluto al tutto il ng.
Ho alcune curiosità per quanto riguarda l'activex, appunto.
1) Come si fa a evitare che un'altro utente possa utilizzarlo nei
propri programmi senza il mio consenso?
Ho sentito parlare di chiavi digitali che dovrebbero crittografare il
codice, da richiedere direttamente alla microsoft, qualcuno ne sa qualcosa?
Come si fa?
2) E' vero che la tecnologia activex non è compatibile con tuti i browser?
Quali sono quelli compatibili?
Grazie a quanti volessero aiutarmi a capire come stanno le cose.
ciao a tutti.

 Quali sono quelli compatibili?
Internet Explorer li supporta
Netscape li può supportare se ha installato un plug in che se non sbaglio
dalla versione 4.qualcosa è fornito assieme al browser

 ha scritto nel messaggio
news:94hm1n$4g0$1...@lacerta.tiscalinet.it...

    Ma ovviamente funzionano solo su sistemi Windows - Based... Vale a dire
che un ActiveX non può girare sotto Netscape su Linux o su Mac...
    Saluti!
--
_________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
_________________________________

Un ActiveX è un programma Win32. Quindi funziona solo su una macchina con
sistema operativo Windows.
Newsgroup: it.comp.lang.delphi
Titolo: Librerie grafiche

Hola a tutto il ng
Come da oggetto, per poter dare agli applicativi una veste personale (cioè
evitando i componenti standard), voi come vi muovete ?
Io vedo 2 possibilità:
1) mi riscrivo il componente lavorando sul metodo Paint
2) scarico qualche libreria (free o no).
Suggerimenti ? Indirizzi conosciuti e fidatio da cui scaricare componento
grafici bell'eppronti ?
Non so se si nota, ma non ho molta voglia di ridisegnarmi bottoni e
quant'altro .....
Grazie
Andrea

Personalmente ti consiglio VCL Skin (
www.link-rank.com
) anche se non è 
proprio gratuita (siamo sul 180 dollari statunitensi). Comunque è 
favolosa - scaricati la demo
Bye,
David

Scaricate e provate
Ha un paio di difetti:
1) non permette di controllare i singoli componenti
2) ci sono problemi nel controllo di oggetti creati a runtime (le funzioni
indicate nell'help non fanno quanto dovrebbero...)
Qualcun'altro ha suggerimenti ?
Grazie
Andrea

Newsgroup: it.comp.lang.delphi
Titolo: Componente TChart

Qualcuno sa dirmi se dopo aver visualizzato dei punti nel Componente TChart
sia possibile calcolarsi e disegnare una retta o una curva generica che
mostri la
tendenza di
questi punti? Si badi bene non mi interessa una spezzata che unisca i vari
punti
ma una curva che ne evidenzi l'andamento.
Grazie a chi mi vorrà rispondere.
Giordano Vicoli  (
giordan...@casaccia.enea.it
)

 mostri la tendenza di questi punti?
Se tu puoi aggiungere una serie (2 punti che individuano la retta), basta
che calcoli i coefficenti
b0 e b1 della retta di regressione noti i valori (è una sommatoria... se ti
servono le formule te le posto).
Non so se si possa fare in automatico.
Ciao, Davide DG

 Ciao, Davide DG
Ti ringrazio del suggerimento ma io cercavo qualcosa di automatico che mi
sembra
strano non sia previsto dal componente TChart.
Grazie e ciao,
Giordano Vicoli

Newsgroup: it.comp.lang.delphi
Titolo: cgi con delphi

sicuramente è gia' stato chiesto...
dove posso trovare informazioni (dalla a alla z ... a prova di imbecille
^__^) per creare cgi con delphi?
grazie per l'aiuto

 wrote in message 9b5brb$er$1...@nreadA.inwind.it...

Newsgroup: it.comp.lang.delphi
Titolo: OnClick di TMenuItem creati dinamicamente

Ho creato dei TMenuItem cosě:
procedure FillHardDriveInfo;
var
  MItem : Array [67..90] of TMenuItem;
  i : Integer;
begin
  for i := Low(MItem) to High(MItem) do begin
    if GetDriveType(PChar(Chr(i) + ':\')) = DRIVE_FIXED then begin
      MItem[i] := TMenuItem.Create(FormMain.PopupMenu);
      MItem[i].Caption := Chr(i) + ':\'
                        + ' "'
                        + GetDriveLabel(Chr(i))
                        +'" '
                        + GetDriveAvailableSpace(Chr(i))
                        + ' ('
                        + GetDriveMaxSpace(Chr(i))
                        + ') '
                        + GetDriveFileSystem(Chr(i));
      //MItem[i].Bitmap.LoadFromResourceName(0,'HARDDRIVE');
      MItem[i].Bitmap := FormMain.PopHDriveInfo.Bitmap;
      //FormMain.PopupMenu.Items.Add(MItem[i]);
      FormMain.PopHDriveInfo.Add(MItem[i]);
    end;
  end;
end;
Ora cosa devo fare per assegnare degli eventi Onclick per ognuno di essi?
Grazie, Poochie

Spero ti serva.
Unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus;
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    ddd1: TMenuItem;
    hhh1: TMenuItem;
    procedure hhh1Click(Sender: TObject);
    procedure Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.hhh1Click(Sender: TObject);
begin
  ShowMessage ('Ciao') ;
 end;
procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage ('addio') ;
end;
end.
--------------------------------
Inviato via 
http://usenet.libero.it

 wrote in message
news:151Z26Z199Z63Y...@usenet.libero.it...

ho risolto cosě con un button per esempio...
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure Cliccato(Sender : TObject);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  var Nuovo : array[1..10] of TButton;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Nuovo[1] := TButton.Create(Form1);
  Nuovo[1].Left := 10;
  Nuovo[1].Top := 10;
  Nuovo[1].Visible := True;
  Nuovo[1].Parent := Form1;
  Nuovo[1].Caption := 'Hey, me son nuev';
  Nuovo[1].Width := 120;
  Nuovo[1].OnClick := Cliccato;
end;
procedure TForm1.Cliccato(Sender : TObject);
begin
  Showmessage('LOL! Funziono!');
  if Sender = Nuovo[1] then Showmessage('button');
  //dall'index di Nuovo posso far dipendere il codice da cosa č stato
cliccato!!!!!
end;
end.
Newsgroup: it.comp.lang.delphi
Titolo: Beep

Ciao a tutti,
Quando premo invio in un TEdit viene prodotto un suono di sistema. E'
possibile inibirlo?
Enzo

 possibile inibirlo?
Devi "annullare" il tasto sia nell'OnKeyPress che nell'OnKeyDown...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.delphi
Titolo: report manager clx

Nel mio gestionale scritto in delphi ho utilizzato il tool in oggetto per la
creazione di report. Un cliente m'ha consigliato di modificare il report del
fatture ma ho un grosso problema.
Il report è costituito da:
Page Header(intestazione fattura);
Group Header(intestazione corpo fattura con raggruppamento per n° di
documento);
Detail(corpo della fattura quindi elenco articoli venduti);
Group Footer(piè della fattura);
Page Footer;
Il problema è che, giustamente, il piè di fattura mi viene stampato solo
dopo la stampa dell'intero corpo. Esteticamente va bene se il numero
articoli(righe) è inferiore ai 25, nel mio caso, in quanto vanno tutti nella
prima pagina. Se è superiore, il piè di pagina viene stampato solo
sull'ultima pagina della fattura e sulle altri viene sostituito sempre dalle
righe del corpo. Ho pensato di spostare il contenuto del Group Footer nel
Page Footer facendo stampare, tramite un parametro, i dati solo nel
prospetto dell'ultima pagina ma funziona solo se stampo una sola fattura....
qualcuno mi saprebbe indicare come fare o dove trovare informazioni?

Non č semplice capitano problemi simili anche con Report Builder.
Bisognerebbe avere il report sotto mano per aiutarti. Prova qualche forum
piů specifico.
Saluti

Newsgroup: it.comp.lang.delphi
Titolo: Accedere ad un DB MySql

Ciao a tutti,
avrei necessità di sviluppare un'applicazione che acceda ai dati di un
DB MySql. Quali componenti sono necessari? E inoltre, devo scaricare
ed installare qualche driver dal sito di MySql?
Grazie mille in anticipo per il vostro aiuto

 ed installare qualche driver dal sito di MySql?
Fai una ricerca su questo gruppo (usando Google): se ne è parlato molto 
spesso in passato.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Grazie per la tua risposta. Ho scoperto che è possibile utilizzare la
libreria open source ZEOS. Qualcuno saprebbe come fare per installarla
su C++Builder 6 ?
Buon anno nuovo a tutti !!
-
http://carmelosaffioti.blogspot.com
-
Newsgroup: it.comp.lang.delphi
Titolo: Indy9 - Meglio Execute o Cammand?

Una dmanda rapida:
pensate sia piů performante usare TIdTCPServer.Execute od il .Command
dovendo utilizzare 5 o al massimo 6 comandi?
E' un'informazione che non ho trovato...
V.

 
Dalla mia breve (ma intensa) esperienza con le indy e il fantomatico 
tcpserver posso dirti che per il tuo caso è da vedersi sotto la luce di 
una scrittura elegante del codice delegando ai Command con tanto di 
eventi il codice da eseguire in base al comando stesso. Ciò non toglie 
che avendoli a disposizione si possono usare in tutti casi migliorando 
la leggibilità del codice e eventuali state machine.
Dan

 leggibilità del codice e eventuali state machine.
Se non ti risultano controindicazioni, e non ne vedrei il motivo, i Command 
piacciono di più anche a me per tutte le ragioni che hai già elencato.
Grazie
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: azzeramento campi

ho un problema a cancellare (valore=zero) dei campi di una tabella. per il
campo stringa non ci sono problemi (=null oppure ='') funziona comunque. come
posso fare per annullare un campo TdateTime e un campo Tcurrency????
Non voglio mettere il TCurrency=0 per altri motivi.
-- 
Posted from 
ge1-835.dialup.tiscalinet.it
 [62.11.88.67] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Non voglio mettere il TCurrency=0 per altri motivi.
Prova con Clear
TMiaTabella.fieldByname('CampoData').Clear;
Saluti


IBDataSet1['NomeCampo'] := null;
Max

Newsgroup: it.comp.lang.delphi
Titolo: Shortcut su ActionToolBar

Ciao a tutti,
avrei un problema con i shortcut assegnati a una ActionToolBar; ho
creato 3 item e inserito il carattere & all'inizio del caption in modo
da sottolineare la prima lettera per essere eseguita anche con la
combinazione dei tasti ALT+char. Di questi 3 item solo uno presenta la
sottolineatura nonostante tutte le proprietà tra i vari item siano
identici; purtroppo però in nessun caso la combinazione dei tasti
funziona. Non ho trovato molte info su questo problema e non so come
risolvere, da manuale dovrebbe essere tutto corretto. Ho visto che
esiste la possibilità di assegnare altri shortcut ai vari item ma non
essendoci la combinazione con ALT ma con CTRL, SHIFT e altro, non è
proprio quello che vorrei usare.
Avete idea di come risolvere?
Grazie mille

UP! Nessuno sa darmi una mano? E' una stupidata ma non so perchè mi da
problemi, dovrebbe essere una cosa semplice.
Newsgroup: it.comp.lang.delphi
Titolo: QuickReport e Stampanti

Scusate, ma non sono molto OT.....
Qualcuno di voi ha dei problemi (come ne ho io) con QReport per D5
utilizzando una stampante Epson 750?
Fino a ieri con tutte le altre stampanti (HP600-HP690-Epson 460) mai avuto
problemi!!
Non č un problema hardware (ho provato su altri PC), ma secondo me č
QReport.
Suggerimenti???
Grazie!

Che problema hai esattamente ?
Un amico ha avuto  problemi con Epson LQ 750.
Ciao.


Io ho la Stylus Photo 750 e con QuickReport (3.0.5) - sia standard che
professional non ho alcun problema. !!!
Ciao
Solid Snake

Con ogni altro programma, la mia 760 è una scheggia.... con QR: NISBA!
Mi succede una cosa del genere con QR e la mia Epson LQ570+ se uso i
driver Epson. Invece tutto va bene con i driver Microsoft per questa
stampante. Prova a installare una seconda stampante usando pero' i
driver nativi Microsoft.
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: Comunicazione tra thread

Buongiorno a tutti!
Devo far passare dei dati binari da un thread ad un altro, uno in scrittura
e uno in lettura. Le due operazioni devono restare indipendenti.
Esiste un componente che svolga questo compito (come uno stream, una
pipeline, o altro)?
Grazie,
Demis.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Usa semplicemente SendMessage o PostMessasge passando in lparam o
wparam il puntatore alla tua struttura dati.
Ciao, Rocco

 e uno in lettura. Le due operazioni devono restare indipendenti.
sinceramente, non ho capito cosa di preciso devi fare...
1) da dove vengono letti i dati binari?
2) dove vengono scritti i dati binari
3) hai un solo storage di questi dati binari ed entrambi i th devono 
accedere (1 in read + 1 in write?
...
A

 accedere (1 in read + 1 in write?
Lo storage intermedio in tal caso è la memoria, ed entrambi i thread devono
poter accedere, uno in lettura ed uno in scrittura.
In pratica ho un thread campionatore che preleva campioni a gruppi di 1kb
dalla scheda audio; siccome mi serve che l'audio venga riprodotto (quasi) in
tempo reale ho creato un thread riproduttore che deve prelevare dalla
memoria questi campioni ed inviarli alla scheda audio. Dunque mi serve un
'canale' FIFO per passare i gruppi di campioni da un thread all'altro.
Grazie dell'aiuto.


 Demis.
Se non ho capito male i thread appartengo alla stessa applicazione potresti
allora:
1- il metodo syncronize da ogni thread (che richiama la procedura di lettura
e nell'altro thread quella di scrittura).
2- i "semafori" per sincronizzare le funzioni di lettura e scrittura,
guardati nell'help delle API i Mutex e WaitForSingleObject.
in entrambi i casi puoi usare come buffer dei semplici TMemoryStream, in
quando non devi comunicare tra piu' processi (se ho recepito bene)
Ciao Giorgio Padoan

 Ciao Giorgio Padoan
Ciao,
Andrea

 quindi č ( relativamente ) lenta.
Penso che ti stia confondendo. Le criticalsection sono senz'altro piů
veloci dei mutex, anzi sono l'elemento piů leggero per la
sincronizzazione dei thread. Per i problemi di race condition risultano
piuttosto adeguate.
Risultano carenti invece (per questo si ricorre successivamente ai
mutex o ai semafori) nel controllo dell'attesa di un thread da parte di
un altro thread, ma la loro leggerezza e forza sta proprio in questo.
Occorre solo saperle gestire e individuare quindi le loro limitazioni
per usare strumenti piů evoluti come quelli da te citati.
Antonio

 Antonio
Andrea

 che non fosse proprio poco efficiente.
Se ti riferisci alla TThreadList sono d'accordo con te che non è un
campione di efficienza. Bloccare e sbloccare completamente tutta la
lista piuttosto che i singoli oggetti è ovviamente molto pesante, e può
non essere la soluzione migliore in ambienti threaded.
I duplicati non ammessi per default, oltretutto non aiutano ;-) nelle
operazioni di base.
Ciao
Antonio

)
Newsgroup: it.comp.lang.delphi
Titolo: TImage e anti "flick"

Ciao,
ma come si fa a fare in modo che un TImage che viene
aggiornato di frequente "flicchi", cioč fare in modo che nn si veda il
fastidioso aggiornamento dell'immagine stessa??
E' possibile fare qualcosa?
Grazie mille!
Alan Solo

 aggiornato di frequente "flicchi", cioè fare in modo che nn si veda il


 ha scritto nel messaggio
news:m6ExPW+3toIzbR...@4ax.com...


Interessante, e pensare che il double buffering io lo ho sempre fatto a mano
conun TBitmap di appoggio....
:)))



Rispondo a questo messaggio perche' non riesco a farlo con quello originale.
Per un'immagine che si aggiorna di frequente, il TImage non e' il componente
adatto.
Meglio usare un TPaintBox.
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.delphi
Titolo: Problema di connessione a SQL Server via internet...

Ciao,
nel mio computer gira SQL Server 7.0 e vorrei accederci via internet con
ADOConnection.
come mai se nella stringa di connessione
di ADOConnection ci metto il mio ip mi da errore?
Questa e' la stringa:
Provider=MSDASQL.1;Persist Security Info=False;Data
Source=http:\\62.94.1.54;Initial Catalog=hrtools
Verifica connessione non riuscita.Errore durante l'inizializzazione del
provider. %1

 Source=http:\\62.94.1.54;Initial Catalog=hrtools
Hai provato a togliere il suffisso Http e lasciare solo l'indirizzo?
Bye
AS


Ciao Alberto,
si ci avevo provato ma nulla da fare.
Se faccio un ping mentre sono connesso mi dive che il server e' attivo, se
faccio partire personal web server, trovo il server correttamente ma se
tento di connettere un ADOConnection nulla da fare...

Di cose web ne so poco...
Non è che hai di mezzo qualcosa tipo proxy o robba simile?
Bye
AS

No, nulla....mah?


Bastava cambiare la libreria di connessione del Client di SQL Server.
Come prevedevo non era colpa del buon vecchio delphi..
Ciao!

> Bastava cambiare la libreria di connessione del Client di SQL Server.
cioč....?
BaiBai
AS

 ha scritto nel messaggio
news:aekvmm$4ri$1...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: elaborazione di immagini

Qualcuno mi sa indicare velocemente dove posso trovare componenti o codice
già scritto per aumentare/diminuire luminosità/contrasto ad un'immagine
oppure per modificare i livelli di RGB?
Grazie 1000

 ha scritto nel messaggio
news:bh2clk$nd9$1...@le1.cs.unibo.it...

Cerca su 
www.delphispirit.com
 oppure 
www.torry.net
Ciao,
Luca.

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

ciao a tutti,
sto creando una funzione che trasforma un numero binario in Decimale...ma 
non riesco a trovare nelle funzioni della RTL e della VCL una che mi da 
il risultato di un numero elevato ad un altro!!!!
voi la conoscete?
------------------------
Diego Di Filippo
  R&amp;D Software Developer
 
www.ada-project.com
-----------------------
--- posted by geoForum on 
http://www.delphiedintorni.it

voi la conoscete?
http://www.efg2.com/Lab/Library/Delphi/MathFunctions/General.htm#Logarithm
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 -----------------------
Ciao Diego Di Filippo
la funzione non è:  **   ?
es. x al quadrato:  x**2
x al cubo  x**3
ecc..
GP

grazie Morde.
:)


si, 
un numero lo devo elevare ad un altro numero!


--- posted by geoForum on 
http://www.delphiedintorni.it

>function Power(Base, Exponent: Extended): Extended;
ho usato la funzione IntPower, ma anche Power va bene!
grazie a tutti


Newsgroup: it.comp.lang.delphi
Titolo: Delphi & Stored Procedures

Sto cercando di capire come usare le stored Procedures all'interno di
Delphi. In particolare sto usando InterBase.
Ora, ho capito che per sp di selezione devo usare un componente IBQuery e
usare una sintassi tipo:
Select * from NomeStoredProcedures (eventuali parametri)
Il problema è invece capire cosa devo fare quando ho stored procedures di
esecuzione, che non si occupa di selezione
ma anche di aggiornamento e/o eliminazione dati. Come faccio a usare questo
genere di sp all'interno di delphi ?
In particolare come legarla a parametri passati da componenti db-aware?

 ha scritto nel messaggio
news:pxXma.39708$DT4.1...@twister1.libero.it...


 > Il problema č invece capire cosa devo fare quando ho stored procedures


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

Scusate se vado su un argomento probabilmente gia' trattato, ma non ho 
trovato come fare.. uso FireBird 2 e da programma creo due tabelle in 
modo dinamico, come faccio a farle vedere al databse se non 
chiudendolo e riaprendolo...
Grazie in anticipo Nadia

chiudi la transazione
Giancarlo ha scritto:

Newsgroup: it.comp.lang.delphi
Titolo: Header Corrupted

Ho riscontrato in tre diversi clienti che dopo un periodo indeterminato di
tempo, oltre ai soliti errori di Index is out of date ecc... COMPARE UN
ERRORE del tipo 'HEADER CORRUPTED'. La tebella non si apre più !! Nemmeno
cancellando i file di indice a mano (uso Paradox).
Mi sembra di capire che si esce da questa situazione solamente ripristinando
da backup!!
Capita solo a me? Qualcuno ha già incontrato errori simili ??

 ha scritto nel messaggio
news:8h59j5$s24$1...@pegasus.tiscalinet.it...


 cancellando i file di indice a mano (uso Paradox).
E' capitato ad un mio cliente stamattina. Ha giurato e spergiurato che non
era mancata la luce, il pc non era andato in blocco ecc.ecc. poi, guardando
il log nascosto che genera il mio programma noto una "mancata chiusura" del
programma.. eheh alla fine, messo alle strette, il Cliente ha "ricordato"
che c'era stato un crash del pc la sera prima, e dopo il riavvio il
programma non si era piu' riavviato. Guardando in gestione risorse vedo che
l'unico disco fisso della macchina, da 1,2 Gb ha soltanto 11 Mb liberi (in
una macchina con 32 Mb e W98 puoi immaginare quanto tempo occorra a Win per
usare quegli 11 mega con il file di swap) e che la deframmentazione era
stata fatta l'ultima volta 47 giorni fa.
Ma la colpa, ovviamente, e' di Paradox ;-)
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Internet Point

M'è stato chiesto di creare un'applicazione che permetta di gestire un
internet point.
Sommariamente dovrei creare un'applicazione server che permetta di
comunicare con i vari client. Il sistema operativo server deve condividere
la connessione internet e tramite l'applicativo server invio per ogni
singolo client il tempo max che può stare connesso ad internet. Penso che
per la creazione di un servizio attivo sul server e sul client non dovrei
avere problemi. La cosa che non mi è chiara è come poter attivare/bloccare
la connessione ad internet condivisa dal server tramite proxy o
l'impostazione di XP/altri "Condividi connessione internet".
Come S.O. preferirei che sia Windows.
Grazie anticipatamente.

 internet point.
IMHO una soluzione molto piu' semplice sarebbe quella di installare un
semplice proxy linux con squid e creare una interfaccia (Web o in
Delphi) per abilitare e disabilitare gli IP.
-- 
I am what I am, I do what I can
L'uomo, conscio di sbagliare, persevera.

Scusa l'ignoranza...ci ho smanettato tempo fa poco con Linux...
Cos'è squid? Potresti essere più preciso? Grazie mille!
"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:tjPEc.29233$c_1.9...@twister1.libero.it...


 Cos'h squid? Potresti essere piy preciso? Grazie mille!
Google -> squid -> "Mi sento fortunato"
P.S.
Please 
http://wiki.news.nic.it/QuotarBene


> Cos'è squid? Potresti essere più preciso? Grazie mille!
Sei OT.

Un ultimo dubbio...
come distribuzione Server Linux quale utilizzo? Squid è incluso in tutte le
distribuzioni? Premetto che a me farebbe comodo usare le distribuzioni
Mandrake/Redhat/Suse in quanto l'applicativo Server vorrei svilupparlo con
Kylix.
Grazie!
"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:JvTEc.29737$c_1.9...@twister1.libero.it...


 tutte le distribuzioni? 
Sono domande OT, it.comp.os.linux.iniziare.


Newsgroup: it.comp.lang.delphi
Titolo: Demo streaming

Salve ragazzi,
sapete consigliarmi qualche link da dove poter scaricare delle demo di
applicazioni che siano in grado di fare lo streaming audio e video, o
comunque che sia in grado di creare una sorta connessione client server
per il trasferimento dati?
Grazie
Francesco

 per il trasferimento dati?
Dai un'occhiata a *ScreenThief*:
http://delphi.about.com/od/internetintranet/l/aa012004a.htm
Ciao,
   Marco.
-- 
Marco «Alka» Breveglieri	
http://www.marco.breveglieri.name
  «bvmcnxsjlkhrňhyeq, potrei scrivere a questo punto,
   se mi addormentassi sui tasti» (Daniele Luttazzi)

Newsgroup: it.comp.lang.delphi
Titolo: inserire testo

hola
parto subito con l'esempio
ho un richedit con del testo predefinito e vorrei che si inserisse del testo
che viene scritto dall'utente es:
     Ciao (edit1.text) come stai?
     (memo1.lines.text)
     arrivederci a (edit2.text)
spero di essermi spiegato, nella prima riga viene aggiunto dopo ciao il
contenuto di un edit, nelle righe centrali il contenuto di un memo e
l'ultima riga è simile alla prima
byez

 ha scritto nel messaggio
news:LFWA8.7241$5k4.2...@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Come faccio a "leggere" questo file ?

Ciao a tutti,
la domanda potrà sembrare banale, ma essendo alle prime armi con Delphi 5
per me non lo è !
Ho creato un file di 100 byte che è l'immagine di un mio array utilizzando
la seguente sintassi :
  f:=TFilestream.Create('prova.cfg',fmCreate);
  f.write(ServoTab, sizeof(ServoTab));
  f.free;
Il file viene crato correttamente, come faccio a fare l'operazione inversa ?
ovvero leggere i 100 byte e traferirli nel mio array ?
Grazie e ciao
abraco...@hotmail.com

in teoria dovrebbe bastare fare:
   f:=TFilestream.Create('prova.cfg',fmOpenRead);
   f.read(ServoTab, sizeof(ServoTab));
   f.free;
sempre che il tuo array non sia dinamico..
Ciao !

Ok, funziona perfettamente.
Grazie e ciao !!

Newsgroup: it.comp.lang.delphi
Titolo: D4 - Controllo Azioni Form MDI / Child

ho un problema , che non riesco a risolvere:
dati 2 Form 1 MDI e 1 Child ciascuno con toolbar
e pulsanti, Form1 usa Form2 ma non viceversa
(per non avere riferimenti circolari)
Nel Form MDI (principale) , tramite TAction
disabilito il Buttons[0] e creo la finestra Child
 Toolbar1.Buttons[0].Enabled:=False;
 with TForm2.Create(Self) do Show;
Pero' da Form2 TAction non e' visibile , quando
chiudo il Form2 , prima di distruggerlo (Action:=CaFree) ,
devo riabilitare il Bottons[0].
Anche mettendo il TAction su un datamodule e usandolo
da Form1 e Form2 , non si risolve dato che Datamodule2
non vede Form1 o Form2.
Al momento ho ovviato con i Timer , si potrebbe fare
altrimenti ?
grazie Maurizio

ci sono 2 soluzioni
1) usi l'evento OnUpdate della TAction:
TAction(Sender).Enabled := (formchild = nil)
2) crei un costruttore alternativo sulla mdichild:
constructor MyCreate(AOwner: TComponent; ACloseCall: TClosecall);
begin
   inherited Create(AOwner);
   FCloseCall := ACloseCall
end;
Poi, nella destroy del form:
..
begin
   FCloseAll
end;
type
   TClosecall  = function: integer;
Nel mainform dichiari un metodo simile:
function TMainForm.CloseCallChild1: integer;
begin
   acnOpenChild1.Enabled := True;
end;
Infine:
with TForm2.MyCreate(Self, CloseCallChild1) do Show;
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: COM

Qualcuno mi sa spiegare con semplici parole la differenza tra usare un
componente standard e un componente che funzioni analogalmente ma di tipo
COM? Cioč, che differenze e vantaggi esiste nel creare (ad esempio) un
componente COM che funzioni come il componente TTimer?
Many TNKS!!

I VCL possono essere utilizzati solo da Delphi.
Gli oggetti COM hanno il vantaggio di essere indipendenti dal 
linguaggio: li usi da delphi, da powerbuilder da c++ e anche da quella
schifezza di vb.
Per contro, i COM non hanno l'ereditarietà.
I COM possono essere visti piu' come dei server che dei
componenti, che forniscono a chi li usa una serie di strumenti per
fare una qualsiasi cosa.
Ma, per essere utilizzati, devono essere registrati nel registro di
configurazione di Windows.
Questo xche sono "esterni" alla tua applicazione, come le DLL.
Poi entra in gioco MTS, ovvero Microsoft Transaction Server, che
non è altro che un gestore di oggetti COM e COM+, ma non chiedermi
di +, non ne so molto.
Una cosa da dire è che se la tua applicazione non necessita di
una elaborazione distribuita, il COM ti serve a poco.
Certo è che qui abbiamo in corso d'opera una applicazione basata
su COM e le parolacce che sento quasi quotidianamente non sono
una buona presentazione per questa tecnologia.
Infine, COM gira solo su WinSozz.
Alternativa a COM è la architettura CORBA che, oltre a non essere
di zio Billy, cosa che garnatsice di sicuro un miglior funzionamento,
gira anche su Unix. 
Se vai sul sito di Borland trovi un bel logo: WE SUPPORT CORBA.
Spero di aver almeno in parti contribuito a chiarirti le cose,
ma tieni presente che quanto ti ho detto non è frutto di esperienza
personale, ma di notizie lette qua e la, esperienza di persone che
lavorano qui in azienda etc etc etc etc
Saluti
AS
-- 
Posted from 
ammi.mclink.it
 [195.110.128.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

componente COM che funzioni come il componente TTimer?
Che e' compatibile con qualsiasi ambiente di programmazione
(x Windows).
--
Andrea Laforgia - walkietalkie(at)
libero.it
#exclude <windows.h>

gira anche su Unix. 
Consiglio di leggere qualcosa su SOAP.


> Consiglio di leggere qualcosa su SOAP.
Perdona l'ignoranza, ma cos'è SOAP?
TNKS



Simple Access Object Protocol
http://www.w3.org/TR/SOAP/#_Toc478383487

Newsgroup: it.comp.lang.delphi
Titolo: scindere in piu righe una memo

Salve a tutti,
Ho una memo nella quale scrivo delle cose, per un massimo di 3 righe.
Le varie righe vengono poi concatenate per essere riversate su una variabile
di tipo Tstring e poi su un file ini.
A questo punto devo recuperare e scindere le varie righe come prima per
poter scrivere l'esatto testo su una memo.
Qual'è la via migliore per farlo?
Io pensavo ad un carattere speciale da ripescare con Wraptext, ma non sono
sicuro del fatto che funzioni......
Qualcuno ha un'idea?
Grazie mille

 Qual'è la via migliore per farlo?
1) salvare nel file ini un nome di file che contiene il contenuto del memo.
In questo modo il problema di ricreare le righe non esiste
2) salvare nel file ini creando una sezione [lines] come segue:
[lines]
line001=prima riga
line002=seconda riga
line003=terza riga....
A

 ha scritto nel messaggio
news:c3k72n$23io$1...@newsreader1.mclink.it...

Grazie, si infatti ho risolto in un modo analogo.

Newsgroup: it.comp.lang.delphi
Titolo: Oggetti - caselle di testo

Ciao, ho la necessità di avere un oggetto da usare come casella di testo che
possa essere usata a seconda dei casi per testo, importi numerici (con
decimali e separatori ogni 3 cifre), codice (formattato a zeri). Ho provato
con TTemplateEdit confidando nella proprietà EditMask ma siamo lontani dalla
meta prefissata. Potete darmi qualche consiglio in merito?
Grazie

...

Deriva un nuoco componente da TEdit o TDbEdit.
Aggiungi al type questa cosa:
TTypeOfMyInput= MyTextInput,MyCurrencyInput,MyCodeInput)
metti nel private:
FTypeOfInput : TTypeOfMyInput
Poi gli aggiungi  una proprieta che indica il tipo di input desiderato preso
da;
property TYpeOfInput : TTypeOfMyInput read getInputType write SetInputType
Metti queste due cosette:
procedure TMyEditComponent.SetInputType( const xInputType ; TMyInputType );
    begin
    FTypeOfInput := xInputType
    end;
function TMyEditComponent.GetInputType :  TMyInputType;
    begin
    Result := FTypeOfINput
    end;
Dopo, ti ridefinisci l'evento OnExit:
procedure TMyEditControl.OnExit( sender : TObject );
    begin
    if FTypeOfInput = MyTextInput then
        begin
        Self.Text := MyFormatFunctionForText( Self.Text );
        end;
    if FTypeOfInput = MyCurrencyInput then
        begin
        begin
        Self.Text := MyFormatFunctionForCurrency( Self.Text );
        end;
    if FTypeOfInput = MyCodeInput then
        begin
        begin
        Self.Text := MyFormatFunctionForCode( Self.Text );
        end;
    inherited OnExit
    end;
Ti basta?
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Taskbar

Salve a tutti
Vorrei che un'applicazione dopo l'avvio 'sparisca' e si collochi sulla
taskbar (vicino all'orologio per intenderci) e che cosě lavori in
background.
Come posso fare?
Grazie a tutti
Andsrea Cocci

Vedi sulle faq.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Dubbio su query

Ciao,
Se faccio una query su di una tabella visualizzandone il contenuto in una
dbgrid e' possibile modificare il record della tabella originale
direttamente sulla dbgrid?
Sembra che non posso editare i dati nella query...
Ciao!
      Miyomo

       Miyomo
Ciao, Antņ.

Newsgroup: it.comp.lang.delphi
Titolo: Guida per utilizzare MySQL

Non sono molto esperto in delphi e quindi vorrei se possibile trovare
una guida per poter utilizzare con facilità Delphi a MySQL, visto che
mi sono rotto le sbibbole di Access.
Sapreste aiutarmi per favore?
Oppure avere qualche altri tipo di database che si interfaccia a
Delphi con facilità?

Sapreste aiutarmi per favore?
Delphi è abbastanza indipendente dal database. Per MySQL esiste una
copiosa documentazione sul suo sito. Riguardo i driver da usare, io
uso quelli della CoreLab, ma sono a pagamento. Altrimenti, valuta gli
ZEOS. Ulteriori consigli dipendono strettamente dalla tecnologia che
userai (componenti che accedono direttamente, dbExpress, ecc...).

 Sapreste aiutarmi per favore?
ZEOS DBO, l'ho usato parecchie volte con soddisfazione... a differenza 
di access ti devi portar dietro una DLL però.
Ci sono anche alcuni esempi che ti fanno capire come funziona il 
tutto... non che sia particolarmente difficile, soprattutto se conosci 
già MySQL.
 > Oppure avere qualche altri tipo di database che si interfaccia a
 > Delphi con facilità?
Per sentito dire, Firebird, ma non l'ho mai sperimentato di persona.
-- 
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Abbinare un IXMLNode alla proprietà Data

Pian piano vengono fuori tutte le mie lacune... e improvvisamente
eccone due contemporaneamente: Interfacce e Puntatori :(
E' possibile abbinare un IXMLNode alla proprietà Data di una ListView
(o TreeView)?
Io ci ho provato così
procedure TForm1.Button1Click(Sender: TObject);
var
  iXML: IXMLNode;
begin
  XMLDoc.FileName := ChangeFileExt(ParamStr(0), '.xml');
  XMLDoc.Active := True;
  with ListView1.Items.Add do
  begin
    iXML := XMLDoc.DocumentElement.ChildNodes.First;
    Caption :=
XMLDoc.DocumentElement.ChildNodes.First.Attributes['nome'];
    Data := @iXML;
  end;
end;
e con
procedure TForm1.Button1Click(Sender: TObject);
var
  iXML: ^IXMLNode;
begin
  XMLDoc.FileName := ChangeFileExt(ParamStr(0), '.xml');
  XMLDoc.Active := True;
  with ListView1.Items.Add do
  begin
    New(iXML);
    iXML^ := XMLDoc.DocumentElement.ChildNodes.First;
    Caption :=
XMLDoc.DocumentElement.ChildNodes.First.Attributes['nome'];
    Data := iXML;
  end;
end;
Ma, quando si tratta di leggere gli attributi, per esempio
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  Caption := IXMLNode(ListView1.Selected.Data).Attributes['nome'];
end;
nel primo caso mi dà una EPrivilegedInstruction (????) e nel secondo
un più classico EAccessViolation.
Cosa sbaglio? Non rispondetemi "lavoro" perché, per fortuna non
programmo in delphi per lavoro ;)
-- 
Jax

e con
....
 Data :=POINTER( iXML);
x poi rileggere
come hai fatto
Saluti 

 come hai fatto
Sticazzi, funziona... evito di chiedere perché... e ti ringrazio.
Se tutto va bene, l'XML mi semplificherà parecchio le cose!
-- 
Jax

 Se tutto va bene, l'XML mi semplificherà parecchio le cose!
Molto semplicemente: funziona perché le interfacce sono, a tutti gli
effetti e gradi, *puntatori* alle interfacce, nè più nè meno di
quello che succede con le classi e gli oggetti.
Ciao,
Andrea