mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: TlistBox & Popup

Ho creato una TListBox, ed ho associato alla sua poprietà "PopupMenu"
il TPopupMenu precedentemente creato.
Quando premo il tasto DX del mouse sopra il primo elemento della lista
non appare il popup, mentre dal secondo elemento in poi si...
in cosa sbaglio?
Per far selezionare l'elemento con la pressione del tasto DX del mouse
ho inserito la seguente funzione sulla pressione di un tasto del mouse
procedure TFMain.FListFMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
TFileListBox(Sender).ItemIndex:=TFileListBox(Sender).ItemAtPos(Point(X,Y),true);
end;

scusate ho risolto....
avevo inserito un if di questo tipo
se ItemIndex <= 0 ... allora non fai nulla,
Ovviamente l'uguale non deve esserci.
Scusate.
Newsgroup: it.comp.lang.delphi
Titolo: Una DbGrid un pó speciale...

Ciao a tutti.
A qualcuno interessa una DBGrid un pó speciale?
(ES. Passando con il mouse sopra una cella appare una Hint con il
contenuto della cella (utile per testi lunghi) .E cliccando il titolo di
una colonna la tabella viene ordinata secondo questa colonna. )
Se la risposta é si rispondetemi, altrimenti fa niente, volevo essere
carina.
Ciao, Paola.

Ciao,
mi interessa l'ordinamento ... come hai fatto visto che sul dbgrid è in base
all'indice corrente??!! Se il campo non è nell'indice ne crei uno
temporaneo?
bye Max


Interessa in che senso?
AS

Il DataSet della DBGrid é una TQuery. Purtroppo con una TTable non funziona!


Newsgroup: it.comp.lang.delphi
Titolo: Creazione documenti Word (senza M$ Word)

Avrei la necessità di generare dei documenti in formato Word ma nel pc
non ho installato M$ Word (uso OpenOffice) e i componenti standard di D7
Pro richiedono Word per generare dei files doc; esistono componenti di
terze parti che permettono di fare questo ?
 Grazie
  Gio'
-- 
/*
 * Solutions for New Business - 
http://www.snb.it
 */

Con il componente ekrtf riesci a lavorare anche con OpenOffice
lo trovi al sito 
http://ekrtf.code.net.ru

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

Ciao a tutti.
Guardate questo codice stringgrid: 
in ButtonClick:
var
C, R: integer;
begin
C := SG.Col;
for R := 0 to SG.RowCount - 1 do
SG.Cells[C, R] := UpperCase(SG.Cells[C, R]);
end;
Rende il testo da minuscolo a maiuscolo sulla colonna ove clicco.
ma se volessi farlo solo su una cella?
Grazie per l'aiuto.
Ciao.
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 Grazie per l'aiuto.
O__o
Forse che forse devi eliminare il ciclo for?
-- 
Jax

Forse che forse devi eliminare il ciclo for?
E secondo te non funziona?


 Forse che forse devi eliminare il ciclo for?
Lascia perdere il "troll", che sta giocando le ultime carte della 
moltiplicazione delle discussioni identiche. ;-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Non ho parole...

 moltiplicazione delle discussioni identiche. ;-)
Sorry, ero preso dal lavoro, era un po' che non leggevo/scrivevo (a 
parte il post su Vista) e mi sono lasciato fregare, stavolta.
Ma è ancora in giro? Che due maroni, io pensavo fosse sparito.
Non posta più da delphiedintorni?
-- 
Jax

Newsgroup: it.comp.lang.delphi
Titolo: stringhe da VB

Devo creare una libreria che verrà chiamata da un
programma fatto in VB ma dai test che stò facendo
non riesco a passare dei parametri stringa correttamente.
Qual'è la giusta convenzione?

 ha scritto nel messaggio
news:aptqkg$m4d$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:5Eww9.59057$aL4.1...@news1.tin.it...


 ha scritto nel messaggio news:aq0b63$iko$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: debug come fare?

Quando il programma entra in un loop infinito , per vedere cosa non va , di 
slto si interrompe (Run-Program PAuse) e si apre la finestra della CPU (che 
non sono capace di analizzare).
Come posso fare per andare a vedere la linea di codice dove ho interrotto 
l'esecuzione? 

 Quando il programma entra in un loop infinito , per vedere cosa non va
Al di là del debugging io uso molto gli showmessage nel loop per
visualizzare la strada che prendono i parametri principali... Oppure
delle Label

Newsgroup: it.comp.lang.delphi
Titolo: Delphi XE6 FMX TChart

Ho provato ad utilizzare il componente TChart (FMX su XE6), se compilato
per Win32 tutto OK, � veloce e utilizzabile (come la controparte VCL), se
invece compilo per Android risulta inutilizzabile (fatto girare su un cell.
Android, anche piuttosto veloce), ovvero se provo a selezionare un'area, ci
impiega svariati minuti per portare a termine lo zoom (con il rettangolo di
selezione che avanza di un passo ogni dieci secondi). Secondariamente, non
ho trovato il modo per fare lo scroll di un'area ingrandita (se provo a
trascinarlo ottengo un'altro zoom).
 
Il grafico non ha pochi dati (~3000 valori double su un asse X di date), ma
su Win32 non ha mai dato problemi, anzi � sempre risultato piuttosto veloce
anche su PC datati.
 
Ho provato a fare la stessa domanda sul forum Embarcadero, ma � down da
qualche giorno.
 
In alternativa, esistono altri componenti per realizzare grafici che
funzionino su Android?
 
-- 
  Ciao,
  Andrea Nini


Per la cronaca ho provato a utilizzare solo un centinaio di dati, ma il
problema rimane.
 
-- 
  Ciao,
  Andrea Nini


Sempre per la cronaca, in XE7 il problema velocit� � stato risolto, e ora
lo zoom � utilizzabile su Android.
 
-- 
  Ciao,
  Andrea

Newsgroup: it.comp.lang.delphi
Titolo: Parametri e param...

salve. io ho impostato (attraverso registro di windows) il lancio di
un'exe attraverso uno speciale url. questo url č gagl://
Digitando l'url il programma parte. Perň a me serve di aggiungere dei
parametri (precisamente 2) a quell'url. E quindi mi č stato suggerito di
usare "paramstr(1)" per recuperare i parametri.
lanciando il programma, questa funzione mi da una stringa cosi composta
---> gagl://parametro1/parametro2
Il mio problema č: come faccio a prendere solo quei 2 parametri e a
separarli in due variabili string?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

dai aiutatemi su!!! UP!


 
?!?! Un po' di calma... grazie.
Davide DG.
-- 
All resistance is futile! Prepare to be disassembled !
 Usate sempre font a larghezza fissa per guardare
 estratti di codice nei miei post.

 separarli in due variabili string?
Puoi usare le funzioni:
LastDelimiter
Copy
Ciao,

Newsgroup: it.comp.lang.delphi
Titolo: Evitare Beep con tasto Enter

Come posso evitare di sentire il beep quando premo invio in un combobox??
Grazie
-- 
Posted from 
ppp-151-117.33-151.iol.it
 [151.33.117.151] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
Risposta 3.5 sulle FAQ!
Ciao !                                                    {MSX}
Aho', ste faq non le legge nessuno :)
--
{MSX}  -  
http://msx.rules.it
Mantenitore delle FAQ di it.comp.lang.delphi,
reperibili qui: 
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt

> Aho', ste faq non le legge nessuno :)
Eppure si trovano tantissime risorse :-))
Ciao
Antonio

 Come posso evitare di sentire il beep quando premo invio in un combobox??
Lavorando su OnKeyPress ...
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Key := #0;
end;
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu
Newsgroup: it.comp.lang.delphi
Titolo: Runtime packages, dove sbaglio?

Stavo cercando di fare un runtime package personalizzato da allegare
alla mia applicazione al posto di quello di delphi standard, ma quando
uso quello invece di quello standard nell'applicazione (ovviamente
ricompilata) ottengo strani errori di access violation....
il suo sorgente e' in fondo al mex
dove e' che sbaglio?
quello standard contiene molte unit che non uso, se uso questo qui
invece le dimensioni del mio programma si riducono notevolmente.
Grazie a tutti...
Ciao
package kt2krtl;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS OFF}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$RUNONLY}
{$IMPLICITBUILD OFF}
contains
  Sharemem,
  Windows,
  Messages,
  SysUtils,
  shellapi,
  Classes,
  Graphics,
  Controls,
  Types,
  SysConst,
  ActiveX,
  Math,
  RTLConsts,
  Variants,
  VarUtils,
  TypInfo,
  FlatSB,
  StrUtils,
  MultiMon,
  Contnrs,
  HelpIntfs,
  ActnList,
  Printers,
  Consts,
  StdActns,
  Clipbrd,
  Menus,
  ImgList,
  StdCtrls,
  Dialogs,
  ExtCtrls,
  WinHelpViewer,
  comconst,
  comobj,
  Forms,
  buttons,
  Registry,
  IniFiles,
  ComStrs,
  Mapi;
end.
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <Remove DELTHIS from the address to reply>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_

IMHO, userei comunque quello standard e terri quello
personalizzato da parte.
Preferisco in genere non modificare quanto fornito con delphi.
Meglio ereditare (per i componenti) o aggiugere un altro pkg,
in questo caso.
Ma questa č la mia opinione.
Riguardo il tuo problema, ti suggerirei di non eliminare in blocco
tutto cio' che la tua app sembra non usare.
Prova a eliminarne una alla volta, ricompialndo il tuo pkg
ogni volta e provando ad usarlo dalla tua applicazione.
In questo modo, almeno inizi a capire se esiste qualcosa
in particolare che lo fa inkazzare.
Ad esempio, se nella lista vi sono 10 units che tu non usi,
comincia ad elimiare la prima, compili pkg+app e provi
E via cosi fino all'ultimo.
Bye
AS
"Se č Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: Euro e database desktop

Vorrei sapere come mai, i campi currency nel database
desktop, sono visulizzati come L.+valore, mentre
dovrebbero essere formattati in euro, come si può fare
a cambiare questa visualizzazione????
grazie.

 wrote in message
news:a4g8n8$6kso$1...@stargate1.inet.it...

Cambia il tipo di valuta nelle impostazioni internazionali
di Windows.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Questo già l'ho fatto da tempo, ma mi visualizza
sempre le lire nel database desktop.


sempre le lire nel database desktop.
Non so che dirti, io ho risolto cosi'.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: Inserimento colonna in un DB

Ho un'applicazione che si connette ad un DB Access attraverso ODBC. Dovrei
aggiungere alcune colonne al DB dall'applicazione. In pratica eseguire un
aggiornamento della release del DB.
Qualcuno sa dirmi se e come è possibile farlo? Grazie anticipatamente per
l'aiuto!

Spero di aver capito bene il tuo problema.
Io creerei una TQuery (delphi 4) con uno script SQL analogo:
ALTER TABLE [nome tabella] ADD [nome colonna] [tipo]...
Quindi in delphi:
TQuery.ExecSQL;
Ciao
Solid Snake
Newsgroup: it.comp.lang.delphi
Titolo: report di query

 il mio problema è che vorrei impostare un report che stampi il risultato 
di una query con parametri....come faccio?
la query deve avere necessariamente i parametri perchè possono essere 
cambiati di volta in volta i criteri di ricerca...aiutatemi
grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

 grazie
Guarda io ho usato Fuzzy Report con D7 e dal componente base di Fuzzy puoi
dirgli di prendere i dati dalla tua query che imposti te runtime.
Io mi sono trovato benissimo.
Se hai bisogno di aiuto chiedi pure.
Ciao
Fabio

 grazie
