Hej allesammen
Er der nogen der har et eksempel (I Borlabd C++) med TAbcontrol.
Altså en der creater en MDIChild i en TabControl istedetfor som en fri form.
Og en ting til... Hvis der er nogen der kan omforme denne kode til C++ fra
Pascal (Borlands) så vil jeg blive meget glad:
function TForm1.FindTitle : string;
var
i :integer;
start, stop:TPoint;
Titel,Kode:string;
begin
for i := 0 to Editor.Lines.Count - 1 do
begin
Kode := Editor.Lines[i];
If Pos('<title>', Lowercase(Kode)) > 0 then
begin
Start.x := Pos('<title>', Lowercase(Kode))+7;
Start.y := i+1;
end;
If Pos('</title>', Lowercase(Kode)) > 0 then
begin
Stop.x := Pos('</title>', Lowercase(Kode));
Stop.y := i+1;
end;
end;
Editor.BlockBegin := Start;
Editor.BlockEnd := Stop;
Result := Editor.SelText;
end;
BlockEnd og BlockBegin er TPoint.
Hilsen Nick
|