mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Istruzione tipo break

Ciao a tutti ...
grazie innanzi tutto per la bella discussione sull'istruzione Assert che 
mi metterò comunque a studiare ... :)
volevo chiedere però ...
In Delphi/Kylix esiste un modo per passare un valore da una funzione ad 
un altra, un pò come il return mioValore di altri linguaggi??
Esiste un modo per creare dei cicli che una volta verificati si 
blocchino senza andare avanti a verificare gli altri ...?
Un po come il case ... break;
grazie
-- 
Bartolotta Gioachino
devel...@rockitalia.com
ICQ: #9103167

)

 ha scritto nel messaggio
news:c5i3pd$lu9$1...@carabinieri.cs.interbusiness.it...

Newsgroup: it.comp.lang.delphi
Titolo: Spool di stampa

C'è la possibilità in delphi di controllare (eliminare stampe) dallo spool
di stampa di una stampante???
E' possibile farlo con le api di winxp??
Grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

 E' possibile farlo con le api di winxp??
http://search.msdn.microsoft.com/search/default.aspx?siteId=0&tab=0&query=print+spool
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie
prego.
A.

Si, xo come le utilizzo ste funzioni???
Scusate x la mia ignoranza ma nn ho tanta esperienza!!!


 Si, xo come le utilizzo ste funzioni???
Ma che vuol dire "come le utilizzo" ? Leggi la documentazione e impara ad
usarle.  Che vuoi ? che ti si scriva il programma ?


nessuno la ha prima di fare le cose.
l'unico modo di arrivare alla seconda volta è passare x la prima.
l'unico modo di fare esperienza è FARE.
Se poi vuoi del codice pronto google docet.
A.

che devo mettere secondo voi come pPrinterName in questa funzione?
OpenPrintProcessor(
    LPWSTR  pPrinterName,
    PPRINTPROCESSOROPENDATA  pPrintProcessorOpenData
    );
Grazie.. ma scusate è la prima volta che faccio ste robe!!!


 Grazie.. ma scusate è la prima volta che faccio ste robe!!!
QUI NON SI TRATTA DI *PRIMA VOLTA*.
QUI SI TRATTA DI UNA COSA CHE PER MOLTI E' STRANA, LO SO.
SI TRATTA DI *STUDIARE*, *DOCUMENTARSI* E *PROVARE*.
UFF..!
A.

che devo mettere secondo voi come pPrinterName in questa funzione?
Un pollo di gomma.

 ha scritto nel messaggio:
[megacut]
Alberto, per caso tua moglie ha sbagliato nuovamente la bustina del te'?
-- 
- Carlo - 

> Alberto, per caso tua moglie ha sbagliato nuovamente la bustina del te'?
Azz! era stricnina... eheheheh!
Carlo, a parte le battute, non so tu ma mi fa incazzare il fatto che il
ns settore è pieno di gente che non trova il suo culo senza un
navigatore satellitare che si improvvisa programmatore, analista,
sistemista, progettista etc.
Quando la ns professione avrà la dignita' che merita?
Quando la gente capira' che questo non è un lavoro di improvvisazione?
Quando gli stessi addetti ai lavori si renderanno conto che serve
STUDIO, PREPARAZIONE, PROFESSIONALITA, AGGIORNAMENTO COSTANTE,
CURIOSITA, CAPACITA' DI ANALISI, METODO e PASSIONE?
Uff!
A.

 Quando la gente capira' che questo non è un lavoro di improvvisazione?
Quando le aziende la pagheranno per non improvvisare.


> Quando le aziende la pagheranno per non improvvisare.
Quoto. Molte azienda, pur di risparmiare non badano a spese....
A.
Newsgroup: it.comp.lang.delphi
Titolo: Di chi è la colpa? (forse del Jet Engine)

Mi chiedevo perchè quando vado a creare una tabella in un database tramite
un oggetto ADOQuery il cui nome contiene caratteri del tipo spazio, ', ", -
etc.... mi venga restituito errore, mentre se la vado a creare da Access
tutto questo non avviene. Devo per forza sostituire ogni carattere non
valido con una sequenza di caratteri validi accettati dal componente ADO o
dal Jet Engine?
Qualcuno si è imbattuto in questo problema?
-- 
Davide
------------------------------------------------------------
Il tempo è la cosa più preziosa che l'uomo possa spendere
------------------------------------------------------------

Qualcuno si è imbattuto in questo problema?
Gli oggetti vanno creati utilizzando o le quadre ([mia tabella]) o gli
apici ("mia tabella" ) altrimenti vengono interpretati in modo
sbagliato.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

 sbagliato.
Perfetto, ma per esempio perchč  non posso inserire un "-" trattino o un
punto o un punto esclamativo o un + o una parentesi tonda o un tilde o un
punto interrogativo e cosě via...
Come posso risolvere questo problema? Adesso come adesso quando dico
all'utente di inserire il nome di una tabella faccio dei controlli su circa
una ventina di caratteri dicendogli che non č possibile inserirli ma
sinceramente a me darebbe molto fastidio se il programma che vado ad
acquistare avesse queste limitazioni perchč andrebbe a limitare l'utente
nella creazione di una informazione che potrebbe essere molto importante ed
esplicativa per lui.
Davide

esplicativa per lui.
Beh, sono caratteri riservati.
Il mio consiglio e' quello di "educarli" a utilizzare solo le lettere
dell'alfabeto e i numeri, la cosa non e' cosi' tragica.
Il rischio altrimenti e' di trovarsi, come e' successo a me una volta,
una tabella che aveva due campi che si chiamavano default e round, e
ti assicuro mi hanno fatto diventare matto :)
Ciao.

Newsgroup: it.comp.lang.delphi
Titolo: TListbox

E' possibile, in una listbox avere una righa di un colore ed una di
un'altro?
In modo da avere ad esempio la prima riga rossa, la seconda blu, la terza
nera ecc...
grazie
--
Ciao da Marco "Kaiser" Baldini
akira_sendo[at]
libero.it
Togli [spammalatuamamma] per risposte via e-mail
------------------------------------------------
http://www.ragnatela.it

 nera ecc...
Temo solo derivando un tuo oggetto tColorListBox dalla tListBox al quale
aggiungerai le dovute proprietā!
Oppure...
Hai presente l'evento OnDrawItem?
Se disabiliti la Property DefaultDraw (o un nome simile) il componente non
disegna pių niente ma chiama l'evento OnDrawItem ogni volta che deve
disegnare un Item appunto.
In questo evento puo appunto cambiare il colore del Font e poi devi scrivere
il testo, quindi per estensione puoi cambiare anche font e grandezza.
Per contro ti trovi del codice nell'applicativo e quindi se ti serve in pių
form devi ripetere tutto.
Se tu scrivessi invece il componente come ti dicevo nella prima parte non
avresti questo problema.
Dipende da che cosa devi fare.
ciriciao
Sergio

Newsgroup: it.comp.lang.delphi
Titolo: DataWingester della sheridan esiste per delphi 5?

In vb utilizzava questo componente, in delphi
cosa posso utilizzare di altrettando valido
e simile?
Ciao

 In vb utilizzava questo componente, in delphi cosa posso utilizzare di
altrettando valido e simile?
Vista la naturale allergia dei programmatori Delphi per VB forse sarebbe
opportuno spiegare le funzionalità di quel componente!
Ciao!
--
- Carlo -
c.b...@libero.it

 ha scritto nel messaggio
news:ODYP5.52040$BF.18...@news.infostrada.it...


Lo fai con la TDbGrid.
Imposti il defaultdrawing a false.
Poi ti scrivi la proc per il disegno dell'oggetto.
Saluti
AS
"Se è Microsoft non funziona"

Newsgroup: it.comp.lang.delphi
Titolo: virtual key

Ciao NG!
nell'applicazione che sto creando, ho inserito un hook del mouse, e ho
bisogno di intercettare la pressione del tasto destro + SHIFT.
Sull'help ho trovato il WM_RBUTTONDOWN  ma non ho capito come usare il
wparam per identificare il virtual key.
Qualcuno puň dirmi come fare?
GRAZIE
CIAO;-)

Qualcuno può dirmi come fare?
if (fwKeys and MK_SHIFT) <> 0 then
begin
  // e' stato premuto lo shift
end
else
begin
  // NON e' stato premuto lo shift
end;
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 ha scritto nel messaggio
news:3ca31a5f...@news.tin.it...

Ho provato il codice ma mi da: undeclared identifier in corrispondenza di
fwKeys.
Cosa c'è che non va?

Cosa c'è che non va?
fwKeys e' una variabile che definisci tu e che contiene il
valore di wparam (vedi help di WM_RBUTTONDOWN).


Newsgroup: it.comp.lang.delphi
Titolo: [D5] Non si installano componenti FreeDb

Salve, ho scaricato i componenti FreeDB da torry, ma sul mio Delphi 5 non si
installano per niente (problemi di pacchetti e altro). Qualcuno sa dove
posso trovare l'ultima versione (se non sbaglio torry non è più aggiornato)
? Grazie! :)

 
Ehm...proprio nessuno li usa?
Newsgroup: it.comp.lang.delphi
Titolo: terminali e software

Ho creato un piccolo gestionale a cui vorrei collegare un registratore di
cassa o terminale. Il problema è che non so come deve comunicare il tipo di
hardware con il software. Mi manca proprio la logica di funzionamento.
Praticamente il mio software ha la classica gestione di vendita al dettaglio
costituita da una maschera contenente i dati di testata della vendita(progr.
documento, data, cliente fittizio) + un pulsante che permette di avviare la
maschera di dettaglio articoli da movimentare(per l'inserimento della
quantità, sconti, aliquote iva...naturlmente quest'ultimi dati vengono
proposti se settati nei relativi archivi) + una griglia contenente gli
articoli movimentati. Come faccio dal registrare di cassa/terminale ad
effettuare la registrazione di una vendita costituita da 1/più articoli se
per l'inserimento è obbligatorio inserire gli articoli premendo un pulsante,
confermare il tutto con un'altro pulsante...o bisogna fare qualche altra
operazione? Spero che sia stato chiaro. Cosa potrei ricercare su internet
per questo argomento? Andrebbe bene l'interfacciamento software con i
terminali? Qualcuno mi potrebbe fornire qualche link? Ho provato a vedere un
po in giro sull'esistenza di software con collegamento di terminale ma da
quanto ho potuto notare ogni software deve avere il terminale adatto e
quindi oltre a sviluppare il software bisognerebbe progettare anche il
terminale. Forse è un po diverso con i registratori di cassa dato che ho
sentito dire che i produttori forniscono delle dll per l'interfacciamento ai
software. E' così o mi sbaglio?

Se il terminale è fornito di comunicaziore seriale in modo da poter essere
pilotato da un PC, il produttore dovrebbe (forse su ruchiesta) fornire un
*protocollo di comunicazione* all'interno del quale vengono date tutte le
specifiche per far funzionare il terminale via seriale.
Con i vari terminali che ho interfacciato raramente ho ottenuto dei driver
già pronti (DLL). Sono pochissime le aziende che lo fanno.
Come tu hai ben detto, ogni terminale ha il suo protocollo e sicuramente non
troverai su internet il codice per farlo funzionare.
Domanda....
Che cassa è? Marca e modello (forse posso aiutarti).
Comunque ti serve un componente che ti possa permettere di comunicare con la
seriale (cerca su torry rs232), il protocollo di comunicazione per quello
specifico terminale. Se ti danno insieme a questo la DLL di interfacciamento
considerati fortunato, altrimenti, a seconda della complessità del
protocollo, c'è da lavorare un pò...
Un consiglio: chiama il produttore e chiedi protocollo di comunicazioe,
eventuale libreria di interfacciamento (speriamo bene), eventuale
Test-Program (speriamo bene).
Acqua
-------------------------------------------------------
Download new version of my PixExperts for Delphi 6/C++ Builder 6 at
http://www.salexander.supereva.it/Pix_Exp171D6.zip
--
Acqua
-------------------------------------------------------
Download new version of my PixExperts for Delphi 6/C++ Builder 6 at
http://www.salexander.supereva.it/Pix_Exp171D6.zip
Newsgroup: it.comp.lang.delphi
Titolo: DoKeyPress

Ciao a tutti,
ho creato un componente, tra le varie cose, stavo cercando
di gestire l'evento KeyPress.
Speravo funzionasse come l'evento OnEnter, ovvero, che bastasse
fare l'override del metodo DoOnEnter, ma non č cosě.
Infatti in compilazione mi segnala che č un metodo Statico e che
quindi non si puň effettuare un OVERRIDE.
Infatti, verificando nell'help, ho notato che sia DoEnter che DoExit sono
DYNAMIC.
Quindi mi chiedo......ESISTE UN MODO PER FARLO COMUNQUE?
Grazie in anticipo a tutti.
Rino
--------------------------------
Inviato via 
http://usenet.libero.it

 Quindi mi chiedo......ESISTE UN MODO PER FARLO COMUNQUE?
