Jhonas

item:= FPessoa.Enderecos.Items[ListBox1.ItemIndex]; voce sempre deve clicar no primeiro item do listbox, pois se clicar em qualquer outro acontece o erro... ou então tire o código do TForm1.ListBox1DblClick(Sender: TObject); e coloque em um botão abraço

veja http://scriptbrasil.com.br/forum/index.php?showtopic=150858 https://www.scriptbrasil.com.br/download/apostila/777/ https://www.scriptbrasil.com.br/apostilas/programas/delphi/ http://www.apostilaspdf.com/apostila-manua...onentes-delphi/ abraço

exemplo: procedure TForm1.FormShow(Sender: TObject); begin Form1.Top := 600; Form1.Left := 670; end; OBS: Sempre faça uma pesquisa no forum, para saber se a sua dúvida já não existe e se foi respondida abraço

Manual do report Builder 3.0 http://technet.microsoft.com/pt-pt/library/dd220412.aspx abraço

quick report para o delphi Xe http://www.4shared.com/file/Zqv9nPjl/QR505PDW32XE.html abraço

veja http://www.planetadelphi.com.br/artigo/150...-inicio-ao-fim/ http://www.planetadelphi.com.br/dica/5494/...--3%C2%AA-parte abraço

voce pode fazer isso de 2 maneiras, ou usando uma chave primaria, ou fazendo uma pesquisa no seu banco de dados, ao inserir um novo item. http://www.planetadelphi.com.br/artigo/150...-inicio-ao-fim/ http://www.planetadelphi.com.br/dica/5494/...--3%C2%AA-parte abraço

