yanyana iki form

[Vital]

merhaba arkadaslar
soyle birsey yapmak istiyorum

iki form olacak formun biri diger formun sol kosesine yerlesecek ana form nereye giderse diger formda ana formun hep soluna yapisik olacak.
bir fikri ola n varmi bu konuda

tskler..

[khanco]

Arama yaparsan daha önce bu konuda yapılmış konuşmaları bulabilirsin.

[Jire]

formun paintini kullanabilirsin.

form2.left := form1.left + form2.left;
form2.top := form1.top;

[aslangeri]

formun paintini kullanabilirsin.

form2.left := form1.left + form2.left;
form2.top := form1.top;

paintte olurmu bilmiyorum ama

Kod: Tümünü seç

form2.left:=form1.left+form1.width;

diyecektin sanırım.
kolay gelsin.

[aseka]

--

[Vital]

procedure FormTasiniyor(var Msg: TWMWINDOWPOSCHANGING) ; message WM_WINDOWPOSCHANGING;

procedure de bi hata var baktim ama ben cozemedim ustad ilgin icin tskler. foırmun paint i oluyor ama tam etki etmiyor.

tskler.

[aseka]

--

[RewriteRule]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure OnMove(var Msg: TWMMove); message WM_MOVE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.OnMove(var Msg: TWMMove);
begin
  if Form2 <> nil then
  begin
    if ( Form2.Left <> Form1.Left ) then
      Form2.Left := Form1.Left + Form1.Width;
    if ( Form2.Top <> Form1.Top ) then
      Form2.Top  := Form1.Top;
  end;

  inherited;
end;

end.

Bu kod sağdaki Form'u(Form2) soldaki oynatılınca soldakine(Form1) yapıştırır.