Paulo Vasques
Membros-
Total de itens
2 -
Registro em
-
Última visita
Tudo que Paulo Vasques postou
-
(Resolvido) Ajuda com criação de componentes em tempo real
pergunta respondeu ao Paulo Vasques de Paulo Vasques em Delphi, Kylix
Galera tentando fazer aqui acho que consegui de uma olhada em como fico o código: vou postar o código inteiro da unit para outros que também quiser implementar. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ScrollBox1: TScrollBox; procedure PanelClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Panel_teste : array [1..100] of TPanel; implementation {$R *.dfm} procedure TForm1.PanelClick(Sender: TObject); var I : Integer; begin for I := 1 to 100 do begin if Panel_teste[I].MouseInClient then begin Panel_teste[I].Color := clYellow; Break; end; end; end; procedure TForm1.FormCreate(Sender: TObject); var I, Panel_left, Panel_top : Integer; begin Panel_left := 5; Panel_top := 5; for I := 1 to 100 do begin Panel_teste[I]:= TPanel.Create(ScrollBox1); with Panel_teste[I] do begin Visible := true; Left := Panel_left; Top := Panel_top; Width := 179; Height := 100; BevelOuter := bvNone; Caption := ''; Color := cl3DLight; TabOrder := 1; Name := 'Panel_'+IntToStr(I); OnClick := PanelClick; ParentBackground := False; Parent := ScrollBox1; end; Panel_left := Panel_left + 190; if Panel_left > Screen.Width then begin Panel_left := 5; Panel_top := Panel_top + 112; end; end; end; end. Então este código passo a dar certo depois que coloquei o array só não sei dizer se esta foi a melhor solução pois como vocês podem ver ele vai ter que percorrer um laço que vai de 1 a 100 para testar em qual panel esta, em alguns casos este laço pode ser até maio. -
(Resolvido) Ajuda com criação de componentes em tempo real
uma questão postou Paulo Vasques Delphi, Kylix
Criei vários componentes em tempo de execução como Panel, Label, Button, etc... quanto a criação beleza, funciono tudo perfeito da maneira que esperava, porem não estou conseguindo criar os procedimentos, por exemplo, se eu crio uma procedure que troca a cor de uma Panel quando passar o mouse em cima, ela esta trocando a cor de todas as Panel criadas. alguém pode me ajudar nisto, he muito urgente.