Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by semo,
10. Mai 2004
so richtig scheint das doch nicht zu funktionieren....
ich frage die im formualar und im panel enthaltenen komponenten ab und bekomme sowohl vor wie auch nach dem drag&drop die meldung dass das image als parent das panel hat...
for i:=0 to ComponentCount-1 do
Memo1.Lines.Add(Components.Name);
for i:=0 to PanelVorschau.ComponentCount-1 do
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by semo,
6. Mai 2004
habe es gefunden: die paintbox kann ich ja nun weglassen, und die imagekomponente auf die drunterliegende scrollbox packen:
procedure TForm1.ScrollBox1DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
if (Source is TImage) and (Sender is TScrollBox) then
begin
RemoveControl(TImage(Source));
ScrollBox1.InsertControl(TImage(Source));
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by semo,
6. Mai 2004
ich habe ein panel mit einer image-kompnente draufliegen. die image-kompo soll per drag und drop auf eine danebenliegende paintbox gelegt werden (ich muss also auch irgendwie den parent ändern??!!!)
in dieses image lade ich ein bitmap:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
// Bitmap aus Datei in das Image laden und die Höhe und Breite des Image anpassen
...