Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:='';
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color:=clred;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clblack;
end;
procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
label2.Color:=clactivecaption;
label2.Font.Color:=clwhite;
end;
procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
label2.Color:=clBtnFace;
label2.Font.Color:=clblack;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.Visible:=false;
label2.Visible:=true;
end;
procedure TForm1.Label3MouseEnter(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm1.Label3MouseLeave(Sender: TObject);
begin
timer1.Enabled:=false;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label3.Visible:=true;
end;
procedure TForm1.Label4Click(Sender: TObject);
begin
Application.MessageBox ('hecho x mapache. agradecimiento al posker.','Info!',
mb_ok+mb_Iconinformation);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
memo1.Lines.Add('[marquee behavior="scroll" direction="down" scrollamount="5" style="position:absolute; left:130px; top:150px; width:16px; height:548px;"][span style="color: !important;"]'+edit1.text+'[/span][/marquee]');
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
memo1.SelectAll
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
memo1.CopyToClipboard
end;
end.
eso es lo que mi programa hace para que sepan mas o menos de lo que trata
PD: reemplaze las < > del codigo en HTML por estos [] porque el foro los aceptaba xD