Komponenten zur Laufzeit erzeugen und auf Form bewegen!?

[torud]

Hallo Leute!

Ich würde mir gern ein kleines Tool schreiben, mit dem ich ähnlich wie im Delphi mir aus einer PageControl Komponenten auf ein Form ziehen kann und ihnen Scripte oder sonstige Jobs zuweisen kann.

Die Idee verfolgt mich schon eine Weile und nun will ich sie angehen, habe aber keine Vorstellung davon, wie ich zumindest den ersten Teil davon realisieren könnte. Also ein PageControl zu erzeugen, mit einer Toolbar und ein paar Toolbuttons ist kein Problem. Auch dürfte es kein Problem sein nach Klich auf einen Button ein bestimmtes Control zu erzeugen. Aber wie ist es mit dem bewegen zur Lauzeit???

Gibts es sonst noch Hürden, die ich zu beachten hätte?

ps.: Ich habe nicht vor Delphi neu zu erfinden! :-D

[SirThornberry]

Du musst dafür sorgen das klicks etc nicht ausgeführt werden. Eine Möglichkeit wäre das Control in ein Panel zu stopfen und darüber ein transparentes TWinControl zu legen welches dann die Move, Click etc. messages abfängt und dann fürs verschieben verantwortlich ist. Die Anker zum Größe ändern und verschieben natürlich nicht vergessen

[torud]

Hallo Sir,

so etwas habe ich noch NIE gemacht, hast Du noch Zeit für etwas mehr an Informationen ???

Denn mit der Info ein transparentes TWinControl drüber zu legen, kann ich irgendwie nix anfangen. Ich habe auch noch nie einen Button erzeugt und dann die MouseMove und Click-Events in dieser Richtung ausgewertet.

Gibt es irgendwelche BeispielCodes, damit man sich langsam "reinfühlen" kann? :pale:

[Meflin]

hier am beispiel eines images:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
  ReleaseCapture;
  TWinControl(Image1).perform(wm_syscommand,sc_dragmove, 0);
end;

[torud]

Ich habe die Suche nochmals bedient und bin fündig geworden!

Danke an alle, die gerade im Sprunge waren eine Antwort zu verfassen.

Hier die 2 Links:

Eine eine Lösung aus der Schweiz

Und hier eine fertige Komponente

:)

[SirThornberry]

@Meflin: Von der Idee her ok aber TImage ist kein TWinControl... ich such mal schnell noch paar sourcen raus bzw. versuch was zusammenzubasteln

[Edit]War mal wieder zu langsam... Die Komponente scheint mir ganz ok zu sein, das vom Swissdelphicenter find ich ni so toll da man dies für jede Componente erstellen muss und die eventuell schon zugewiesenen onMouseDowns etc verloren gehen, was bei der Komponente nicht der Fall zu sein scheint[/Edit]

[torud]

Hallo nochmals!

Die Komponente, welche ich im vorherigen Posting angegeben habe, ist wirklich Klasse. Mich interessiert jetzt aber noch, wie ich das Verschieben mit so einem Raster wie im Delphi realisieren kan, damit der User ein optisches und reales Hilfsmiteel zum verschieben und "Einrasten" hat.

Soll ich das mit einem Hintergrundbild wie im Delphi machen?
Aber wie kann ich dann ein solches Raster realisieren?

[Tyler]

der Frage schliess ich mich an... hab zwar einen etwas abweichenderen Code, würde aber auch gerne wissen, wie ich das sog. "Snap-On-Grid" realisieren könnte :)

Delphi-Quellcode:

ReleaseCapture; 
TPanel(Sender).perform(WM_SysCommand, $F012, 0);

thx

tyler

[SirThornberry]

@torud: Das raster bekommst du ganze einfach hinn indem du einfach im OnPaint die Punkte in einem gewissen abstand aufs Form malst.

[torud]

OK, das beantwortet die Frage, wie ich ein Raster zumindest gemahlt bekomme.Wie aber kann man denn dann die Komponenten an diesem "virtuellen" Raster "einrasten"?

Hm, !??? :roll: