LucAlucard

Não achei nada do que preciso no fórum =/

Olá pessoal. Estou fazendo um editor HTML encontrei até um exemplo semi pronto, corrigi uns erros do componente com o IE9 e modifiquei algumas coisinhas.. Porém não consigo achar como adicionar Tabela no WebBrowser no modo de edição. Eu consigo puchar uma tabela de um HTML qualquer porém não sei como adicioná-la com linha de código entendem? Já tentei SendMessage(GetIEHandle(WebBrowser1, 'Internet Explorer_Server'), WM_COMMAND, StrToInt(Edit1.Text), 0); de 0 até 3000.. mas não conseguí nenhum resultado. Se vocês puderem me ajudar.. Já procurei no Fórum no Google mas até agora nada.. então qm sabe alguém já tenha passado por isso não é?? Vlw gente

Entendi. Vlw Jhonas. Vlw mesmo! ^^

Cara ler eu tinha lido mas não tinha entendido. Desculpa... Fiz o que você falou agora e deu certinho cara!. Meu, muito obrigado! Muito obrigado mesmo!! Transformar String em código no Delphi realmente ajuda muito! Só umas últimas dúvida, como você soube q importando esse componente ele resolveria o meu problema? Esse componente. Essa propriedade "Language" seria a linguagem de programação q eu vou usar? No caso VB?

Cara eu li o tópico e parece q o dele deu certo mas cmg deu erro. A minha unit ta aqui unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, MSScriptControl_TLB; type TForm1 = class(TForm) ScriptControl1: TScriptControl; Button1: TButton; Edit1: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var S : Variant; ws : WideString; begin S := ScriptControl1.Eval('3+3'); Label1.Caption := S; end; end. Porque será que ta dando esse erro?

Existe alguma contra indicação de importar componentes dessa forma? Quando for enviar o compilado pro cliente? Eu vo testar aqui.. Já q eu falo ( só q to sem net.. vo responder no mínimo amanhã de manhã)

Ainda não postei o código pois não consegui fazer o PageUp e PageDown

Foi a única forma que encontrei também.. Porém isso ainda me forçaria a fazer um case pra cada operador... Eu estava querendo saber se existe uma variável do tipo operador mesmo. Que eu só passasse o operador como parâmetro e ele fizesse o calculo. Independente se ele for um "+,-,/,*" entende? Assim eu não precisaria de um case pra cada operador.

Hehe. Descobri que n estraguei o componente n.. é q ele precisa de alguns determinados componentes dentro dele pro Scroll funcionar com a Roda do mouse. Conseguí fazer o objeto herdado mas.. Ainda tenho uma dúvida ( q até publiquei aqui no fórum ) pra tentar melhorar o código antes de compartilhar com todos do fórum ^^

Alguém sabe se existe alguma variavel ou como consetruir algo para criar uma variavel do tipo operador? Digamos tenho um código q usaria: 10 + 10; e o outro eu usaria 10 - 10; Tem alguma forma de eu criar uma rotina q mandar apenas os parametros? Por exemplo function Calc(Val1, Val2 : Integer ; operador : ??? ) : Variant; Alguém conhece? Vlw gente essa dúvida ta me matando T_T

Entendi eu entendi.. Mas fico faltando uma coisa... Ainda n entendi como o Result que é boolean conseguiu capturar um valor Inteiro. porque isso funcionou?

n sei o que fiz.. mas agora nem desistalando o compionente q eu tentei herdar.. o componente original n consegue mais passar por esse evento ( O.O ).. acho q vou ter desinstalar o Delphi e instalar de novo -.-'.. O problema são os outros componentes, demora muito pra instalar todos eles..

Cara desculpa a ignorância mas eu não entendi a sua função. Como um resultado booleano pegou a Key e mais esse 128 > 0? Não entendi essa linha. você pd me explicar por favor? Outra dúvida... Na sua função você colocou que a sua "Key" é uma constante.. Quando devemos deixar os parâmetros das funções com "cons","var" ou qualquer coisa do gênero. Eu nunca entendi isso... Brigadão pela forç Jhonas! ^^

Eu to analizando o código.. Se bater alguma dúvida posso perguntar nesse tópico também?

Bom dia pessoa. Gente precisando mais uma vez da ajuda de vocês.. to tentando fazem alguns dias mas não consigo achar... É mais ou menos assim.. Eu gostaria de adicionar 2 propriedades novas no ScrollBox. Uma delas para fazer o scroll automatico (Sem precisar adicionar código nenhum). E a outra com a velocidade do scroll (quanto ele deve descer ou subir). Fazer as novas propriedades td bem.. aprendi a fazer direitinho. O problema é que não consigo fazer ele passar pela minha rotina pra ele fazer o scroll sozinho. Se alguém puder me ajudar por favor... Um abraço a todos.. Ta aew o código que eu to tentando fazer fucionar. unit ScrollBoxComScroll; interface uses windows, SysUtils, Classes, Controls, Forms; type TNewScrollBox = class(TScrollBox) private priUsaScroll: Boolean; priVelScroll: Integer; protected { Protected declarations } public constructor Create(AOwner: TComponent); override; function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override; // procedure NewOnMouseWheelUp ( Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override; published property UsaScroll: Boolean read priUsaScroll write priUsaScroll default True; property VelScroll: Integer read priVelScroll write priVelScroll default 10; end; procedure Register; implementation procedure Register; begin RegisterComponents('MeusComponentes', [TNewScrollBox]); end; { TNewScrollBox } constructor TNewScrollBox.Create(AOwner: TComponent); begin inherited; UsaScroll := True; VelScroll := 10; end; function TNewScrollBox.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; begin if priUsaScroll = True then Self.VertScrollBar.Position := Self.VertScrollBar.Position + VelScroll; inherited DoMouseWheelDown(Shift,MousePos); end; end.

