TNotebook

[Bauer321]

Hi,

ich bin Anfänger und würde gerne wissen wie ich einem TNotebook mit 2 tabs text hinzufüge.
leider nirgends was dazu gefunden.

[theo]

TNotebook hat nicht direkt mit Text zu tun. Es ist ein Container mit verschiedenen Seiten.
Wenn du Text darin zeigen willst, musst du jeweils z.B. ein TMemo drauflegen, mit Align:=alClient
Du kannst aber auch andere Komponenten auf die Notebook-Seiten legen.

[Bauer321]

ok danke dann pack ich da erstma einfach labels rein -.-

[Bauer321]

da wäre noch ne frage leider habe ich auch dazu keine lösung gefunden.
bei vb kann man ja via Label auf ne domain oder ne Email verlinken wie mache ich sowas bei Freepascal

[Socke]

bei vb kann man ja via Label auf ne domain oder ne Email verlinken wie mache ich sowas bei Freepascal

Dieses Thema taucht immer wieder hier im Forum auf. Die Suchfunktion liefert dir die entsprechenden Themen.
Die Kurzfassung:

Code: Alles auswählen

uses LCLIntf;
// im OnClick-Ereigneis des Labels
OpenUrl('http://examlpe.org/');
// eventuell funktioniert dies für E-Mails:
OpenUrl('mailto:someone@invalid.org');

Ansonsten: Willkommen im Forum!

[Bauer321]

ok, vielen dank. sry aber ich habe auch durch die suche leider nix gefunden naja... nächstes mal geb ich mir mehr mühe

geht nicht:

Code: Alles auswählen

unit Unit_helpfcr;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, Grids, ColorBox, PairSplitter, LCLIntf;
 
type
 
  { TForm7 }
 
  TForm7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Notebook1: TNotebook;
    Page1: TPage;
    Page2: TPage;
    procedure Label2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form7: TForm7; 
 
implementation
 
{ TForm7 }
 
procedure TForm7.Label2Click(Sender: TObject);
begin
  OpenUrl('http://www.lazarusforum.de/viewtopic.php?f=10&t=4071');
end;
 
initialization
  {$I unit_helpfcr.lrs}
 
end.

folgende Fehlermeldungen:

Code: Alles auswählen

unit_helpfcr.pas(37,10) Error: Identifier not found "OpenUrl"
unit_helpfcr.pas(45) Fatal: There were 1 errors compiling module, stopping

[Live]

Hey

Vielleicht hilft dir dieser Thread weiter:
http://www.lazarusforum.de/viewtopic.php?f=26&t=3351" onclick="window.open(this.href);return false;

OpenURL wird erst ab version 0.9.29 von Lazarus unterstützt. Vorher müsstest du dir die Funktion selber bauen. Beispiele sind auch im oben genannten Thread angegeben.

Liebe Grüße Live

[Bauer321]

cool vielen dank jetzt gehts super. wie ich es mir vorgestellt habe