/u/13464/Delphi.png?f=community)
"The shell stopped unexpectedly and Explorer.exe was restarted."
:strip_exif()/u/26373/anim4.gif?f=community)
"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney
Panel1 := Panel2; werkt niet.
Panel2.Assign(Panel1); werkt ook niet: hij kan niet een TPanel aan een TPanel assigen-en.
"The shell stopped unexpectedly and Explorer.exe was restarted."
Verwijderd
Ik heb geen flauw idee wat je aan het doen bent, maar het copieren van een panel met alle WinControls die dat panel als parent hebben doe je niet met 1 commando.Op woensdag 31 oktober 2001 22:15 schreef jelmervos het volgende:
Panel1 := Panel2; werkt niet.
Panel2.Assign(Panel1); werkt ook niet: hij kan niet een TPanel aan een TPanel assigen-en.
Components van Panel1 stuk voor stuk langslopen en copieren (en parent op Panel2 zetten), en de Components van die Components, etc..
:strip_exif()/u/23439/disgust.gif?f=community)
hmz.. object kopieren met assign gaat dus niet met panels.. blegh.. zal wel omdat een panel child controls kan bevatten..
Mar je wilt dus vanuit een DLL een panel aanmaken en tonen op het form van de aanroepende applicatie?
Als het allebei Delphi is (zowel de DLL als de aanroepende applicatie) kan je complete objecten als parameters en return values meegeven (humz.. DENK IK net zoals dat assign verhaal ff geen zin om Delphi op te starten en te zoeken)
Probeer eerst eens in code een panel aan te maken en toe te voegen aan je form (dus ZONDER dll). Probeer dan eens in een DLL of je een functie kan maken dat de handle van het form als parameter heeft, en dan dus dat panel daar op toont (deze oplossing werkt alleen als je applicatie EN dll allebei in Delphi zijn geschreven, anders moet je waarschijnlijk lekker gaan rotzooien met window handles en api call's)
ow ja.. community.borland.com -> search als je niet weet hoe je panels e.d. in code aan moet maken..
Mar je wilt dus vanuit een DLL een panel aanmaken en tonen op het form van de aanroepende applicatie?
Als het allebei Delphi is (zowel de DLL als de aanroepende applicatie) kan je complete objecten als parameters en return values meegeven (humz.. DENK IK
net zoals dat assign verhaal ff geen zin om Delphi op te starten en te zoeken)Probeer eerst eens in code een panel aan te maken en toe te voegen aan je form (dus ZONDER dll). Probeer dan eens in een DLL of je een functie kan maken dat de handle van het form als parameter heeft, en dan dus dat panel daar op toont (deze oplossing werkt alleen als je applicatie EN dll allebei in Delphi zijn geschreven, anders moet je waarschijnlijk lekker gaan rotzooien met window handles en api call's)
ow ja.. community.borland.com -> search als je niet weet hoe je panels e.d. in code aan moet maken..
"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney
:strip_exif()/u/7759/red_cat.gif?f=community)
Verwijderd
JapJap en Jelmer, dat kan allebei. Daarvoor hebben ze bij Borland die TFrames uitgevonden.
:strip_exif()/u/37547/logok2.gif?f=community)
het is een beetje zielige code, maar goed het werkt wel 
zet 2 panels op een form, gooi in panel1 een label en een button en koppel de code hieronder aan een button. je moet het lijstje onderaan aanvullen met de comps die jij wilt gebruiken.
procedure TForm1.Button1Click(Sender: TObject);
var
temp : tcomponent;
I: Integer;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
if temp.GetParentComponent = panel1 then
begin
clipBoard.setComponent(temp);
clipBoard.getComponent(form1, panel2);
end;
end;
end;
initialization
RegisterClasses([TButton]);
RegisterClasses([TLabel]);
end.
zet 2 panels op een form, gooi in panel1 een label en een button en koppel de code hieronder aan een button. je moet het lijstje onderaan aanvullen met de comps die jij wilt gebruiken.
procedure TForm1.Button1Click(Sender: TObject);
var
temp : tcomponent;
I: Integer;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
if temp.GetParentComponent = panel1 then
begin
clipBoard.setComponent(temp);
clipBoard.getComponent(form1, panel2);
end;
end;
end;
initialization
RegisterClasses([TButton]);
RegisterClasses([TLabel]);
end.
Opensource delphi componenten (http://www.delphi-jedi.org)
/u/31230/crop64b060d01fd80_cropped.png?f=community)
Pagina: 1