Ciao.
Fai discendere il tuo componente da un controllo finestrato? :-) Tipo
TWinControl?
Dato che hai parlato di DoEnter e DoExit credo di si.
Perché non usi gli eventi proprietari del genitore? OnKeyPress, ecc.
Oppure:
subclassa la sua WindowProc e gestisci i messaggi WM_KeyDown e
WM_KeyUp
Ciao

> subclassa la sua WindowProc e gestisci i messaggi WM
questa frase mi ricorda tanto il giorno che sentii un tecnico telecom che
parlava con un altro tecnico al cellulare: era una miscellanea di sigle e
termini, tutti assolutamente incomprensibili :D probabilmente agli occhi dei
profani dell'OO leggere il tuo messaggio ha lo stesso effetto :D
Ciao, Sandro


Però a nostro vantaggio sta il fatto che i tecnici di Telecom non capiscono
un tubo di quel che dicono! :-DDD
Hai mai provato a chiamare cinque volte di seguito in cinque minuti il 187?
Cinque risposte diverse.
Almeno qui se si chiedono ulteriori dati chi ha risposto li sa dare... si
spera.
Per i tecnici in loco di Telecom ho una certa esperienza, visto che
ufficialmente faccio il centralinista in ospedale. Sono usciti direttamente
dalle stanze del 187. :-DDD


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)
Newsgroup: it.comp.lang.delphi
Titolo: BLOCCARE LE DIMENSIONI DEL FORM

Ciao a tutti,
Sicuramente non serve che io dica che sono un super principiante in
Delphi, si vede già dall'oggetto della mia domanda, comunque da qualche
parte si deve iniziare.....
Ho provato a fare un ricerca per non scomodare nessuno, ma purtroppo non
ho trovato niente.
Mi affido a Voi. Come posso bloccare le dimensioni di un Form in modo che
non si possano modificare quando il prg va in esecuzione?
Grazie e scusate per il disturbo.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 che non si possano modificare quando il prg va in esecuzione?
Ad esempio puoi impostare BorderStyle a bsSingle (considera che questo
non disabilita la massimizzazione-minimizzazione). Una alternativa e'
usare la proprieta' Constraints.
Saluti
Paolo Arosio
PS E' in generale sconsigliato l'uso di tutte maiuscole, anche nel
subject

Form.BorderStyle := bsDialog;
AS
---------------------------
"Se è Microsoft non funziona..."

se ti serve più flessibilità per poter giocare con le dimensioni anche a
runtime puoi usare le proprietà che trovi sotto la voce constraints
dell'object inspector.
ciao
Tymba

Due soluzioni:
Nell'Object Inspector (F11 per mostrarlo):
1) Modifichi il valore della Proprietà BorderStyle (sono 6 diversi valori,
provali tutti per capire quale si adatta di più alle tue esigenze);
2) Imposti i valori delle Proprietà Constraints;
--
Max Etere
massimili...@programmando.org
http://www.programmando.org
FoFi Techno 1.2 16V MY96, 3 porte, Jewel Green
FoFo Ambiente 1.8 TDCi 100 CV, 3 porte, Blu Executive

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

Per molti sarà un dfubbio da principianti  ma  come cavolo si usa il
componente Header? Lo metto su una form, creo le varie sezioni e come faccio
a collegare tutto il resto a mo di tabella???
Grazie

Quale resto ? Sei sicuro di usare il componente giusto?
Per le tabelle puoi usare la String Grid che trovi nella pagina 2 della
component palette oppure value list editor (se possiedi Delphi 6 pro o sup).
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.delphi
Titolo: eval..

Ciao,
esiste in delphi la possibilita' di invocare una funzione/procedura tramite
una stringa contenuta in una variabile? tipo la "eval" del javascript? mi
sono spiegato? sarebbe bello memorizzare in un db le stringhe con il nome
delle funzioni e poi richiamarle...
grazie
maz

maz wrote:

Prova a dare un'occhiata a questo link trovato su google:
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&threadm=VA.000014ad.0
106761b%40petersnewbox&rnum=16&prev=/groups%3Fq%3Ddelphi%2Bcall%2Bproced
ure%2Bstring%26start%3D10%26hl%3Dit%26lr%3D%26ie%3DUTF-8%26selm%3DVA.000
014ad.0106761b%2540petersnewbox%26rnum%3D16
ciao
Antonio

Prova a dare un'occhiata a questo link trovato su google:
http://groups.google.com/groups?&threadm=VA.000014ad.0106761b%40petersnewbox
(in forma breve, detta prima forma canonica di Morde)
;)
-- 
Morde. 
morde[at]programmer[.]net

 (in forma breve, detta prima forma canonica di Morde)
Oppebbacco.. pure la forma canonica di Morde... miii... :-)
grazie ad entrambi...
maz

 ;)
Hai ragione, avrei anche potuto usare questo:
http://makeashorterlink.com/
mi pare di averlo carpito sempre da un tuo post ;-))
Ciao
Antonio

grazie ad entrambi...
AHhahah !! ovviamente era in tono scherzoso..!!
:-D

Newsgroup: it.comp.lang.delphi
Titolo: Jpeg e Gif

C'é qualche funzione che permette di caricare nella form una Jpeg/jpg e una
gif?
Si deve modificare quella usata per le Bitmap?
Grazie

>
C'é qualche funzione che permette di caricare nella form una Jpeg/jpg e una
gif?
<<
per JPeg, si può usare TImage, avendo cura di includere la unit jpeg (c'è
anche un esempio nella cartella ($DELPHI)/Help/Examples/jpeg, per le gif:
www.melander.dk/delphi/gifimage/
 (Open source)
hth
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: icone xp

ciao a tutti,
qualcuno sa dove posso trovare le icone in stile Windows XP???? Oppure come
si fa ad estrarle dalle dll di windows????
ciao!


Le icone di XP sono nelle DLL di XP... :-D
Scherzi a parte, io uso AX Icons che è veramente fantastico. Vai su
http://www.axialis.com/
Consiglio anche l'AX Cursors, se ti servono dei cursori personalizzati.
Ciao.
Gianluca

Newsgroup: it.comp.lang.delphi
Titolo: Inttostrdef, floattostrdef?

StrToIntDef permette di trasformare una stringa in intero qualora la
conversine sia possibile.
Esiste una funzione corrispondente per la conversione dei valori real?
Grazie

Esiste una funzione corrispondente per la conversione dei valori real?
potresti usare un try ... except
Ciao,
Alan Solo

 ha scritto nel messaggio
news:SzGG6.8465$Hp1.2...@news2.tin.it...

Prova con "FormatFloat"... :=)
Ciao!
--
Andrea Raimondi
----------------------------------------
Redattore corso di Delphi
di  Software Planet
www.softwareplanet.net

