Vroc napisał:
eee tam, probowalem i nie dziala
Cóż, trzeba zrobić listę wskaźników :(
Ja mam to tak:
W MAIN:
var
Lista : array [0..10] of TBitmap;
Nr : Integer;
W CHILDWIN:
uses MAIN;
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
Inc(Nr);
Child.Tag := Nr;
New(Lista[Nr]);
Lista[Nr]</sup> := TBitmap.Create;
Lista[Nr].LoadFromFile('c:\windows\kawa.bmp');
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
Lista[Tag].Free;
Dispose(Lista[Tag]);
end;
procedure TMDIChild.FormPaint(Sender: TObject);
begin
Canvas.Draw(0,0, Lista[Tag]</sup>);
end;
procedure TMDIChild.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Lista[Tag]^.Canvas.LineTo(X, Y);
end;
--Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.
Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2
Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net