veja onde voce esta errando: (TSpeedButton(FindComponent(Nome_do_Componente)).Glyph); for test := 0 to ComponentCount -1 do begin if TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Name = ( Components [test] as TSpeedButton ).Name then begin TSpeedButton(FindComponent('TF' + Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph := TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph; end; end; OBS: o nome do componente está variando igualmente junto com a pesquisa do componente ? abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...=relacionamento abraço

TFileStream.Create(file, fmShareExclusive) se voce abrir uma nova instancia do programa, sem problemas, mas se quiser abrir o arquivo em modo exclusivo mais de uma vez pelo mesmo programa, a idéia seria voce criar uma cópia do arquivo para abrir novamente. abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ighlite=minimiz abraço

veja se ajuda http://scriptbrasil.com.br/forum/index.php...st&p=613660 abraço

Serve para voce deixar sua aplicação com a aparencia do windows XP exemplos http://www.devmedia.com.br/articles/viewcomp.asp?comp=13572 http://imasters.com.br/artigo/3294 abraço

Para esse tipo de mídia voce deve usar o WebBrowser exemplo: coloque um componente webbrowser e um botão unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, WMPLib_TLB, SHDocVw; type TForm1 = class(TForm) Button1: TButton; WebBrowser1: TWebBrowser; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var url : string; begin url := InputBox ('Seleção de URL' , 'Digite o endereço de uma URL', ''); showmessage(url); WebBrowser1.Navigate(url); end; end. os endereços podem ser esses: http://vertvhd.xp3.biz/ben10.php http://vertvhd.xp3.biz/canais/megapix.php http://vertvhd.xp3.biz/AXN.php http://vertvhd.xp3.biz/prisonbreak.php http://vertvhd.xp3.biz/wwe.php http://vertvhd.xp3.biz/dbz.php http://vertvhd.xp3.biz/canais/history.php http://vertvhd.xp3.biz/canais/action.php abraço

exatamente o que voce esta querendo ... seja mais explicito abraço

utilize um campo ou variavel de controle, quando o form de configuração for executado e os campos preenchidos, voce coloca nesse campo de controle um valor qualquer ( ex: 0,1) depois é só testar o campo ao abrir o programa... se o valor desse campo for 0 então voce mostra o form de configuração, se o valor for 1 voce ignora o form de configuração e executa o programa normalmente. faça um teste para saber se o direório corrente é o diretório onde esta o seu programa exemplo: Como obter o diretório atual usando a função GetCurrentDir() Em algumas situações precisamos obter o diretório atual, ou seja, aquele a partir do qual nosso programa está sendo executado. Em Delphi isso pode ser feito com o auxílio da função GetCurrentDir() da unit SysUtils. Esta função não exige nenhum argumento e retorna o drive e nome do diretório atual como uma string. Veja o exemplo: procedure TForm1.Button1Click(Sender: TObject); var diretorio_atual: string; begin // vamos obter o diretório atual diretorio_atual := GetCurrentDir; // vamos exibir o resultado ShowMessage('O diretório atual é: ' + diretorio_atual); end; abraço

poste o seu código ... se não fica dificil ajudar abraço

Já dei a resposta a voce ... está nos posts acima. agora é pensar um pouco para achar a resposta abraço

parece que voce não entendeu as sugstões anteriores quem essa, voce entende: unit TranPanel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TGlassStyle = ( gsBlackness, gsDstInvert, gsMergeCopy, gsMergePaint, gsNotSrcCopy, gsNotSrcErase, gsPatCopy, gsPatInvert, gsPatPaint, gsSrcAnd, gsSrcCopy, gsSrcErase, gsSrcInvert, gsSrcPaint, gsWhiteness); TGlass = class(TCustomControl) private FColor: TColor; FStyle: TGlassStyle; FOnPaint: TNotifyEvent; procedure SetColor(Value: TColor); procedure SetStyle(Value: TGlassStyle); procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED; procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND; procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING; protected Buffer: TBitmap; procedure CreateParams(var Params: TCreateParams); override; procedure Paint; override; procedure Resize; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; property Canvas; published property Align; property Anchors; property AutoSize; property BiDiMode; property BorderWidth; property Color: TColor read FColor write SetColor; property Ctl3D; property Enabled; property Style: TGlassStyle read FStyle write SetStyle default gsSrcAnd; property Visible; property OnClick; property OnDblClick; property OnEnter; property OnExit; property OnMouseDown; property OnMouseMove; property OnMouseUp; property OnResize; property OnPaint: TNotifyEvent read FOnPaint write FOnPaint; end; procedure Register; implementation procedure Register; begin RegisterComponents('Croco', [TGlass]); end; function GlassStyleToInt(gs: TGlassStyle): LongInt; begin case gs of gsBlackness : Result := cmBlackness; gsDstInvert : Result := cmDstInvert; gsMergeCopy : Result := cmMergeCopy; gsMergePaint : Result := cmMergePaint; gsNotSrcCopy : Result := cmNotSrcCopy; gsNotSrcErase: Result := cmNotSrcErase; gsPatCopy : Result := cmPatCopy; gsPatInvert : Result := cmPatInvert; gsPatPaint : Result := cmPatPaint; gsSrcAnd : Result := cmSrcAnd; gsSrcCopy : Result := cmSrcCopy; gsSrcErase : Result := cmSrcErase; gsSrcInvert : Result := cmSrcInvert; gsSrcPaint : Result := cmSrcPaint; gsWhiteness : Result := cmWhiteness; else Assert(True, 'Error parameter in function GlassStyleToInt'); end; end; constructor TGlass.Create(AOwner: TComponent); begin inherited Create(AOwner); Buffer := TBitmap.Create; ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents, csDoubleClicks, csReplicatable]; Width := 100; Height := 100; FStyle := gsSrcAnd; ParentCtl3d := False; Ctl3D := False; ParentColor := False; FColor := clWhite; end; destructor TGlass.Destroy; begin Buffer.Free; inherited Destroy; end; procedure TGlass.Paint; var R: TRect; rop: LongInt; begin R := Rect(0, 0, Width, Height); Buffer.Width := Width; Buffer.Height := Height; Buffer.Canvas.Brush.Style := bsSolid; Buffer.Canvas.Brush.Color := FColor; Buffer.Canvas.FillRect(Rect(0, 0, Width, Height)); rop := GlassStyleToInt(FStyle); StretchBlt(Buffer.Canvas.Handle, 0, 0, Width, Height, Canvas.Handle, 0, 0, Width, Height, rop); if Ctl3D then DrawEdge(Buffer.Canvas.Handle, R, BDR_RAISEDINNER, BF_RECT); Buffer.Canvas.Pen.Mode := pmCopy; Buffer.Canvas.Pen.Style := psSolid; Canvas.Draw(0, 0, Buffer); if Assigned(FOnPaint) then FOnPaint(Self); end; procedure TGlass.SetColor(Value: TColor); begin if Value <> FColor then begin FColor := Value; RecreateWnd; end; end; procedure TGlass.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := Params.ExStyle + WS_EX_TRANSPARENT; end; procedure TGlass.WMWindowPosChanging(var Message: TWMWindowPosChanging); begin Invalidate; inherited; end; procedure TGlass.WMEraseBkgnd(var Message: TMessage); begin Message.Result := 0; end; procedure TGlass.Resize; begin Invalidate; inherited; end; procedure TGlass.CMCtl3DChanged(var Message: TMessage); begin inherited; RecreateWnd; end; procedure TGlass.SetStyle(Value: TGlassStyle); begin if Value <> FStyle then begin FStyle := Value; RecreateWnd; end; end; end. abraço

uma atualização do seu sistema não é feita com o inno ... mas de outra maneira .. veja http://www.dbquester.com/files/artigos/aut.../autoupdate.rar abraço

de um reset na BIOS e tente novamente abraço

veja http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=466 abraço

voce pode usar o ComboBoxEx1 ou TreeView1 ou ListView1 da paleta Win32 abraço

Posts relacionados com TStream http://scriptbrasil.com.br/forum/index.php...ighlite=TStream abraço

basta mostrar os arquivos em um listview com um imagelist com os icones de cada arquivo ... procure no forum, tem posts relacionados abraço