Allora: assumi come ipotesi l'uso di QuickReport e di una TQuery come
dataset master del report.
Prima di tutto, crea il tuo bravo QuickReport1 e mettici dentro un oggetto
TQuery denominato Query1. Imposta poi la property Dataset di QuickReport1 a
Query1: in questo modo stai dicendo a QuickReport di stampare una band di
tipo detail per ogni record nel dataset Query1.
Adesso piazza un bottone nel form principale del tuo programma e nel suo
evento OnClick scrivi:
procedure TForm1.Buootn1Click(Sender: TObject);
begin
    QuickReport1.Query1.Close;
    QuickReport1.Query1.SQL.Clear;
    QuickReport1.Query1.SQL.Add('select * from TABELLA');
    QuickReport1.Query1.SQL.Add('where CRITERI CHE CAMBIANO DI VOLTA IN
VOLTA');
    // qui valorizzi i parametri che eventualmente hai impostato sopra
    QuickReport1.Query1.ParamByName('NOMEPARAMETRO').AsString := 'VALORE
PARAMETRO STRINGA';
    QuickReport1.Query1.Open;
    QuickReport1.Preview;
end;
In pratica, la query master viene riempita dinamicamente in base alle
indicazioni che dai prima di produrre il report. Ovviamente, tutto ciò ha
senso se l'output della query non cambia a seconda de criteri, cioè se una
volta vuoi che ti stampi degli indirizzi e la volta dopo degli estratti
conto non funziona, ma se esigi prima gli indirizzi di Roma e poi quelli di
Milano allora va (insiemi risultato omogenei).
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

        info @ 
marcobortolani.it
Grazie, l'idea potrebbe essere buona ma c'è ancora qualcosa che non va: 
non viene visualizzato nulla sul preview del report... dovrei aggiungere 
un oggetto tipo QRExpr per far visualizzare il risultato della query ma 
quale espressione metto se l'oggetto accetta solo i campi della query?
ciao


 quale espressione metto se l'oggetto accetta solo i campi della query?
Penso che tu non abbia le idee chiare sugli oggetti di QuickReport:
un'expression serve per indicare al sistema di valutare un'espressione, non
per realizzare l'output di un valore. Se riesci ad essere più preciso
nell'esporre il problema, magari possiamo vedere come risolverlo.
Saluti

Newsgroup: it.comp.lang.delphi
Titolo: Esecuzione di una sequenza di azioni

Ciao a tutti,
definendo una azione es:
   myaction : taction;
e quindi avendo:
procedure TForm1.MyActionExecute(Sender: TObject);
begin
  // contenuto azione
end;
se volessi attivarla all'interno di una procedura, ad esempio in seguito ad 
un click del button:
procedure TForm1.MyButtonClick(Sender: TObject);
begin
   ...
    // esecuzione azione1
    // esecuzione azione2
    ...
    // esecuzione azioneN
   ...
end;
come dovrei scrivere?
Ho provato partendo dal nome dell'oggetto con myaction.execute, 
myaction.execution etc etc ma non hanno prodotto i risultati voluti.
La sintassi esatta qual'č?   Il mio scopo č avviare un wizard che comprende 
una sequenza di azioni precedentemente definite alla pressione del relativo 
button.
Grazie in anticipo.
Cooper.

 come dovrei scrivere?
Basta che richiami il metodo relativo all'evento associato all'azione.
Ad ogni modo, se le tue azioni non hanno controlli associati in grado di 
"scatenarle", è inutile che ne fai uso in quanto servono ad altro (ti 
basterebbero semplici metodi).
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Newsgroup: it.comp.lang.delphi
Titolo: operazioni matematiche

dovrei usare una operazione matematica cioè vorrei sottrare il valore 
presente in TRichEdit meno al valore assegnato in TRadioButton il 
risultato lo vorrei vedere in TLabel mi dite che comando devo smanettare?


?
cioè?
Gp

 Gp
un po sto cominciando a capire allora ho fatto questo:
procedure TForm1.Volt13Click(Sender: TObject);
VAR
X,Y,Z:INTEGER;
S:STRING[10];
begin
VAL(Volt.TEXT,X,Z);
  VAL(1.3,Y,Z);
  X:=X-Y;
  STR(X,S);
  EDIT3.TEXT:=S;
end;
ma alla seconda riga "val" io voglio assegnare un valore diretto che č 
1,3 volt come posso modificare questa riga?

Newsgroup: it.comp.lang.delphi
Titolo: Eseguire una select where su un campo TDatetime

Devo eseguire questa query
Select * from nome_tabella where data = 31/03/1992
Mi da errore type mismatch
Il campo data e TDateTime

Mi da errore type mismatch
Devi indicarla come stringa e, nel caso usi il local SQL, in formato
mm/dd/yyyy, cioe'
Select * from nome_tabella where data = "03/31/1992"
Ciao
Daigo

 Select * from nome_tabella where data =:DATA1
Query.paramsByName('DATA1').AsDateTime:=Strtodate('31/03/1992');
Ciao.

Newsgroup: it.comp.lang.delphi
Titolo: Una domanda semplice su TMemo

Leggendo i sorgenti delle demo di un componente che sto valutando un 
componente memo viene chiamato in questa modalità:
.....
miomemo(nil);
......
Qual'è la finalità di questa chiamata.
Grazie Carlo 

 Qual'è la finalità di questa chiamata.
Siamo sicuri che l'identificatore /miomemo/ sia un riferimento ad un 
oggetto di tipo *TMemo* e non una procedura o un metodo?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 ha scritto nel messaggio 
news:44707db0$1...@newsgate.x-privat.org...


 Riferimento a procedura.
In tal caso, il senso dell'istruzione è...chiamare la procedura. :-)

Newsgroup: it.comp.lang.delphi
Titolo: PORCA MISERIA! Possibile che nessuno abbia questo pproblema?

Salve a tutti.
Qualcuno sa dirmi se c'e' un modo per NON costringere l'utente a premere
ENTER o a cambiare campo prima di salvare (
query.post
 nel codice)?
Se non fa una delle due operazioni l'ultimo campo che l'utente riempie o
modifica rimane col vecchio valore.
Questo succede anche con le DBGrid (dove devo cambiare record o premere
ENTER.
Con la ControlGrid è ancora peggio perchè devo proprio cambiare record per
poter confermare i dati e la pressione del tasto ENTER non funziona.
Vi ringrazio anticipatamente.

 wrote in message
8ja5mv$are$1...@pegasus.tiscalinet.it...


>
Qualcuno sa dirmi se c'e' un modo per NON costringere l'utente a premere
ENTER o a cambiare campo prima di salvare (
query.post
 nel codice)?
Se non fa una delle due operazioni l'ultimo campo che l'utente riempie o
modifica rimane col vecchio valore.
Questo succede anche con le DBGrid (dove devo cambiare record o premere
ENTER.
Con la ControlGrid è ancora peggio perchè devo proprio cambiare record per
poter confermare i dati e la pressione del tasto ENTER non funziona.
<<
Puoi chiamare 
TDbControl.DataSource.DataSet.Post
 in qualunque momento, ma
personalmente non ne vedo l'utilità se l'utente non voleva salvare in quel
momento.
Attualmente come fai a sapere che l'utente vuole postare una modifica?
Quello che descrivi è il comportamento predefinito _e_ documentato (v. Help
<Editing data in a control>). Se hai bisogno di comportamenti diversi credo
tu debba subclassare dai vari controlli o crearti dei controlli db-aware
personalizzati.
hth
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: Select... eccezzione su caratteri particolari...

Salve, eseguo una select su stringhe su cui generalmente non controllo i
caratteri di esse... Cosa alquanto strana accade quando faccio una select
( tramite gli oggetti ado ) del tipo select * from mia tabella where nome =
'''+qualcosa+''';
Ora mi accade che se qualcosa contiene caratteri come ( ' ) l'apice o la
parentesi quadra ( [ ) ( ] ) la query genera un eccezione... come posso
ovviare a questo problema ?
Una soluzione potrebbe essere del tipo che se nella stringa è contenuto uno
dei caratteri di cui sopra allora sostituisco a quei caratteri altri
caratteri ma immagino la cosa sia dispendiosa in termini di tempo al
crescere del numero dei record.
Grazie e buon lavoro,
Antonio.
-- 
_______________________________________________________________________
Nel 1969 l'equivalente della potenza di due Commodore 64 ha portato un razzo
sulla luna,
oggi la potenza di un Pentium 4/3000MHZ serve per far girare Windows XP,
qualcosa deve esser andato storto!

 posso ovviare a questo problema ?
Prova a usare QuotedStr su qualcosa prima di eseguire la query ;)
-- 
Jax
====
da un'asta di eBay.de:
"Perché she/it è un comodo e facile maneggiare
Macchina fotografica, per professionale anche come per la fotografia
digitale e privata. Attraverso la funzione di anteprima, Lei inscatola i
Suoi ricevimenti se i ritratti o video corto abbranca, immediatamente guarda
a!"
Newsgroup: it.comp.lang.delphi
Titolo: #  # #  # #

--- posted by geoForum on 
http://www.delphiedintorni.it



Newsgroup: it.comp.lang.delphi
Titolo: Settaggio user e password col TWebBrowser

Esiste una procedura (o una qualche proprietą) del TWebBrowser che mi
consente di passargli i parametri per la login ad un sito?
Grazie mille!
Gohan
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 consente di passargli i parametri per la login ad un sito?
prova un po con queste ... mi ci sto cimentando in questi giorni.
procedure TForm1.Button1Click(Sender: TObject);
begin
if not compila(webbrowser1, 'Codice', 'xxxxxxx') then
    ShowMessage('Errore: il campo Codice non esiste nella pagina')
  else begin
    if not FillForm(webbrowser1, 'PWd', 'yyyyy') then
      ShowMessage('Errore: il campo pwd non esiste nella pagina')
    else begin
      if not FillForm(WebBrowser1, 'categoria', 'Musica') then
        ShowMessage('Errore: il campo CATEGORIA non esiste nella
pagina');
         .
         .
    end;
  end;
end;
function TForm1.compila(WB: TWebBrowser; FieldName, Value: string):
Boolean;
var
  FormNr, ItemNr: integer;
  TheForm: Variant;
begin
  Result := False;
  if WB.OleObject.Document.All.Tags('FORM').Length = 0 then begin
    ShowMessage('Errore: nessuna FORM');
    Exit;
  end;
  for FormNr := 0 to WB.OleObject.Document.Forms.Length - 1 do begin
    TheForm := WB.OleObject.Document.Forms.Item(FormNr);
    for ItemNr := 0 to WB.OleObject.Document.Forms.Item.length - 1 do
begin
      try
        if TheForm.Item(ItemNr).Name = FieldName then begin
          TheForm.Item(ItemNr).Value := Value;
          Result := True;
        end;
      except
        Break;
      end;
      if Result then Break;
    end;
    if Result then Break;
  end;
end;
Il problema per me, ora, è riuscire a catturare automaticamente i
'nomi' dei campi da riempire prelevandoli dall'HTML della pagina.
Se ti viene in mente qualche idea fammela sapere. 
Ciao
Giannni

Gohan
	Ciao
	MassimoB

Newsgroup: it.comp.lang.delphi
Titolo: dimensione file BMP

ciao ragazzi!
vorrei sapere come posso fare per individuare la dimensione (in pixel es.
640x480) di un file *.BMP
senza necesariamente leggere tutto il file.
grazie a tutti.

 es. 640x480) di un file *.BMP
In teoria basta leggere i byte giusti, in questa pagina viene spiegata la
struttura di un .bmp:
http://www.fortunecity.com/skyscraper/windows/364/bmpffrmt.html
Comunque, visto che stasera non avevo niente di meglio da fare:
function ReadBMPSize(sFile: String): TPoint;
var
  fsFile: TFileStream;
  pWidth, pHeight: DWORD;
begin
  fsFile := TFileStream.Create(sFile, fmOpenRead);
  try
    fsFile.Seek($12, 0);
    fsFile.ReadBuffer(pWidth, 4);
    Result.X := pWidth;
    fsFile.ReadBuffer(pHeight, 4);
    Result.Y := pHeight;
    finally fsFile.Free;
  end;
end;
e poi la richiami con
var
  pSize: TPoint;
begin
  pSize := ReadBMPSize(<<nome_del_file>>);
  Caption := Format('%d x %d', [pSize.X, pSize.Y]);
end;
-- 
Jax
====
La sofferenza è una specie di bisogno dell'organismo di prendere
coscienza di uno stato nuovo. (Proust)

 Comunque, visto che stasera non avevo niente di meglio da fare:
Grazie 1000
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: domandina

Ho letto la documentazione ma c'è proprio una cosa che non ho saputo 
trovare e provo a chiedere... penso sia per voi che ci lavorate una cosa 
molto banale ....
Se creo un form vuoto ed a questo aggiungo un bottone, c'è una proprietà 
   del bottone per la quale imposto che il bottone subisca un resize 
come quello del form ?
Grazie e scusate.
PS :  delphi è molto bello, sono veramente rimasto molto impressionato 
dalla produttività dell'ambiente di sviluppo.... una produttività non 
inferiore a quella di VB ma con un codice nettamente + mantenibile .... 
veramente lo apprezzo :) (pur trovando la sintassi del pascal un po 
menosa :) )

pi...@tin.it
 wrote:
[...]
per il mio studio di italiano sono ben + indietro che con delphi :)

 come quello del form ?