conversine sia possibile.
StrToFloat
Se consulti l'help di Delphi, trovi tutte le funzioni di questo tipo.
Newsgroup: it.comp.lang.delphi
Titolo: TClientDataset e uso appropriato

Torno da voi ora, al mutare della compilazione.... per porvi un quesito
riguardante il tclientdataset (=CDS).
Dovendo fare delle elaborazioni su un resultset di una adoquery, ho pensato di
travasarne il contenuto in un CDS , per lavorarci sopra senza problemi di
write-back indesiderate sul db.
Per fare questo ho eseguito i seguenti passaggi (utilizzo i campi
persistenti):
- copio i campi persistenti dalla adoqury al CDS
- clicco col destro sul componente CDS, scelgo "Create Dataset"
- a runtime apro la adoquery e con un ciclo scorro tutti i record
aggiungendoli nel CDS.
Il problema che si verifica e' che scrivendo un campo integer, scopro che il
CDS me lo modifica come fosse un contatore, cioe' 1,2,3,4....ecc. Mentre prima
gli avevo scritto dei valori totalmente diversi.
Qualcuno di voi ha gia' provato a fare un procedimento simile ?
Ho provato anche a popolare il CDS con il metodo appendrecord, ma il risultato
non cambia. Devo forse aggiungere i fields a runtime ?
Sto usando D6 pro.
-- 
Morde. 
(
mo...@despammed.com
)

gli avevo scritto dei valori totalmente diversi.
Allora, l'ho risolto in un'altra maniera, eliminando il CDS e utilizzando un
betteradodataset (ma potevo usare anche un adodataset normale).
Eliminando il CDS ho anche il vantaggio di non dovermi portare dietro
midas.dll oppure di linkarla staticamente all'eseguibile. :)
La tecnica per risolverlo e' stata quella evidenziata da cantu' nel mastering
D6 (ita) al capitolo 16, quello di usare i dataset clonati e la tecnica dei
recordset disconnessi.
"ListaBolle" e' la query, "daFatturare" e' il betteradodataset.
daFatturare.Clone(Listabolle);
daFatturare.Connection := nil;
Da questo momento in poi posso manipolare a piacere daFatturare, cancellando,
modificando, aggiungendo, filtrando record senza problemi di writeback sul db.
Nota: prerequisito fondamentale perche' il recordset disconnesso funzioni, ho
modificato le sue proprieta' in questo modo:
CursorType := clUseClient;
LockType := ltBatchOptimisic;
Ciao a tutti
-- 
Morde. 
(
mo...@despammed.com
)
Newsgroup: it.comp.lang.delphi
Titolo: Shortcuts

Ho una domanda da farvi. Ho un bottone che, quando premuto, mi prende quanto
č contenuto in clipboard e lo piazza sul mio form. Se io volessi associare a
questo bottone una shortcut in modo da permettere la combinazione classica
di windows per incollare oggetti (Ctrl+V) come posso fare? Sul Bitbtn non ho
la possibilitą di settarlo e nel form in questione non ho menu.
Grazie

 form in questione non ho menu.
Il modo più veloce IMHO è quello di crearsi una ActionList con un'azione e
associare la shortcut all'azione e il pulsante a quell'azione.
--
Jax
====
Il denaro è come il letame che non serve se non è sparso. (F.Bacone)


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

 di windows per incollare oggetti (Ctrl+V) come posso fare?
Concordo sul beneficio della ActionList
in questo caso specifico comunque potresti anche fare semplicemente così, in
pratica mettendo nella OnKeyDown del pulsante:
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
      if (ssCtrl in Shift) and (chr(Key) in ['V', 'v']) then
         // per esempio
          ShowMessage('Ctrl+V');
end;
un saluto

 di windows per incollare oggetti (Ctrl+V) come posso fare?...
Prova ad usare un THotKey.
Ciao
Giuseppe
Newsgroup: it.comp.lang.delphi
Titolo: eventi in new component

Grazie al vs aiuto ho messo su il mio primo componente in delphi. Eredita da
un TPanel e all'interno contiene 2 TEdit e 1 TButton.
Ora vorrei intercettare degli eventi delle TEdit/TButton(Change, Click....)
per eseguire dei nuovi eventi che ho aggiunto al mio nuovo componente. Ma
come si fa?
Io ho prova a dichiarare nel private del componente l'evento ma ho notato
che non mi intercetta nulla:
private
  procedure Edit1Change(Sender: TObject);
procedure MyComponent.Edit1Click(Sender: TObject);
begin
     OnChange(Self);
end;

Non è cosi' semplice devi eseguire una strada diversa:
Mettiamo che il tuo componente "master" sia un TPanel e, dentro ha un TButton
1) Quando dichiari il componente interno dichiara anche le proprietà
Constructor TMioPanel.Create(Aowner : TObject);
Begin
   Inherited Create(Aowner);
   Bottone := TButton.Create(Self);
   Bottone.Parent := Self;
   Bottone.OnClick := MioOnClick;
End;
La procedura MioOnClick deve essere dichiarata nella sezione private del tuo componente TMioPanel in questo modo
Procedure TMioPanel.MioOnClick(Sender : TOBject);
Begin
    If Assigned(BottoneClick) Then BottoneClick(Self);   // In questo caso il referente della procedura è il Pannello
    ... oppure ....
    If Assigned(BottoneClick) Then BottoneClick(Bottone);   // In questo caso il referente della procedura è il Bottone
vero e proprio
End;
BottoneClick è una variabile di tipo TNotifyEvent dichiarata nella sezione private
Ora per lincare il tutto dichiara una proprietà (Es. OnBottoneClick) nella sezione published
Ricapitoliamo:
Type
   TMioPanel = Class(TPanel);
    Public
        Constructor Create(AOwner : TComponent); Override;
    Private
        Bottone : TButton;
        BottoneClick : TNotifyEvent;
        Proceure MioOnClick(Sender : TObject);
    Published
       Property OnBottoneClick : TNotifyEvent Read BottoneClick Write BottoneClick;
    End;