mas a linguágem é diferente @_@

basta apertar as 2 teclas ao mesmo tempo procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key OF VK_LEFT : Shape1.Left := Shape1.Left -5; VK_UP : Shape1.Top := Shape1.Top -5; VK_RIGHT : Shape1.Left := Shape1.Left +5; VK_DOWN : Shape1.Top := Shape1.Top +5; end; end; abraço Não funciona. Quando você aperta digamos.. seta pra esquerda ele vai pra esqeurda e depois ainda matendo a seta pra esquerda apertada aperta a seta pra cima ele só vai pra sima e não vai pra diagonal entende?

Olá pessoal tudo bem? Bom... Hoje estou aqui novamente com mais uma dúvidasinha... Parece simples mas eu nãos sei =/. Como saber se 2 teclas estão precionadas? Por exemplo: Tenho um shape. Quando eu aperto: Seta pra cima ele sobe Seta pra Esquerda ele Vai indo pra Esquerda Como fazer ele ir pras duas direções? Capturar o key das duas.. quando eu apertar o key para a esquerda e cima? Alguém sabe?

Vlw Jhonas ^^

Conseguiu gente.. Não ta terminado ainda mas o código que eu precisava eu aprendi a fazer.. Você precisa criar uma Tipo de variavel lá.. No meu caso o "TTpValEdt ". E setar o que ele vai mostrar no combobox. No caso os vl (de valor) "vlMonetario, vlInteiro, vlTexto" dentro de parenteses. Feito isso você precisa setar uma variáveis, uma para pegar o valor (TpEdt : TTpValEdt) e criar uma procedure para ele pegar o valor caso o valor do TpEdt seja diferente do antigo (procedure SetTpEdt (Valor : TTpValEdt)). Bom.. o componente que eu qria crair n está terminado mas a dúvida que eu tinha já fui solucionada. Vlw gente! ^^ unit EdtPersonalizado_; interface uses SysUtils, Classes, Controls, StdCtrls; type TTpValEdt = (vlMonetario, vlInteiro, vlTexto ); TEditPersonalizado = class(TEdit) private FNumerico: boolean; TpEdt : TTpValEdt; procedure SetTpEdt (Valor : TTpValEdt); protected public constructor Create(AOwner: TComponent); override; procedure KeyPress(var Key: Char); override; published property Numerico: boolean read FNumerico write FNumerico default true; property TipoEdit: TTpValEdt read TpEdt write SetTpEdt default vlTexto; end; procedure Register; implementation procedure Register; begin RegisterComponents('MeusComponentes', [TEditPersonalizado]); end; { TEditPersonalizado } constructor TEditPersonalizado.Create(AOwner: TComponent); begin inherited Create(AOwner); FNumerico := True; Text := '0'; end; procedure TEditPersonalizado.KeyPress(var Key: Char); const teclasDec = ['0'..'9', #8]; begin if TipoEdit = vlInteiro then if not (key in teclasDec) then key:=#0; inherited KeyPress(Key); end; procedure TEditPersonalizado.SetTpEdt(Valor: TTpValEdt); begin if TpEdt <> Valor then TpEdt := Valor; end; end.

Bom dia a todos. Bom, comecei a estudar a criação de componentes com o Delphi. Mas quero adicionar uma propriedade que não sei ao certo como fazer isso. Por exemplo eu quero fazer um edit que dependendo da propriedade q eu escolher ele pode ser "monetário", "Texto" ou "apenas inteiro". Mas não estou conseguindo criar a propriedade com aquele efeito de "combobox" com os escritos. Tipo igual a propriedade "Align" só que mudando os escritos.

Olá a todos da família script brasil. Estou aqui hoje para ver se vocês mais uma vez podem me ajudar... Como faço um case com string? Por exemplo: case VariavelString of 'a' : 'b' : 'c' : end; Encontrei um tal de ansiindexstr que diz é da SysUtils. Mas no Delphi 2010 não consegui achar essa função... Alguém pode me ajudar? Como faço pra cosneguir fazer um case de String? o.O

Olá família script brasil tudo bem com vocês? Aproveitando bastante essa "vespera de natal"? Bom espero q sim ^^. Então gente.. vim aqui hj até vocês porque não conseguí encontrar uma coisa... já usaram skin em suas aplicações? Perceberam q eles mudam praticamente tudo dependo de qual você escolheu? Muda scrollBar, Botões, bordas dos formulários e etc. Porém cm eles fazem isso? só consegui encontrar até agora pra mudar o fundo do form usando imagem e tal.. mas como faço pra mudar esses outros componentes usando apenas um componente. Entenderam? Quero aprender a dezenvolve-los... Se vocês souberem e poderem compartilhar aqui no fórum por favor o potem aqui como fazer =D.

aewww =D Vlw Jhonas, vou tentar aqui e depois eu posto o resultado.. Lógico.. também vou dar uma caçada sobre o registry em Delphi, e posto o resultado. Vlw Jhonas! ^^

Bom... tente com o CMD de várias formas... ele consegue ler o arquivo mas na hora de escrever o arquivo na imagem ele da Access Violation.