Metti a True tutte e quattro le proprietą sotto Anchors.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 
grazie... arrivando da un accanito uso del vi .... i rad mi mettono in 
difficoltà .... :) poi ci vedo sempre meno :)

Newsgroup: it.comp.lang.delphi
Titolo: Campi Blob Image in IB6

Si puo' definire un campo Blob immagine in IB6?
--
Giuseppe Fraddosio
fradd...@libero.it
fradd...@supereva.it

Il blob è un campo scemo.
Lui registra dei bytes e non sa cosa significano.
Non confondere il blob che è generico con il campo di
tipo image di paradox...
Nel blob metti cio' che vuoi: sta poi a te utilizzare i dati
per farci quello che ti pare.
Questo non vale solo x IB, ma è una cosa comuni a tutti i db.
Saluti
AS
-- 
Posted from 
ammi.mclink.it
 [195.110.128.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Questo non vale solo x IB, ma è una cosa comuni a tutti i db.
Hai ragione. Il problema che ho ancora la mentalita' paradox ...

Newsgroup: it.comp.lang.delphi
Titolo: MI5 Persecution: Bernard Levin 1/6/96 (1373)

,
: 
bu...@torfree.net
 (Mike Corley) quoted a typical, overblown Bernard Levin
: piece, which sounds exactly like any number of other pieces by Levin over
: the past thirty years.
 
: He then goes on to draw an anguished parallel with a totally unrelated
: incident that had happened between him and a friend a few days earlier.
 
It is in the same style as his other pieces, but it's so close to what
actually happened a few days previously, that it's completely reasonable
to assume that someone told Levin about the meeting, hammed it up a
little bit and motivated him to write that article.
 
Look at the parallels;
 
1.  "madman running loose about London"
 
2.  it's about a meeting which took place recently
 
3.  the police are called (he must be controlled, however much that
consumes in resources)
 
4.  he might be violent, approach with caution, yes we're laughing but
really we're afraid of him, or is it perhaps our own propaganda that
we're letting manipulate us
 
5.   he "bursts into tears, and swears it's all true - and it is" a very
exaggerated impression of the conclusion of that meeting
Don't worry if you don't believe me, neither my friend to whom I
explained this nor my GP believe me either (until the friend found out
otherwise!). If someone just presented this to you as I am presenting it
now then I wouldn't find it credible (most likely), so it's not until you
actually find out it's true that you can find it credible. And by then
it's too late, because they've got you in their trap and explained how
"funny" the abuse is.
1373
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDemon.com
<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access



Newsgroup: it.comp.lang.delphi
Titolo: [NIUBBO] open dialog

Salve sono un niubbo
come faccio a fare un open dialog???
per esempio di un file di testo in memo1 ???
grazie mille

 per esempio di un file di testo in memo1 ???
Vai nella Tab "Dialog" della Component Palette e trascina sul Form il
componente "OpenDialog".
Poi:
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Spero di aver capito la tua domanda.
Ciao, Marco.

Spero di aver capito la tua domanda.
Si grazie mille per l'aiuto, era proprio quello che mi interessava^^
Newsgroup: it.comp.lang.delphi
Titolo: Comdlg32

Ciao,
ho sviluppato un software su PC98 che usa Win98 e la comdlg.dll 
versione 4.72.3110.2.
Ora se installo il software sotto Win95, succede che alcune dialog, 
tipo quella di stampa non viene aperta. Indagando ho scoperto che Win95 
ha come versione di comdlg32.dll la numero 4.00.951.
Quale soluzione adottare?
Grazie, luca
--
Posted from 195.250.225.194 by way of 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
FZSCKP$IcNe1HUan0BC17WTBJYvFinv...@libero.it...


 wrote in message
FZSCKP$IcNe1HUan0BC17WTBJYvFinv...@libero.it...
Ciao,
ho sviluppato un software su PC98 che usa Win98 e la comdlg.dll
versione 4.72.3110.2.
Ora se installo il software sotto Win95, succede che alcune dialog,
tipo quella di stampa non viene aperta. Indagando ho scoperto che Win95
ha come versione di comdlg32.dll la numero 4.00.951.
Quale soluzione adottare?
Grazie, luca>
Nel CD di Delphi, se non ricordo male, c'e' l'Update della M$ per
ovviare a questo problema (..\info\updates).

 Quale soluzione adottare?
Beh, aggiornare la dll.
Tra l'altro, se non ricordo male, nel CD del Delphi dovrebbe esserci 
l'aggiornamento della Microsoft relativo a quel file. Altrimenti puoi 
scaricarlo dal sito Microsoft, è distribuibile liberamente.
-- 
Roberto Lupi

Newsgroup: it.comp.lang.delphi
Titolo: Console x Firebird

ho usato mesi fa una console (personal desktop manager ?) , per creare
database, tabelle, trigger, etc, che nelle versione personal e' free.
ma vatti a ricordare come cavolo si chiama.
mi date un'imbeccata.
grazie Stefano


IBExpert lo trovi al sito 
www.ibexpert.com
--- posted by geoForum on 
http://www.delphiedintorni.it

Io uso 2 front-end diversi, ma entrambi molto validi
ibEasy+
IBOConsole
Stefano Lorenzi


Newsgroup: it.comp.lang.delphi
Titolo: Parser XML per Delphi

Salve mi chiamo Luca ed è la prima volta che intervengo in questo newsgroup.
Ho bisogno si scrivere un'applicazione Delphi che legga dei file XML, ho
trovato qualcosa in giro per la rete che non mi ha molto soddisfatto mi
domandavo quindi se qualche frequentatore di questo newsgoup aveva già usato
qualcosa di simile.
Rigrazio anticipatamente per la collaborazione.
Luca



Prova DefinedXML, (
xml.defined.com
 se non sbaglio), e' il + completo
che abbia trovato, anche se e' un po' complesso, il guaio peggiore e'
che non c'e' documentazione.
Altrimenti su Torry ne trovi alcuni + semplici, che non ho provato
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: opendialog e savedialog

Ciao,
con topendialog e tsavedialog è possibile nascondere il campo dove si
digita il nome del file?
In pratica con topendialog voglio semplicemente che l'utente selezioni
il nome del file col mouse senza poterlo digitare mentre con
tsavedialog voglio che l'utente selezioni soltanto la cartella di
destinazione dove il file che salverò avrà lo stesso nome del file che
è stato aperto ma con un altra estensione.
Se si può fare, chi può dirmi come fare?
Grazie.

 Grazie.
Nelle Opzioni abilita OldStyleDialog - fa un po' schifo ma non c'e' l'input

 Nelle Opzioni abilita OldStyleDialog - fa un po' schifo ma non c'e' l'input
Nulla da fare, almeno con vista non sortisce di alcun effetto; in ogni
caso, mantenendo lo stile della finestra di dialogo, magari attraverso
qualche api non c'è modo se non di nascondere, quantomeno di rendere
in sola lettura il campo input del file sempre la opendialog e per la
savedialog?

per la selezione della director se hai installata le librerie Jvcl
c'e' il componente TJvDirectoryEdit o TJvDirectoryListBox mentre per
la selezione del file puoi usare TJvFileListBox, ciao Brunello
Newsgroup: it.comp.lang.delphi
Titolo: verifica arrivo email

E' possibile verificare che una email (spedita con Indy9) arrivi al 
destinatario, poi che sia letta o meno non interessa.
Ho paura che il server del destinatario la cestini. Oppure al contrario 
sapere quali email sono state cestinate dai server POP.
Credo non sia possibile saperlo purtroppo.
cmq sarebbe gradito un vs parere.
Saluti. Giacomo 

Credo non sia possibile saperlo purtroppo.
Credi bene :-)

 destinatario, poi che sia letta o meno non interessa.
Se riesci a consegnarla direttamente al server SMTP che gestisce 
l'account del destinatario, puoi determinare da subito se il messaggio è 
accettabile o meno dal server stesso (in caso contrario, ottieni un 
errore), tuttavia non puoi però determinare ciò che farà successivamente 
il server di tale messaggio (es. contrassegnarlo come spam, inoltrarlo 
ad altre caselle di posta, cestinarlo, ecc. ecc.).
Gli errori che puoi tutt'al più intercettare sono "nome del destinatario 
non valido", "mailbox piena" e così via.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

grazie.

Newsgroup: it.comp.lang.delphi
Titolo: Usando webbrowser

Ciao.
Con webbrowser apro una pagina web, la visualizzo,introduco i dati di login
poi vorrei estrarre dati dalla pagina seguente ma non ci riesco , nel senso
che  l'evento downloadcomplete o navigationcomplete mi scatta anche alla
prima pagina mentre io vorrei che una certa procedura scattasse solo dopo il
completo caricamento della seconda pagina.
Mi suggerite come discriminare la prima pagina dalla seconda e fa partire la
mia procedura solo nella seconda?
Grazie.

 mia procedura solo nella seconda?
verificando, nell'evento, l'indirizzo della pagina appena scaricata.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: RAGAZZI SAPETE QUALCOSA DI DELPHI 7 CON LINGUAGGIO D





