Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#21

AW: Form 2 in einer GroupBox öffnen !

  Alt 21. Apr 2014, 00:00
Also ich hab gerade versucht das Bespiel unter Lazarus auszuführen. Lazarus kennt einige Funktionen nicht, wie z. B. GetWindowRect, SetParent, GetWindowLong, SetWindowLong. Damit läßt sich das obere Beispiel nicht so ohne weiteres umsetzten.

Natürlich sind das alles Windows Api Funktionen, womit sich die Frage stellt ob Lazarus drauf zugreifen kann. Wenn ja, dann dürfte es kein Problem sein. Allerdings kenne ich mich nicht so in Lazarus aus. Anbei das gleiche Beispiel wie oben, aber als Lazarusprojekt. Es funktioniert nicht, da Lazarus die oberen Funktionen nicht kennt. Wer weiß wie man die einbinden kann...

EDIT:

Dieses Beispiel funktioniert.

Ich hab gerade etwas experimentiert und festgestellt, dass alles nötige in Lazarus da ist, auch die oberen Funktionen sind vorhanden. Man muss nur die Unit Windows einbinden. Anscheinend wird die Unit bei Lazarus nicht automatisch eingebunden. Macht man das, dann klappt auch das Beispiel:


Delphi-Quellcode:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Windows, ..., Unit2;
Miniaturansicht angehängter Grafiken
beispiel_lazarus.png  
Angehängte Dateien
Dateityp: zip ParentWindow Beispiel (Lazarus).zip (65,7 KB, 4x aufgerufen)

Geändert von Popov (21. Apr 2014 um 00:30 Uhr)
  Mit Zitat antworten Zitat