Implementation
Constructor TMioPanel.Create(Aowner : TObject);
Begin
   Inherited Create(Aowner);
   Bottone := TButton.Create(Self);
   Bottone.Parent := Self;
   Bottone.OnClick := MioOnClick;
End;
Procedure TMioPanel.MioOnClick(Sender : TOBject);
Begin
    If Assigned(BottoneClick) Then BottoneClick(Self);
End;
Spero di essere stato chiaro
--
Ciao,
David

   Bottone.OnMioButtonClick := MioOnClick;
__________^^^^^^^^^^^_________
spero di non aver detti fesserie ... nel caso sia tu
che jak spero mi perdonerete ... :P
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it
Newsgroup: it.comp.lang.delphi
Titolo: d5 - Ole automation con MsOutlook2000

Salve a tutti.
Sto usando ole automation con Outlook 2000, ma non trovo il modo di fare una
cosa.
Se si crea un nuovo messaggio di posta, cliccando su file-proprietà si
accede ad alcune cose tra cui le impostazione per la applicazione della
firma digitale.
Ora, non trovo nella guida vba property o altro per spuntare questa
maledetta casella.
Ho fatto anche delle ricerche su msdn, ma in genere ci si limita a inviare
mail o manipolare la varie cartelle, contatti etc.
Per vari motivi non posso impostare nelle opzioni di outlook la applicazione
della firma digitale a tutti i messaggi in quanto il certificato che ho
funge con uno specifico indirizzo email.
Ogni info è ben accetta.
Tnx
A

 maledetta casella.
forse usando MAPI puoi ottenere qualcosa. Ho trovato questi due link
che ti possono essere utili:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mapi/ht
ml/_mapi1book_pr_security.asp
http://www.slipstick.com/dev/mapi.htm
Antonio
Newsgroup: it.comp.lang.delphi
Titolo: versioning

ho trovato vssconnexion per bds2006 , ma non e' free , esiste qualche
prodotto simile o per integrare visual source safe o comunque per
poter gestire le vari eversioni. 

Scusa, ma se non vade errato, da bds2005 in poi, con il pacchetto 
professional è integrato anche StarTeam, il pacchetto borland per gestire 
versioni e collaborazioni in progetti BDS.
    Saluti,
    Antonio

Noi stiamo usando cvs ... wincvs ...nn è integrato con delphi ma il suo 
mestiere lo fa sempre :)
ciao
PP
Antonio Scarpelli ha scritto:


 versioni e collaborazioni in progetti BDS.
Se non erro, con BDS si trova in bundle una "licenza client", quindi 
StarTeam Server va acquistato separatamente o, sempre se ricordo bene, 
ottenuto acquistando BDS Enterprise/Architect.
Controllando sui siti ufficiali, è possibile ottenere risposte 
definitive in merito.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 poter gestire le vari eversioni. 
Io ho utilizzato e sperimentato per un po' la versione "trial" e mi è 
sembrato un ottimo prodotto.
Certo, non è free, ma in fondo non costa poi così tanto: si tratta di 
60$ circa e il costo cala per le licenze multiple; se siete un'azienda 
che sfrutta Visual SourceSafe nella propria organizzazione, è difficile 
pensare che supportando più sviluppatori all'interno del team non vi sia 
la possibilità di acquistare un prodotto ad un prezzo davvero contenuto.


 poter gestire le vari eversioni.
In generale mi sono trovato sempre bene non utilizzando tool integrati,
anche perché tutti quelli che ho provato, chi piů, chi meno, ha dei
problemi, compreso VSSConnexion, che la mia ex-azienda comprň, ma che
abbiamo messo subito nel cassetto.  In ogni caso, con CVS utilizzo
TortoiseCVS come client (non integrato) e mi trovo benissimo.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sembrato un ottimo prodotto.
L'ho usato e ha un bel po' di bug... :-(


 
Ti consiglio di usare TortoiseSVN (Opensource), ho utilizzato 
TortoiseCVS ma occasionalmente mi dava dei problemi, nel senso che mi 
salvava i dfm in formato binario senza che io lo specificassi e un paio 
di volte ho perso qualche form. Sono poi passato a TortoiseSVN e lo 
trovo ottimo, è possibile scaricare anche un plug-in per Delphi2006 che 
si installa nella toolbar e puoi comodamente controllare da li il lavoro.
Sono oramai 2 anni che lo utilizzo e non ho incontrato errori rilevanti 
o gravi.
Spero di esserti stato utile
Massimo

di volte ho perso qualche form.
Strano che si perda alcunché con CVS.  Io uso TortoiseCVS
correntemente, con Delphi e altri sistemi e non ho mai avuto problemi
di questo tipo...
Newsgroup: it.comp.lang.delphi
Titolo: stringGrid e query

voglio inserire le celle di una query all'interno di una StringGrid (non 
voglio usare una DBGrid), il problema č che non so come fare. Ho provato a 
scrivere:
StringGrid1.Cells[0,0]:=ADOQuery1.Fields[0].Text;
ma cosě mi visualizza solo la prima cella del primo campo.
Se voglio mettere in colonna anche le altre come devo fare?
Grazie 

 Grazie
-- 
Ciao, Anto', [38, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Oggi c'è una grande battaglia di idee, ma alla 
fine, non ci saranno ne vinti, ne vincitori, ne idee!"
S. Benni da Elianto

> assicurati di partire da primo record della query,
il problema è proprio questo.
come faccio a partire dal primo record della query e poi ad incrementarlo se 
posso solo selezionare il campo ma non la riga?
ADOQuery1.Fields[0]
se anche faccio un ciclo riempio tutte le righe della Griglia con lo stesso 
record. 

 Il tutto senza offesa ovviamente!
se pensavi che la mia domanda fosse troppo stupida, potevi semplicemente 
evitare di rispondere.
Quel 'senza offesa' te lo potevi anche risparmiare, visto che le cose che 
hai detto sono altamente offensive.
Non sarò un programmatore ma un ciclo For lo so fare. 

 posso solo selezionare il campo ma non la riga?
seleziona la adoquery e premi F1, leggiti l'help per i metodi first a next
e se ci sono esempi studiati il codice.


 e se ci sono esempi studiati il codice.
