Komponenten im Programm verschieben ?

[Matthew]

Hallo,

ist es irgendwie möglich Komponente in dem laufenden Programm zu verschieben also quasi der, der das Programm benutzt, soll seine Komponenten verschieben können.(z.B. Buttons, Labels, Box usw.)

Gruß
Matthew

[WebFritzi]

Na, so in der Art:

// In OnKeypress oder so
if(key == [RECHTSTASTE])
   Button1->Left++;

[akari]

Hallo

Für aufwändigere Möglichkeiten siehe zum Beispiel hier.

bis bald
akari

[WebFritzi]

Ach so, mit der Maus... Na, dann ist folgendes einfacher:

void __fastcall TForm1::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (Button==mbLeft)
    {
        ReleaseCapture();
        SendMessage(Button1->Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
    }
}

[akari]

Hallo

Naja im meinem Link wird genau dasselbe eingesetzt. Nur das drumherum noch zusätzliche Fähigkeiten eingebaut werden.

bis bald
akari

[WebFritzi]

Ah ja, hab ich nicht gesehen.

[Matthew]

Jo danke!

[viesser-seb]

Und wie kann man die Position während der Aktion auslesen?
Zum Beispiel um die aktuelle Position in einem Label anzuzeigen.

[Gast]

Hallo

top und left ...

mfg, Micha