E 




NEL MIO PAESE SI SENTE TANTO PARLARE DI QUESTO 
DELPHI 7


IO HO ACCUISTATO DELPHI 6
 
,SPERO CHE SIANO SOLO CHIACCHIEREALTRIMENTI CHE SOLA.


CIAO FATEMI SAPERE



Sorry è già uscito il 7....





Il 7 è una versione per passare al 
.NET


Visto che è ancora prematuro, quando sarà è meglio 
acquistare direttamene il Delphi .NET (per il prossimo anno credo) e scrivere le 
applicazioni nuove sulle nuove piattaforme.


Ste cose miste non mi sono mai piaciute, 
anche se ti dovrebbero far adeguare al modo di programmare sotto la nuova 
piattaforma Microsoft che credo cambierà molte cose nei prossimi 
anni.


 


C'è cmq la presentazione il 12 a Roma e il 20 a 
Milano della nuova versione, se vuoi saperne di più puoi parteciparvi 
gratuitamente.


 


Ciao,


  Fabio


 


 



In ogni caso la versione 7 di Delphi mette a disposizione un compilatore
.Net per prendere dimestichezza con la piattaforma MS.
La nuova versione, hcimata Galileo, che arriverà l'anno prossimo, metterà a
disposizione un ambiente nativo IDE per programmare con .Net ma permetterà
(non si sa ancora se sotto la stessa IDE o mettendo nel package 2 IDE
distinte) naturalmente di programmare applicazioni native Win32, come
adesso.
Paolo


Dunque, vediamo un po':
1) hai postato su un newsgroup pubblico in formato HTML. CIO' E' MALE!
2) hai scritto tutto in maiuscolo. CIO' EQUIVALE A URLARE, POCO EDUCATO!
3) pace all'anima dell'italiano (inteso come lingua)...
Punteggio piuttosto basso, vediamo di migliorare.
Delphi 7 e' uscito in questi giorni. La trial della versione Architect
(quella piu' completa) e' scaricabile dal sito 
www.borland.com
.
Se hai acquistato Delphi 6 hai due scelte:
1) ti tieni quello che va comunque bene (nessuno ti obbliga a comprare
l'ultima versione).
2) se hai soldi da spendere e riteni che D7 abbia qualcosa che ti serve
e D6 non ce l'ha, puoi fare l'upgrade a prezzo inferiore.
Poi, il fatto che il prodotto che usi venga aggiornato e ne escano nuove
versioni, mi pare un'ottima cosa, non certo un problema, tantomeno una
sola (perche', dovevano essere piu' di una? E cosa?).
--
Roal Zanazzi
Newsgroup: it.comp.lang.delphi
Titolo: Domande su Interbase... [un po' OT forse]

Qualcuno di voi sa per caso se i dati che si ricevono/spediscono da/a un
server interbase sono o meno crittati? Se no, è possibile forzare interbase
a crittarli? Se si, sapete per case che tipo di crittazione adotta?
È possibile in Perl o ASP (oltre che in Delphi) accedere ai dati dello
stesso server interbase?
Grazie in anticipo,
  Luca T.


iQA/AwUBO5dX/vqaIcOa7Z5XEQKtoQCePxXou4In2eOCUCoak9GJLW3n+TcAn1Z0
70e+6sSnkCfsOhlZYK8ARPYe
=8mzW
-----END PGP SIGNATURE-----

stesso server interbase?
La soluzione, in ASP, e' usare ADO + un OLE DB Provider per
Interbase (dovrebbero essercene di gratuiti in giro) oppure
un driver ODBC.
--
Andrea Laforgia (mica uno qualunque...)

 Interbase non implementa alcuna crittazione.
Non è completamente vero. Da OpGuide di interbase 6:
"Once you log in to a server, you can then connect to databases residing on
the server.
All users must enter their username and password to log in to a server. The
password is
encrypted for transmission over the network. The username and password are
verified
against records in the security database. If a matching record is found, the
login succeeds."
Invece nulla è detto sul flusso di dati dopo la login. E' quindi da supporre
che il trasferimento sia "plain"
Ciao ZioPino

che il trasferimento sia "plain"
E' esattamente quello di cui stiamo parlando.
Si parla dei "dati" (non intendendo, quindi, username e
password) che si ricevono e si spediscono da/a un server
interbase.


 wrote:
Mi sta venendo in mente che, forse forse, si potrebbe usare una connessione
via ssh. In questi giorni provo e poi so dire.
Ciao ZioPino
Newsgroup: it.comp.lang.delphi
Titolo: Invio mail con client di posta

Devo inviare una mail con allegati (pdf+txt) utilizzando il client di
posta installato sul pc.
Sembra di capire che il comando shellexecute non funzioni con tutti i
client di posta e che abbia problemi con gli allegati.
Ci sono alternative ? E se ponessi di avere outlook/outlook express
installato ?
Utilizzo delphi 7.
Grazie di qualsiasi consiglio ....

 Grazie di qualsiasi consiglio ....
Devi ricorrere a OLE AUTOMATION. Cerca in rete ci sono numerosi esempi.
Una buona introduzione:
http://www.blong.com/Articles/Automation%20In%20Delphi/Automation.htm
Esempi pratici con outlook:
http://www.delphi3000.com/Search/Default.asp?Task=Search&SK=outlook&SC=1&RPP=25&ORDERBY=1
Un buon tutorial generico:
http://delphi.about.com/od/kbcontrolole/OLE_Automation_using_Delphi.htm
e cosï¿œ via...
L'integrazione piï¿œ riuscita per via della sua diffusione massiva ï¿œ 
quella con Outlook. Outlook Express invece non espone un'interfaccia 
COM per poter essere pilotato, quindi escludilo a prescindere.
Pur utilizzando thunderbird, non mi sono mai messo alla ricerca di un 
sistema per integrarlo con un'applicazione esterna, prova a cercare 
anche questo se vuoi.
Esiste anche un'automazione disponibile con l'SDK di OpenOffice ma 
anche qui, per mancanza di mercato, non ho mai messo le mani 
sull'argomento..
Ciao
-- 
Morde

MAPI

Newsgroup: it.comp.lang.delphi
Titolo: Parametri da linea di comando:

supponendo che lanci la mia applicazione con
app.exe /ciaobello
come faccio nel programma a recuperare il '/ciaobello' ?
grazie ancora, Poochie

 ha scritto nel messaggio
news:ul0Fa.73457$Ny5.2...@twister2.libero.it...


 e se vuoi sapere quanti sono i parametri: paramcount
Dai anche un'occhiata a FindCmdLineSwitch, che ti permette di determinare se
quel parametro è stato passato o no, senza sapere in che posizione
(utilissimo se si hanno più parametri possibili).
--
Jax
Journeying Artificial Xenomorph
Newsgroup: it.comp.lang.delphi
Titolo: Bitmap

Devo lavorare con immagini bitmap di grosse dimensioni 4096x4096 e volevo 
cercare di velocizzare tutte le operazioni cominciando dal caricamento 
dell'immagine che allo stato attuale ci mette qualche secondo.
Che differenza c'è tra tra:
BMP := Immagine_bitmap e 
Bmp.Assign(Immagine_bitmap)?
Come posso fare per ottimizzare i tempi?

Come posso fare per ottimizzare i tempi?
certo creare ogni volta una copia della BMP non
ottimizza certo i tempi ... ;) dovresti cercare di
avere solo una copia della BMP in memoria e se devi
fare backUp di parti modificate cerca di copiare solo
la regione realmente modificata e non la BMP per intero
(come detto sopra) certo che in questa maniera
l'implementazione si complica ... c'è sempre un
problema di prodotto costante ;)
Ottimizzazione*(1/Fatica)=Const :P
	Ciao
	MassimoB
 

puntatore alla locazione di memoria [...]
mi scrodavo di dirti che se invece usi la Bitmap della
Picture di una TImage quello che ottieni e sempre un
Assign anche se ti sembra di cambiare semplicememte un
valore di variabile (puntatore), questo perchè la
Image.Picture.Bitmap e una proprietà e quando esegui un
settaggio di valore quello che succede è che prende la
Bitmap e gli fa un Assign del valore che gli passi ...
Forse con un esempio chiarisco la situazione
scrivere
MiaImage.Picture.Bitmap:=NuovaBitmap;
equivale a 
var
  NewGraphic: TGraphic;
begin
[...]
  NewGraphic := nil;
  NewGraphic := TGraphicClass(NuovaBitmap.ClassType).Create;
  NewGraphic.Assign(NuovaBitmap);
  try
    MiaImage.Picture.Free;
    MiaImage.Picture := NewGraphic;
  except
    NewGraphic.Free;
  end;
Ciao MassimoB
 

Grazie massimo per la risposta, quindi ti spiego meglio qual'č il
problema.
Ho una Timage sulla quale carico una bitmap che ho in memoria da
qualche parte con img.bitmap := bitmap; di 4096x4096 (ci mette un po'
di tempo ma la cosa č accettabile.
Faccio alcune operazioni sui pixel della bitmap che ho in memoria e
devo riassegnare la bitmap in memoria alla image una volta eseguite le
operazioni.
E' proprio questa ultima operazione che ci mette troppo tempo, in
quanto l'immagine dopo la trasformazione č diventata 2*4096x4096.

[...]
quello che non capisco è perchè la devi riassegnare se
le modifiche le fai sulla sulla BMP a cui il picture
della img già "punta"?!?! ... Cerca di lavorare su
un'unica BMP, le modifiche falle direttamente sulla Bmp
della img.Picture.bmp e poi dai un refresh o invalidate
o un altro metodo della picture o della img che ti
aggiorni semplicemente la visualizzazione della img,
no?
magari se posti il codice che usi mi toglieresti tutti
i dubbi e potremmo discutere su qualcosa di concreto ;)
	Ciao
	MassimoB
Newsgroup: it.comp.lang.delphi
Titolo: [ot] server news

ciao e grazie per la precedente risposta
Mi dite come posso scaricare it.comp.lang.delphi su outlook.
Prima avevo l'adsl e lo scaricavo con 
news.tin.it
 ora non mi appare piu
grazie 
erik

 Prima avevo l'adsl e lo scaricavo con 
news.tin.it
 ora non mi appare piu
Usa il server corrispondente al provider che ti fornisce la 
connettività; ad esempio, "
news.libero.it
" se hai Infostrada, 
"
news.tin.it
" se hai TIN e così via...
...oppure appoggiati ad un server delle news indipendente come X-Privat 
(
http://www.x-privat.org/
)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Newsgroup: it.comp.lang.delphi
Titolo: Frame , accesso dopo LoadPage(..)

Volendo attivare un controllo dopo il caricamneto del Frame,
non trovo un'evento tipo OnCreate o OnShow;
se cerco ad es. su un Frame con un PageControl di attivare uno
dei Pannelli <nomeframe>.ActivePageIndex:=0;
viene sollevata un'eccezione , eppure dopo il LoadPage , il frame e' stato
creato
FCurrentPage := APageClass.Create(Self);
  try
    // Dispone la pagina all'interno del pannello contenitore
    FCurrentPage.Parent := ScrollBox1;
    // Imposta Barre per scorrimento Form
    ScrollBox1.VertScrollBar.Range:=FCurrentpage.Altezza;
    ScrollBox1.HorzScrollBar.Range:=FCurrentPage.Larghezza;
[...]
  except
    // Distrugge la pagina in caso di errore imprevisto
    FreeAndNil(FCurrentPage);
    // Risolleva l'eccezione per consentire al gestore predefinito
    // di visualizzare il "classico" messaggio
    raise;
  end;
perche' non posso accedere ai componenti del Frame ?
// Carica Frame NoteStoriche
   LoadPage(Tfrm_NoteStoriche);
   // accede al PageControl del Frame per scegliere il Pannello
   frm_NoteStoriche.PageControl1.ActivePageIndex:=0;
Maurizio

 non trovo un'evento tipo OnCreate o OnShow;
Ridefinisci il costruttore *Create* del Frame.
   TMyFrame = class
   public
     constructor Create(AOwner: TComponent); override;
   end;
   constructor TMyFrame.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
     // ...qui il tuo codice...
   end;
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

>
[....]
grazie del suggerimento,
dovrei anche ridefirire il distruttore, dato che non ho un
metodo OnClose ?
l'help in linea non mi aiuta ....
ms-help://borland.bds4/bds4win32api_win32/html/DelphiWin32_FormsTCustomFrameClass.htm
grazie Maurizio 

 metodo OnClose ?
Se devi eseguire istruzioni alla "distruzione" del Frame, sì.
:-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

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

Salve Ragazzi....
Come è possibile prelevare da una directory qualsiasi il nome di ogni sua 
sottodirectory??...cioè vorrei memorizzare in un array di n stringhe il 
percorso di ogni sottocartella di un determinato percorso...o fare qualcosa 
di equivalente...
Thx
Max 


le funzioni FindFirst e FindNext dovrebbero fare al caso tuo.
ciao
Giacomo
Newsgroup: it.comp.lang.delphi
Titolo: [OT ] Firebird

Scusate l'OT ma non so proprio dove andare a cercare.
Come gestore di database, utilizzo FireBird.
Io con sql creo una tabella in modo dinamico, la riempio con un 
migliaio di dati, i dati che visualizzo su una grid sono ok, il punto 
è che chiudendo il tutto e visualizzando la tabella con IBmanager, ho 
tutti i campi a null.
Naturalmente dopo aver scrtto un record, utilizzo il post.
Io vi chiedo aiuto e abbiate pazienza se sono spudoratamnte OT.
Esiste un qualche gruppo di discussione per FireBird / Interbase?
Non ho premesso che da poco utilizzo Firebird.
Un grazie in anticipo a tutti.
Giancarlo


Hai appena sbattuto la capoccia contro le *transactions*.
Ti consiglio di leggerti la documentazione a riguardo sia di FB sia dei 
componenti che usi in Delphi.

 Naturalmente dopo aver scrtto un record, utilizzo il post.
Non basta, devi eseguire il Commit della transazione.  In FB, così come 
in IB, qualsiasi operazione eseguita sui dati viene svolta all'interno 
di una transazione.  Personalmente, ti consiglio di avviare 
esplicitamente le transazioni e chiuderle sempre con un Commit o un 
Rollback in caso di errore.
Newsgroup: it.comp.lang.delphi
Titolo: Simulare un Enter

Costruisco dinamicamente una listBox nella quale mostro degli items tra i 
quali l'utente ne sceglie uno premendo il tasto Enter. Poichè l'utente 
scorre la lista presumibilmente con il mouse, vorrei che potesse fare la 
scelta dell'elemento anche con un doppio click. Non ho trovato il modo di 
farlo. Uso Delphi 2007. Qualcuno ha suggerimenti ? 
 
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 


 
???
 
Se la domanda è: Ho una dialog che contiene una listbox e che vorrei 
chiudere con il doppio click sul listbox, la risposta è:
 
Nell'evento OnDblClick della listbox scrivi: Close;
 
Ciao.
 

"Luigi Siciliano"  ha scritto nel messaggio 
news:n8tgai$13hk$1...@gioia.aioe.org...
Se la domanda è: Ho una dialog che contiene una listbox e che vorrei
chiudere con il doppio click sul listbox, la risposta è:
Nell'evento OnDblClick della listbox scrivi: Close;
---
Grazie per il tentativo di aiuto. Non mi ero spiegato bene evidentemente. 
Comunque ho trovato la soluzione al mio problema con :
  postmessage(Self.Handle, WM_KEYDOWN, VK_RETURN, 0); 


 postmessage(Self.Handle, WM_KEYDOWN, VK_RETURN, 0);
 
Ma perche' ti complichi la vita ??
Hai una listbox, la popoli in runtime, gli passi il controllo e puoi fare 
quello che vuoi con il mouse e con i tasti (vai su, giu ecc...).
Sei sull'item desiderato e puoi premere enter o cliccare 2 volte.
In ogni caso ti scrivi cosa vuoi fare se fai il doppio click, poi se premi 
enter salti alla procedura del doppio click, piu' o meno cosi':
 
procedure TForm1.Lst1KeyPress(Sender: TObject; var Key: Char);
begin
    if key = #13 then
   begin
      Lst1DblClick(Sender: TObject); // Se hai premuto ENTER vai al doppio 
click della listbox
      Key:=#0;  // Quando rientri (se rientri) liberi il testo
     Exit; // Esci dalla procedura
  end
end;
 
dove
 
procedure TForm1.Lst1DblClick(Sender: TObject);
begin
    // Fai quello che devi
    // Se poi quando rientri vuoi chiudere
   close;
end;
 
Ciao e buona domenica ...
 
Daniele 
 

"Daniele"  ha scritto nel messaggio news:n974vu$14u3$1...@gioia.aioe.org...
Ma perche' ti complichi la vita ??
---
Sono andato a rivedere il codice e hai proprio ragione, non avevo proprio 
bisogno di generare un enter a programma. E pensare che ci ho perso intorno 
un certo tempo... Non so più cosa mi ha condotto su quella strada, 
probabilmente l'età. Va beh, grazie 