grazie
era il metodo Next che non conoscevo
ora funziona. 

Govny ha scritto:

però dopo i rimproveri ti ha risposto .....
Ciao
G.
Newsgroup: it.comp.lang.delphi
Titolo: ridimensionare stringgrid...

chiedo ancora una volta aiuto al newsgroup per un problema con le 
stringgrid...
Ho posizionato la mia stringgrid sul fom.... e ho dato come ancors al top e 
al left....
La griglia varia in larghezza a seconda delle colonne che deve mostrare,
a volte 5 a volte 10 a volte 15... uscendo dallo schermo e creando gli 
scroll.
Varia anche in lunghezza a seconda delle righe...
righe e colonne le setto runtime con l'istrunzione colcount:= e rowcount:=
MI piacerebbe che la griglia avesse la larghezza delle colonne in uso 
(tranne se eccedono lo schermo), e la lunghezza delle righe in uso 
ridimensionandosi automaticamente...
invece mi succede che , data una larghezza, se ci sono poche colonne appare 
uno spazio bianco vuoto eccessivo, se ce ne sono troppe, ma non tante da 
eccedere lo schermo, appare lo scrolling.
Esiste un metodo per adattare la larghezza della griglia al numero delle 
colonne, e la lunghezza al numero delle righe? Senza eccedere larghezza e 
lunghezza dello schermo?
Ho provato i vari aligment, ma non ho trovato cio' che cercavo!
Grazie in anticipo a tutti!

magari ho capito male
procedure TForm1.Button1Click(Sender: TObject);
Var c1 : Integer;
begin
   For c1 := 1 to StringGrid1.ColCount do
   begin
     StringGrid1.ColWidths[c1-1] := StringGrid1.ClientWidth div 
StringGrid1.ColCount-1;// - StringGrid1.ColCount;
   end;
end;
ciao
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

Ho provato i vari aligment, ma non ho trovato cio' che cercavo!
Puoi provare OnResize.
--- posted by geoForum on 
http://www.delphiedintorni.it

che bravo, sei proprio un esperto di Delphi, complimenti...


>che bravo, sei proprio un esperto di Delphi, complimenti...
Se magari impari a porre le domande in maniera intelleggibile 
probabilmente avrai risposte migliori. Ma forse è chiedere troppo.
Luigi D. Sandon


probabilmente avrai risposte migliori. Ma forse è chiedere troppo.
Grazie, un po' di sostegno....


 ha scritto nel messaggio 
news:463f88b4$0$37203$4faf...@reader3.news.tin.it...


 Grazie, un po' di sostegno....
Quello di cui tu hai bisogno e' l'insegnante di sostegno.
Oggi niente scuola?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Oggi niente scuola?
Andrea che cattivo gattone.... Miiiiaaaaooooo !!! :->


La soluzione proposta dal TROLL sembra funzionare, provare per credere, 
l'evento onresize non appensantisce e essendo la FORM del titolo figlia 
della principale la segue. 
Basta aggiungere un controllo su onmousedown per riportare la form col 
titolo on top della principale.
La soluzione del TROLL è corretta, magari ha avuto fortuna ! Credo di 
si...

Newsgroup: it.comp.lang.delphi
Titolo: Alternativa a like %

Cari amici,
sono riuscito, grazie al linguaggio SQL, ad utilizzare like %
ma purtroppo ho scoperto che con le query il programma
rallenta in un modo spaventoso!!! (considerando che il mio
database è immenso).
Cosa posso usare in alternativa ad esso per ricercare
tutti i numeri che finiscono per .......
es.
devo ricercare il numero 123456 e
invece scrivo solo 456.
P.S: perchè mettendo * dietro la stringa funziona e davanti invece no?
Vi ringrazio.
Ciao.



Il problema non è dovuto alla funzione Like per se stessa, ma dal
fatto che facendo un like il tuo database deve leggere per forza tutti
i record del dataset.
Almeno che tu non riesca a creare un range di ricerca in modo da
ridurre la ricerca non vedo soluzioni se non usare un "full text index
table" sempre che il tuo DB lo permetta.
P.S. Cosa intendi per database immenso e che db usi?
Ciao,
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

Newsgroup: it.comp.lang.delphi
Titolo: Dorland Database Engine

Ciao a tutti,
dove posso scaricare il Borland Database Engine?
Mi serve perchč cosě lo installo sul computer dove devo far girare i miei
exe.
Ciao.

dove posso scaricare il Borland Database Engine?
hai provato sul sito della borland?
--
Rhymes (
rhy...@myself.com
)
http://www26.brinkster.com/rhymes
" ride or die "

 ha scritto nel messaggio
news:t1q4ku0ovu8koog5h...@4ax.com...


Nulla
www.google.com
posso domandarti una cosa? A che ti serve il BDE?


 ha scritto nel messaggio
news:Ixs09.126793$Jj7.2...@news1.tin.it...


 ha scritto nel messaggio
news:OyP09.1254$L12.1...@news.edisontel.com...


 ha scritto nel messaggio
news:L_P09.1262$L12.1...@news.edisontel.com...


Cmq basta usare l'installshield express che esce con il Delphi per poter
creare una finta installazione dove si include semplicemente il BDE nel
progetto di installazione.
Ciao,
  Fabio
Newsgroup: it.comp.lang.delphi
Titolo: Numeri enormi

Come si fa a gestire numeri interi più grandi degli Int64?
Devo avere tutte le cifre, quindi non posso usare i reali.
Mi serve un modo semplice.
Grazie

 Mi serve un modo semplice.
Pensa quei citrulli che fanno apposta a fare la gestione degli interi
"enormi"
in modo complicato, ma guarda che non li capisco proprio, cosa gli
costa farlo in modo semplice... :-)
Marco Kregar
marco....@firebirdsql.it
www.firebirdsql.it

Come si fa a gestire numeri interi più grandi degli Int64?
A cosa diavolo ti serve ?
-- 
Andrea Laforgia
Open Delphi Manual
http://groups.yahoo.com/group/delphi_open_manual/

Int64 č mostruosamente grande! Siamo a oltre 18 miliardi di miliardi Nemmeno
Zio Paperone ha cosģ tanti soldi

 A cosa diavolo ti serve ?
Beh, numeri superiori agli int64 possono essere utili in diversi contesti.
Ricordo che a suo tempo un amico che frequenta questo gruppo si stava
cimentando nell' implementazione di interi superiori ai 64 bit per l'
implementazione di complessi algoritmi di crittografia.
--
- Carlo -

Beh, numeri superiori agli int64 possono essere utili in diversi contesti.
A me interessa sapere se il caso di Wiso è uno di quelli in cui l'uso
di un int a 128 bit, ad esempio, è ragionevole.  Ci sono molte più
probabilità che la cosa si possa ovviare in altro modo, che non
ricorrendo a librerie di aritmetica multipla.


Devo avere tutte le cifre, quindi non posso usare i reali.
Aspirante crittografo? :-D
Io ho scritto qualcosa di funzionante e poco ottimizzato, a scopo RSA.
Tranne la generazione delle chiavi, la faccio fare al CSP di
Microsoft..
La tecnica e' quella di lavorare in base 256 e ogni cella dell'array
e' una cifra in questa base. Devi implementare addizioni, sottrazioni,
moltiplicazioni, divisioni e elevamenti a potenza. se poi ti avanza
tempo ottimizzi lavorando invece che con cifre di un byte con cifre di
16 (o 32, ma secondo me non migliori piu' di tanto con 32) bits,
magari riscrivendo le parti critiche in assembler.
Ciao
 Max

 Microsoft..
usi qualcosa di RSA?
A

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

salve, sto cercando un manuale delle API di win32 in Italiano.
Qualcuno sa dove posso scaricarlo ?
grazie
ciao

 Qualcuno sa dove posso scaricarlo ?
C'è un ottimo tutorial sulla rete, peccato che gli esempi siano in
linguaggio C (++)
http://aleax.supereva.it
Ciao!
--
- Carlo -

| C'è un ottimo tutorial sulla rete, peccato che gli esempi siano in
| linguaggio C (++)
|
| 
http://aleax.supereva.it
Alex Martelli? un nome una garanzia! :)
corro subito a leggerlo, visto che di API
non e' che ci capisca granche'
ciao, grazie per l'informazione!

 ciao, grazie per l'informazione!
Figurati! :)
--
- Carlo -

| > Alex Martelli? un nome una garanzia! :)
|
| Si, č una persona molto preparata.
lo so per sentito dire, ho letto un post (su c++, penso)
dedicato a lui con gente disperata perche' non si vedeva
piu' sui ng!
| Allora se permetti ti consiglio "Programmazione avanzata in Windows" di
| Jeffrey Richter
grazie, vedro' di farci un pensierino!
Ciao!
Newsgroup: it.comp.lang.delphi
Titolo: problema con DbLookupComboBox

Utilizzo un DbLookupComboBox per selezionare un indice che utilizzo nella
clausola Where di una Query.
Quando lancio l'applicazione nel Combo non č effettuata nessuna selezione
(quindi Combo.Text='').
In questo caso si ha che combo.Text='' allora lancio la Query:
SELECT *
FROM tabella
Quando invece effetto una selezione nel Combo lancio la Query
SELECT *
FROM tabella
WHERE indice='Combo.Text'
Il problema č che una volta che ho selezionato un elemento del Combo non
riesco piů a impostare Combo.Text='' e quindi non riesco piů a lanciare le
prima Query.
Come posso risolvere il problema?
Grazie a chi puň darmi una mano,
Germano

 Come posso risolvere il problema?
dai uno sguardo a KeyValue...
Ciao
Salvatore

combo.itemindex := -1;
Bye
AS

Sorry.
Ho scritto una kazzata.
Avevo letto male: credevo fosse una combo non dbaware...
AS

 > riesco più a impostare Combo.Text='' e quindi non riesco più a lanciare


 Pensa che ci avevo già perso 2 ore!
Capita a tutti!
Ciao
Salvatore

Newsgroup: it.comp.lang.delphi
Titolo: Vecchio programmatore delphi

Da 3 anni a sta parte non sviluppo in delphi, prima avevo delphi 2 e facevo
applicazioni database.
Ora ho preso in mano una copia di delphi 5 crack quando utilizzo una TTABLE
mi da
"Application is not license to use this Features".
Cosa devo fare ???
Grazie anticipatamente.

 Grazie anticipatamente.
Sei OT.
posta su free.it.cracks
Ciao
Gianluca.


Prego
-- 
Ore 18.30: premo invio.

 Grazie anticipatamente.
prego.
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red
"Di sempre cio' che senti
 e fai cio' che pensi."
	G. Garcìa Màrquez

Grazie anticipatamente.
Attenzione non alimentate questo troll.
*plonk*.
-- 
Morde. 
(morde at programmer dot net)
Newsgroup: it.comp.lang.delphi
Titolo: Elenco file di una directory

Mi serve un aiuto...
Come posso fare per inserire in un TMemo l'elenco dei file presenti in una
directory?!?
Devo usare qualche API?
GRAZIE E CIAO!!!


wrote:
Guarda nell'help le funzioni
FindFirst, FindNext, FindClose.
se guardi l'esempio, e riadatti il codice per il tuo caricare il
tutto in un TMemo dovresti riuscirci.


 ha scritto nel messaggio
news:arnJ8.31144$8x3.6...@twister1.libero.it...


 Devo usare qualche API?
procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
begin
  if (FindFirst('\*.*', faAnyFile, sr) = 0) then
  begin
    repeat
      Memo1.Lines.Add(sr.Name);
    until FindNext(sr) <> 0;
  end;
  FindClose(sr);
end;
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha
scritto: 




salve a tutti,
e se avessi bisogno di cercare anche nelle sottodir, tutti i file come
posso fare?
grazie
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.delphi
Titolo: File del cestino

鼢
Ciao a tutti.
Ho notato che se accedo alla directory "c:\recylced" (cestino) visualizzando
i file in un FileListBox, questo riporta dei nome file convenzionali del
tipo DCxxx.[estensione_originale_del_file] (credo sia pure giusto..cmq, ma
non lo sapevo, al contrario forse di qualcuno di voi).
Ora vorrei sapere come fare a ricavare i nomi originali di quei file (i nomi
che avevano prima di essere eliminati).
Grazie a tutti.
Ciao!
鼢
DeViL
================================
 E-mail : 
de...@inwind.it
================================
____________________________________
鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢
Principio della perversita' della programmazione:
   "C'e' sempre un altro bug."
鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢

____________________________________
鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢
Principio di Shaw:
   "Fai un programma che anche un idiota puo'
    usare, e soltanto un idiota vorra' usarlo."
鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢鼢


 che avevano prima di essere eliminati
avevo notato la cosa tempo fa, ma non sono mai sceso nei dettagli.
Ora che lo chiedi, sono andato a vedere e nel registro di Windows non mi
sembra di aver trovato nulla.
Comunque ho trovato due file nascosti nella directory del cestino.
Tali file sono: "Desktop.ini" e "Info2"
Il primo file contiene un Guid ( che forse fa riferimento al cestino
stesso ) mentre il secondo sembra un archivio vero e proprio che associa i
file DCxxx.estensione_originale al vero file.
Comunque si tratta di un file binario e quindi per utilizzarlo bisogna
conoscerne la struttura, almeno che non ci sia un'api che ne estrae i dati
automaticamente !!
Con questo ti saluto.....ciao !!
Antonio Tarolla
Newsgroup: it.comp.lang.delphi
Titolo: Evento su vk_down

Ciao a tutti, finalmente dopo varie prove sono riuscito a fare in modo che
la form si accorga che ho premuto il tasto freccia giù . Riporto il codice
nel caso servisse a qualcuno. Saluti Giuseppe
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  LMDCustomControl, LMDCustomPanel, LMDButtonControl, LMDCustomCheckBox,
  LMDCheckBox, LMDCheckBoxMod;
type
  TForm1 = class(TForm)
    LMDCheckBoxMod1: TLMDCheckBoxMod;
    LMDCheckBoxMod2: TLMDCheckBoxMod;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ApplicationMessage(var Msg: TMsg;  var Handled: Boolean);
var
KeyState : TKeyboardState;
 begin
   case Msg.Message of
   WM_KEYDOWN:
      case Msg.wParam of
          VK_DOWN: begin
                   GetKeyboardState(KeyState);
                    if KeyboardStateToShiftState(KeyState) = [] then
                       begin
                        ActiveControl := Screen.ActiveControl;
                          if (ActiveControl is TLMDCheckBoxMod)then
showMessage('ciao');
                       end;
                   end;
      end;//case
   end;//case
 end;
{---------------------------------------------------------------------------
---------------}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := ApplicationMessage;
end;

 nel caso servisse a qualcuno. Saluti Giuseppe
Ti ho postato una soluzione simile nell' altro thread.
--
- Carlo -

 > la form si accorga che ho premuto il tasto freccia giů . Riporto il


 ha scritto nel messaggio
news:I8%db.191569$R32.6...@news2.tin.it...


Prova questo codice e dimmi se funziona:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then
    if Label1.Font.Color=clBlack then Label1.Font.Color:=clRed
                                 else Label1.Font.Color:=clBlack;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:=true;
end;
end.
Ciao
Giorgio
Newsgroup: it.comp.lang.delphi
Titolo: ottissimo

Salve a tutti,
suggeritemi una soluzione altrimenti la devo fare in delphi.
Mi serve un programma che gestisca un torneo con gironi all'italiana e
successivi scontri diretti.
Sapete se esiste qualcosa di gia' fatto e magari freeware ?
Altrimenti mi tocca farlo.
Accidenti al rugby...
Grazie
Gianluca
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> Sapete se esiste qualcosa di gia' fatto e magari freeware ?
sourceforge?
A.

Newsgroup: it.comp.lang.delphi
Titolo: TD Explorer attivazione

Due anni fa ho installato TurboDelphi e attivato.
Ora l'ho installato su un nuov pc e mi chiede l'attivazione.
Purtroppo non trovo i codici....(non insultatemi, ci penso da solo).
Nella finestra di installazione del software c'è la possibilità di 
richiedere un file di attivazione (che è quello che avevo fatto allora), ma 
le pagine internet cui mi rimanda non ci sono più. Come posso fare attivare 
questa installazione?
Grazie
Ciao Gianni

Come non detto, trovato in codegear... sono un po' in palla.
Ciao Gianni
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Il Troll e' momentaneo

Non vi preoccupate,
 il Troll e' momentaneo, dura un paio di giorni al massimo.
 D'altra parte un Troll vero in questo forum mancava!
 Ciao.
--- posted by geoForum on 
http://www.delphiedintorni.it

Nel gergo di Internet, e in particolare delle comunità virtuali come
newsgroup, forum, mailing list, chatroom o nei commenti dei blog, per
troll si intende un individuo che interagisce con la comunità tramite
messaggi provocatori, irritanti, fuori tema o semplicemente stupidi, allo
scopo di disturbare gli scambi normali e appropriati. Spesso l'obiettivo
specifico di un troll è causare una catena di insulti (flame war); una
tecnica comune consiste nel prendere posizione in modo plateale,
superficiale e arrogante su una questione già lungamente (e molto più
approfonditamente) dibattuta, specie laddove la questione sia già tale da
suscitare facilmente tensioni sociali (come un'annosa religion war). In
altri casi, il troll interviene in modo semplicemente stupido (per esempio
volutamente ingenuo), con lo scopo di mettere in ridicolo quegli utenti
che, non capendo la natura del messaggio del troll, si sforzano di
rispondere a tono. Dal sostantivo troll si derivano, sia in inglese che in
italiano, forme derivate come il verbo trollare ("comportarsi come un
troll"), o essere trollato ("cadere nella trappola di un troll"
rispondendo a tono alle sue provocazioni). Un troll particolarmente tenace
e fastidioso può effettivamente scoraggiare gli altri utenti e causare la
fine di una comunità virtuale. Se un troll viene invece ignorato (cosa che
in genere rappresenta la contromisura più efficace), solitamente inizia a
produrre messaggi sempre più irritanti ed offensivi cercando di provocare
una reazione, per poi abbandonare il gruppo (fenomeno di autocombustione
del troll). Oltre all'indifferenza, in molti contesti esistono anche
strumenti tecnici utili per combattere i troll; un approccio generale
consiste nel predisporre opportuni filtri che consentono di rendere
automaticamente invisibili i messaggi inviati dagli utenti segnalati al
sistema come disturbatori (per esempio i killfile nel caso dei newsgroup).
La figura del troll è per molti aspetti simile a quella del fake (che
"disturba" una comunità fingendosi qualcun altro), sebbene i due concetti
non siano del tutto sovrapposti: un "fake" potrebbe partecipare in modo
disciplinato e costruttivo alla conversazione, e un "troll" non
necessariamente nasconde o falsifica la propria identità.


