/ Forside / Teknologi / Udvikling / C/C++ / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
C/C++
#NavnPoint
BertelBra.. 2425
pmbruun 695
Master_of.. 501
jdjespers.. 500
kyllekylle 500
Bech_bb 500
scootergr.. 300
gibson 300
molokyle 287
10  strarup 270
Tabcontrol
Fra : Linda Sørensen


Dato : 05-03-01 21:41

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




 
 
Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408938
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste